Changeset 5142 for LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_YOECUMF.f90

Timestamp:

Jul 29, 2024, 3:07:34 PM (3 months ago)

Author:

abarral

Message:

Put cvparam.h, fcg_gcssold.h, planete.h, tsoilnudge.h, YOECUMF.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_YOECUMF.f90 (moved) (moved from LMDZ6/branches/Amaury_dev/libf/phylmd/YOECUMF.h) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/lmdz_YOECUMF.f90

@@ +1 @@
+MODULE lmdz_YOECUMF
+  !     ----------------------------------------------------------------
+  !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
+  !     ----------------------------------------------------------------
 
-! $Id$
+  IMPLICIT NONE; PRIVATE
+  PUBLIC ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
+          CPRCON, LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV
 
-!  ATTENTION!!!!: ce fichier include est compatible format fixe/format libre
-!                 veillez n'utiliser que des ! pour les commentaires
-!                 et bien positionner les & des lignes de continuation
-!                 (les placer en colonne 6 et en colonne 73)
+  LOGICAL          LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV
+  REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
+  REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
+  !$OMP THREADPRIVATE(ENTRPEN, ENTRSCV, ENTRMID, ENTRDD, CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, &
+  !$OMP      CPRCON, LMFPEN, LMFSCV, LMFMID, LMFDD, LMFDUDV)
 
-!     ----------------------------------------------------------------
-!*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
-!     ----------------------------------------------------------------
+  !*if (DOC,declared) <> 'UNKNOWN'
+  !*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
 
-      COMMON /YOECUMF/                                                  &
-                       ENTRPEN,ENTRSCV,ENTRMID,ENTRDD,CMFCTOP,          &
-                       CMFCMAX,CMFCMIN,CMFDEPS,RHCDD,CPRCON,            &
-                       LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
+  !     M.TIEDTKE       E. C. M. W. F.      18/1/89
 
+  !     NAME      TYPE      PURPOSE
+  !     ----      ----      -------
 
-      LOGICAL          LMFPEN,LMFSCV,LMFMID,LMFDD,LMFDUDV
-      REAL ENTRPEN, ENTRSCV, ENTRMID, ENTRDD
-      REAL CMFCTOP, CMFCMAX, CMFCMIN, CMFDEPS, RHCDD, CPRCON
-!$OMP THREADPRIVATE(/YOECUMF/)
-
-!*if (DOC,declared) <> 'UNKNOWN'
-!*    *COMMON* *YOECUMF* - PARAMETERS FOR CUMULUS MASSFLUX SCHEME
-
-!     M.TIEDTKE       E. C. M. W. F.      18/1/89
-
-!     NAME      TYPE      PURPOSE
-!     ----      ----      -------
-
-!     LMFPEN    LOGICAL  TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
-!     LMFSCV    LOGICAL  TRUE IF SHALLOW     CONVECTION IS SWITCHED ON
-!     LMFMID    LOGICAL  TRUE IF MIDLEVEL    CONVECTION IS SWITCHED ON
-!     LMFDD     LOGICAL  TRUE IF CUMULUS DOWNDRAFT      IS SWITCHED ON
-!     LMFDUDV   LOGICAL  TRUE IF CUMULUS FRICTION       IS SWITCHED ON
-!     ENTRPEN   REAL     ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
-!     ENTRSCV   REAL     ENTRAINMENT RATE FOR SHALLOW CONVECTION
-!     ENTRMID   REAL     ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
-!     ENTRDD    REAL     ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
-!     CMFCTOP   REAL     RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
-!     CMFCMAX   REAL     MAXIMUM MASSFLUX VALUE ALLOWED FOR
-!     CMFCMIN   REAL     MINIMUM MASSFLUX VALUE (FOR SAFETY)
-!     CMFDEPS   REAL     FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
-!     RHCDD     REAL     RELATIVE SATURATION IN DOWNDRAFTS
-!     CPRCON    REAL     COEFFICIENTS FOR DETERMINING CONVERSION
-!                        FROM CLOUD WATER TO RAIN
-!*ifend
-!     ----------------------------------------------------------------
+  !     LMFPEN    LOGICAL  TRUE IF PENETRATIVE CONVECTION IS SWITCHED ON
+  !     LMFSCV    LOGICAL  TRUE IF SHALLOW     CONVECTION IS SWITCHED ON
+  !     LMFMID    LOGICAL  TRUE IF MIDLEVEL    CONVECTION IS SWITCHED ON
+  !     LMFDD     LOGICAL  TRUE IF CUMULUS DOWNDRAFT      IS SWITCHED ON
+  !     LMFDUDV   LOGICAL  TRUE IF CUMULUS FRICTION       IS SWITCHED ON
+  !     ENTRPEN   REAL     ENTRAINMENT RATE FOR PENETRATIVE CONVECTION
+  !     ENTRSCV   REAL     ENTRAINMENT RATE FOR SHALLOW CONVECTION
+  !     ENTRMID   REAL     ENTRAINMENT RATE FOR MIDLEVEL CONVECTION
+  !     ENTRDD    REAL     ENTRAINMENT RATE FOR CUMULUS DOWNDRAFTS
+  !     CMFCTOP   REAL     RELAT. CLOUD MASSFLUX AT LEVEL ABOVE NONBUOYANC
+  !     CMFCMAX   REAL     MAXIMUM MASSFLUX VALUE ALLOWED FOR
+  !     CMFCMIN   REAL     MINIMUM MASSFLUX VALUE (FOR SAFETY)
+  !     CMFDEPS   REAL     FRACTIONAL MASSFLUX FOR DOWNDRAFTS AT LFS
+  !     RHCDD     REAL     RELATIVE SATURATION IN DOWNDRAFTS
+  !     CPRCON    REAL     COEFFICIENTS FOR DETERMINING CONVERSION
+  !                        FROM CLOUD WATER TO RAIN
+  !*ifend
+  !     ----------------------------------------------------------------
+END MODULE lmdz_YOECUMF