Changeset 5019 for LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_ini.F90

Timestamp:

Jul 5, 2024, 10:54:38 AM (4 months ago)

Author:

aborella

Message:

Modification et simplification du calcul de gammasat, modification du role de temp_nowater

File:

• LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_ini.F90 (modified) (3 diffs)

LMDZ6/branches/cirrus/libf/phylmd/lmdz_lscp_ini.F90

@@ -40 +40 @@
   !$OMP THREADPRIVATE(ztfondue)
 
-  REAL, SAVE, PROTECTED :: temp_nowater=233.15  ! temperature below which liquid water no longer exists
+  REAL, SAVE, PROTECTED :: temp_nowater=235.15  ! temperature below which liquid water no longer exists
   !$OMP THREADPRIVATE(temp_nowater)
 
@@ -363 +363 @@
     CALL getin_p('tresh_cl',tresh_cl)
     CALL getin_p('iflag_oldbug_fisrtilp',iflag_oldbug_fisrtilp)
+    CALL getin_p('temp_nowater',temp_nowater)
     ! for poprecip
     CALL getin_p('ok_poprecip',ok_poprecip)
@@ -441 +442 @@
     WRITE(lunout,*) 'lscp_ini, iflag_oldbug_fisrtilp', iflag_oldbug_fisrtilp
     WRITE(lunout,*) 'lscp_ini, fl_cor_ebil', fl_cor_ebil
+    WRITE(lunout,*) 'lscp_ini, temp_nowater', temp_nowater
     ! for poprecip
     WRITE(lunout,*) 'lscp_ini, ok_poprecip', ok_poprecip