Changeset 4951 for LMDZ6/branches/cirrus/libf/phylmd/conf_phys_m.F90

Timestamp:

May 23, 2024, 12:02:33 PM (6 months ago)

Author:

aborella

Message:

New version of condensation and ice supersaturation in LSCP.
Multiple changes troughout the code (in particular, two new water phase tracers).

File:

• LMDZ6/branches/cirrus/libf/phylmd/conf_phys_m.F90 (modified) (5 diffs)

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

@@ -173 +173 @@
     INTEGER,SAVE :: iflag_clw_omp
     INTEGER,SAVE :: iflag_ice_thermo_omp
-    LOGICAL,SAVE :: ok_ice_sursat_omp
+    LOGICAL,SAVE :: ok_ice_supersat_omp
     LOGICAL,SAVE :: ok_plane_h2o_omp, ok_plane_contrail_omp
     REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
@@ -1347 +1347 @@
 
     !
-    !Config Key  = ok_ice_sursat
-    !Config Desc =
-    !Config Def  = 0
-    !Config Help =
-    !
-    ok_ice_sursat_omp = 0
-    CALL getin('ok_ice_sursat',ok_ice_sursat_omp)
+    !Config Key  = ok_ice_supersat
+    !Config Desc = include ice supersaturation for cold clouds
+    !Config Def  = .FALSE.
+    !Config Help =
+    !
+    ok_ice_supersat_omp = .FALSE.
+    CALL getin('ok_ice_supersat',ok_ice_supersat_omp)
 
     !Config Key  = ok_plane_h2o
-    !Config Desc =
-    !Config Def  = 0
+    !Config Desc = include H2O emissions from aviation
+    !Config Def  = .FALSE.
     !Config Help =
     !
@@ -1364 +1364 @@
 
     !Config Key  = ok_plane_contrail
-    !Config Desc =
-    !Config Def  = 0
+    !Config Desc = include the formation of contrail cirrus clouds
+    !Config Def  = .FALSE.
     !Config Help =
     !
@@ -2345 +2345 @@
     rad_chau2 = rad_chau2_omp
     iflag_ice_thermo = iflag_ice_thermo_omp
-    ok_ice_sursat = ok_ice_sursat_omp
+    ok_ice_supersat = ok_ice_supersat_omp
     ok_plane_h2o = ok_plane_h2o_omp
     ok_plane_contrail = ok_plane_contrail_omp
@@ -2770 +2770 @@
     WRITE(lunout,*) ' rad_chau2 = ',rad_chau2
     WRITE(lunout,*) ' iflag_ice_thermo = ',iflag_ice_thermo
-    WRITE(lunout,*) ' ok_ice_sursat = ',ok_ice_sursat
+    WRITE(lunout,*) ' ok_ice_supersat = ',ok_ice_supersat
     WRITE(lunout,*) ' ok_plane_h2o = ',ok_plane_h2o
     WRITE(lunout,*) ' ok_plane_contrail = ',ok_plane_contrail