Line data    Source code

       1             :   !! Determine the stratifrom cloud fractions using the CAM routines. This will return the
       2             :   !! ice and liquid cloud fractions as well as the minimum relative humidity for the onset
       3             :   !! of liquid clouds.
       4             :   !!
       5             :   !! NOTE: This is just a stub for models that don't use cloud fraction. It should be replaced
       6             :   !! be a new routine in a file of the same name in the model directory if the model needs
       7             :   !! cloud fraction. This routine needs to be in its own file to avoid circular references when
       8             :   !! using the CAM cloud fraction routines (see cirrus model).
       9             :   !!
      10             :   !!  @version Aug-2010 
      11             :   !!  @author  Chuck Bardeen 
      12     1050624 :   subroutine CARMA_CloudFraction(carma, cstate, cam_in, state, icol, cldfrc, rhcrit, rc)
      13             :     use carma_precision_mod
      14             :     use carma_enums_mod
      15             :     use carma_constants_mod
      16             :     use carma_types_mod
      17             :     use carma_model_mod
      18             :     use carma_flags_mod
      19             :     use carmaelement_mod
      20             :     use carmagas_mod
      21             :     use carmagroup_mod
      22             :     use carmasolute_mod
      23             :     use carmastate_mod
      24             :     use carma_mod
      25             :   
      26             :     use physics_types,    only : physics_state
      27             :     use camsrfexch,       only : cam_in_t
      28             :     use ppgrid,           only : pver
      29             :   
      30             :     type(carma_type)        :: carma            !! the carma object
      31             :     type(carmastate_type)   :: cstate           !! the carma state object
      32             :     type(cam_in_t)          :: cam_in
      33             :     type(physics_state)     :: state            !! physics state variables
      34             :     integer                 :: icol             !! column index
      35             :     real(kind=f)            :: cldfrc(pver)     !! total cloud fraction [fraction]
      36             :     real(kind=f)            :: rhcrit(pver)     !! realtive humidity for onset of liquid clouds [fraction]
      37             :     integer                 :: rc               !! return code, negative indicates failure
      38             : 
      39     1050624 :     rc = RC_OK
      40             : 
      41    74594304 :     cldfrc(:) = 1._f
      42    74594304 :     rhcrit(:) = 1._f
      43             :     
      44     1050624 :     return
      45     1050624 :   end subroutine CARMA_CloudFraction
      46             : 
      47             :