Changeset 5489 for LMDZ6/branches/contrails/libf/phylmd/conf_phys_m.f90

Timestamp:

Jan 17, 2025, 6:16:25 PM (13 days ago)

Author:

aborella

Message:

Merge with trunk

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/conf_phys_m.f90 (modified) (4 diffs)

LMDZ6/branches/contrails/libf/phylmd/conf_phys_m.f90

@@ -213 +213 @@
     LOGICAL, SAVE :: ok_lic_cond_omp
     !
-    REAL, SAVE    :: zrel_oro_t_omp, zstd_orodr_t_omp
+    REAL, SAVE    :: nm_oro_t_omp, zstd_orodr_t_omp
     REAL, SAVE    :: zpmm_orodr_t_omp, zpmm_orolf_t_omp
     INTEGER, SAVE :: iflag_cycle_diurne_omp
@@ -893 +893 @@
 
 
-    !Config  Key  =  zrel_oro_t
-    !Config  Desc = zrel_oro_t
-    !Config  Def  = 9999.
+    !Config  Key  =  nm_oro_t
+    !Config  Desc = nm_oro_t
+    !Config  Def  = -1
     !Config  Help = Connais pas !
-    zrel_oro_t_omp = 9999.
-    CALL getin('zrel_oro_t', zrel_oro_t_omp)
+    nm_oro_t_omp = -1.
+    CALL getin('nm_oro_t', nm_oro_t_omp)
 
     !Config  Key  =  zstd_orodr_t
@@ -2313 +2313 @@
     ok_orodr = ok_orodr_omp
     ok_orolf = ok_orolf_omp
-    zrel_oro_t=zrel_oro_t_omp
+    nm_oro_t=nm_oro_t_omp
     zstd_orodr_t=zstd_orodr_t_omp
     zpmm_orodr_t=zpmm_orodr_t_omp
@@ -2732 +2732 @@
     WRITE(lunout,*) ' ok_orodr=',ok_orodr
     WRITE(lunout,*) ' ok_orolf=',ok_orolf
-    WRITE(lunout,*) ' zrel_oro_t=',zrel_oro_t
+    WRITE(lunout,*) ' nm_oro_t=',nm_oro_t
     WRITE(lunout,*) ' zstd_orodr_t=',zstd_orodr_t
     WRITE(lunout,*) ' zpmm_orodr_t=',zpmm_orodr_t