Changeset 3150 for LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

Timestamp:

Jan 15, 2018, 6:25:50 PM (6 years ago)

Author:

jyg

Message:

Introducing upper bounds on the convective
tendencies above which convection scheme is called
every time step.

File:

• LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/phys_state_var_mod.F90

@@ -16 +16 @@
       INTEGER, PARAMETER :: nout=3
       INTEGER, PARAMETER :: napisccp=1
-      INTEGER, SAVE :: radpas
-      INTEGER, SAVE :: cvpas
-      INTEGER, SAVE :: wkpas
+      INTEGER, SAVE :: radpas  ! radiation is called every "radpas" step
+      INTEGER, SAVE :: cvpas   ! convection is called every "cvpas" step
+      INTEGER, SAVE :: cvpas_0 ! reference value for cvpas
+      INTEGER, SAVE :: wkpas   ! wake scheme is called every "wkpas" step
       REAL, PARAMETER :: missing_val_nf90=nf90_fill_real
 !$OMP THREADPRIVATE(radpas)
 !$OMP THREADPRIVATE(cvpas)
+!$OMP THREADPRIVATE(cvpas_0)
 !$OMP THREADPRIVATE(wkpas)
       REAL, SAVE :: dtime, solaire_etat0