Changeset 2072 for LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

Timestamp:

Jun 23, 2014, 4:53:24 PM (10 years ago)

Author:

lguez

Message:

Chose more specific variable names.

File:

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

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -186 +186 @@
     LOGICAL,SAVE :: ok_strato_omp
     LOGICAL,SAVE :: ok_hines_omp, ok_gwd_rando_omp
-    real, SAVE:: RUWMAX_omp, sat_omp
+    real, SAVE:: GWD_RANDO_RUWMAX_omp, gwd_rando_sat_omp
     LOGICAL,SAVE      :: carbon_cycle_tr_omp
     LOGICAL,SAVE      :: carbon_cycle_cpl_omp
@@ -1687 +1687 @@
     CALL getin('ok_gwd_rando', ok_gwd_rando_omp)
 
-    RUWMAX_omp = 0.01
-    CALL getin('ruwmax', RUWMAX_omp)
-
-    sat_omp = 0.25
-    CALL getin('sat', sat_omp)
+    GWD_RANDO_RUWMAX_omp = 0.01
+    CALL getin('gwd_rando_ruwmax', GWD_RANDO_RUWMAX_omp)
+
+    gwd_rando_sat_omp = 0.25
+    CALL getin('gwd_rando_sat', gwd_rando_sat_omp)
 
     !Config Key  = OK_LES                                               
@@ -1917 +1917 @@
     ok_hines = ok_hines_omp
     ok_gwd_rando = ok_gwd_rando_omp
-    RUWMAX = RUWMAX_omp
-    sat = sat_omp
+    GWD_RANDO_RUWMAX = GWD_RANDO_RUWMAX_omp
+    gwd_rando_sat = gwd_rando_sat_omp
     ok_LES = ok_LES_omp
     callstats = callstats_omp
@@ -2109 +2109 @@
     write(lunout,*) 'ok_hines = ',  ok_hines
     write(lunout,*) 'ok_gwd_rando = ',  ok_gwd_rando
-    write(lunout,*) 'RUWMAX = ', RUWMAX
-    write(lunout,*) 'sat = ', sat
+    write(lunout,*) 'GWD_RANDO_RUWMAX = ', GWD_RANDO_RUWMAX
+    write(lunout,*) 'gwd_rando_sat = ', gwd_rando_sat
     write(lunout,*) 'read_climoz = ', read_climoz
     write(lunout,*) 'carbon_cycle_tr = ', carbon_cycle_tr