SUBROUTINE ld_cloud_unity(success)

c
c Load the cloud factor array with a constant value of unity.
c

      INCLUDE "params.inc"
      INCLUDE "weights.cmn"
      INCLUDE "cloud.cmn"

      INTEGER*4 dernier, ix
      LOGICAL success

      dernier= w_ix0(n_w_fns) - 1

      DO ix=0, dernier
        cldfac(ix)= 1.d0
      END DO

      success=.TRUE.
      RETURN
      END