Changeset 4707 for LMDZ6/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

Sep 25, 2023, 8:19:15 PM (9 months ago)

Author:

Laurent Fairhead

Message:

Continuing on from the morning's poihl workshop: getting rid of the includes in the routine

File:

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

LMDZ6/trunk/libf/phylmd/conf_phys_m.F90

@@ -175 +175 @@
     LOGICAL,SAVE :: ok_ice_sursat_omp
     LOGICAL,SAVE :: ok_plane_h2o_omp, ok_plane_contrail_omp
-    INTEGER,SAVE :: iflag_rei_omp
     REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
-    REAL,SAVE :: rei_min_omp, rei_max_omp
     INTEGER,SAVE :: iflag_sic_omp, iflag_inertie_omp
     REAL,SAVE :: inertie_sol_omp,inertie_sno_omp,inertie_sic_omp
@@ -1308 +1306 @@
 
 
-    !Config Key  = iflag_rei
-    !Config Desc =  
-    !Config Def  = 0
-    !Config Help = 
-    !
-    iflag_rei_omp = 0
-    CALL getin('iflag_rei',iflag_rei_omp)
-
-
     !
     !Config Key  = iflag_ice_thermo
@@ -1350 +1339 @@
     ok_plane_contrail_omp = .FALSE.
     CALL getin('ok_plane_contrail',ok_plane_contrail_omp)
-
-    !
-    !Config Key  = rei_min
-    !Config Desc =  
-    !Config Def  = 3.5
-    !Config Help = 
-    !
-    rei_min_omp = 3.5
-    CALL getin('rei_min',rei_min_omp)
-
-    !
-    !Config Key  = rei_max
-    !Config Desc =  
-    !Config Def  = 61.29
-    !Config Help = 
-    !
-    rei_max_omp = 61.29
-    CALL getin('rei_max',rei_max_omp)
 
     !
@@ -2318 +2289 @@
     rad_chau1 = rad_chau1_omp
     rad_chau2 = rad_chau2_omp
-    iflag_rei=iflag_rei_omp
     iflag_ice_thermo = iflag_ice_thermo_omp
     ok_ice_sursat = ok_ice_sursat_omp
     ok_plane_h2o = ok_plane_h2o_omp
     ok_plane_contrail = ok_plane_contrail_omp
-    rei_min = rei_min_omp
-    rei_max = rei_max_omp
     top_height = top_height_omp
     overlap = overlap_omp
@@ -2739 +2707 @@
     WRITE(lunout,*) ' rad_chau1 = ',rad_chau1
     WRITE(lunout,*) ' rad_chau2 = ',rad_chau2
-    WRITE(lunout,*) ' iflag_rei = ',iflag_rei
     WRITE(lunout,*) ' iflag_ice_thermo = ',iflag_ice_thermo
     WRITE(lunout,*) ' ok_ice_sursat = ',ok_ice_sursat
     WRITE(lunout,*) ' ok_plane_h2o = ',ok_plane_h2o
     WRITE(lunout,*) ' ok_plane_contrail = ',ok_plane_contrail
-    WRITE(lunout,*) ' rei_min = ',rei_min
-    WRITE(lunout,*) ' rei_max = ',rei_max
     WRITE(lunout,*) ' overlap = ',overlap 
     WRITE(lunout,*) ' cdmmax = ',cdmmax