sucldp.F90

Go to the documentation of this file.

SUBROUTINE sucldp


!**** *SUCLDP*   - INITIALIZE COMMON YOECLD CONTROLLING *CLOUDSC*

!     PURPOSE.
!     --------
!           INITIALIZE YOECLDP

!**   INTERFACE.
!     ----------
!        CALL *SUCLDP* FROM *SUPHEC*
!              ------        ------

!        EXPLICIT ARGUMENTS :
!        --------------------
!        NONE

!        IMPLICIT ARGUMENTS :
!        --------------------
!        COMMON YOECLDP

!     METHOD.
!     -------
!        SEE DOCUMENTATION

!     EXTERNALS.
!     ----------
!        NONE

!     REFERENCE.
!     ----------
!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
!     "INTEGRATED FORECASTING SYSTEM"

!     AUTHOR.
!     -------
!        C.JAKOB   *ECMWF*

!     MODIFICATIONS.
!     --------------
!        ORIGINAL : 94-02-07
!     ------------------------------------------------------------------


#include "tsmbkind.h"

USE yomcst   , ONLY : rg
USE yoecldp  , ONLY : ramid    ,rcldiff  ,rclcrit  ,rkconv   ,&
            &rprc1    ,rprc2    ,rcldmax  ,rpecons  ,rtaumel  ,&
            &rentrtu  ,rentrra  ,ramin    ,rlmin    ,rasmice  ,&
            &rbsmice



!*       1.    SET VALUES
!              ----------



IMPLICIT NONE
ramid=0.8_jprb
rcldiff=1.e-6_jprb

rclcrit=0.3e-3_jprb
rkconv=1.e-4_jprb
rprc1=100._jprb
rprc2=0.5_jprb
rcldmax=5.e-3_jprb

rpecons=5.44e-4_jprb/rg
rtaumel=5._jprb*3.6e3_jprb

rentrtu=0.5_jprb
rentrra=0.5_jprb

ramin=1.e-8_jprb
rlmin=1.e-8_jprb

rasmice=0.252_jprb
rbsmice=0.837_jprb


!     -----------------------------------------------------------------

RETURN
END SUBROUTINE sucldp