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

Timestamp:

Apr 14, 2017, 12:38:26 PM (8 years ago)

Author:

jyg

Message:

Changing from a binary code to a decimal code:
iflag_pbl_split= 0-> no splitting;
1-> vdf splitting;
10-> thermals splitting;
11-> full splitting

File:

• LMDZ5/trunk/libf/phylmd/conf_phys_m.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -1369 +1369 @@
     !
     !Config Key  = iflag_pbl_split
-    !Config Desc = binary flag: least signif bit = split vdf; next bit = split thermals
+    !Config Desc = decimal flag: least signif digit = split vdf; next digit = split thermals
     !Config Def  = 0
-    !Config Help = 0-> no splitting; 1-> vdf splitting; 2-> thermals splitting; 3-> full splitting
+    !Config Help = 0-> no splitting; 1-> vdf splitting; 10-> thermals splitting; 11-> full splitting
     !
     iflag_pbl_split_omp = 0
-    CALL getin('iflag_pbl_split',iflag_pbl_split_omp)
+    call getin('iflag_pbl_split',iflag_pbl_split_omp)
     !
     !Config Key  = iflag_order2_sollw