Changeset 2544 for LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90

Timestamp:

Jun 7, 2016, 8:55:31 AM (8 years ago)

Author:

Laurent Fairhead

Message:

Rolling back revision r2543 which should not have been committed straight on
the testing branch
LF

File:

• LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90 (modified) (4 diffs)

LMDZ5/branches/testing/libf/phylmd/conf_phys_m.F90

@@ -165 +165 @@
     INTEGER,SAVE :: iflag_ice_thermo_omp
     INTEGER,SAVE :: iflag_t_glace_omp
-
-
-
-    INTEGER,SAVE :: iflag_cloudth_vert_omp
-
-
-    
     REAL,SAVE :: rad_froid_omp, rad_chau1_omp, rad_chau2_omp
     REAL,SAVE :: t_glace_min_omp, t_glace_max_omp
@@ -1167 +1160 @@
     call getin('iflag_t_glace',iflag_t_glace_omp)
 
-
-
-
-
-    !
-    !Config Key  = iflag_cloudth_vert
-    !Config Desc =  
-    !Config Def  = 0
-    !Config Help = 
-    !
-    iflag_cloudth_vert_omp = 0
-    call getin('iflag_cloudth_vert',iflag_cloudth_vert_omp)
-
-
-
-
-
-
-
-
-
-
     !
     !Config Key  = iflag_ice_thermo
@@ -2073 +2044 @@
     exposant_glace = exposant_glace_omp
     iflag_t_glace = iflag_t_glace_omp
-
-
-    iflag_cloudth_vert=iflag_cloudth_vert_omp
-
-
-
     iflag_ice_thermo = iflag_ice_thermo_omp
     rei_min = rei_min_omp
@@ -2396 +2361 @@
     write(lunout,*)' exposant_glace = ',exposant_glace
     write(lunout,*)' iflag_t_glace = ',iflag_t_glace
-
-
-
-    write(lunout,*)' iflag_cloudth_vert = ',iflag_cloudth_vert
-
-
-
     write(lunout,*)' iflag_ice_thermo = ',iflag_ice_thermo
     write(lunout,*)' rei_min = ',rei_min