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

Timestamp:

Nov 27, 2014, 4:48:31 PM (10 years ago)

Author:

jyg

Message:

1/ Splitting of the boundary layer : the climbing down and up of Pbl_surface is
split between the off-wake and wake regions ; the thermal scheme is applied
only to the off-wake region.
2/ Elimination of wake_scal and calwake_scal.

File:

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

LMDZ5/trunk/libf/phylmd/conf_phys_m.F90

@@ -164 +164 @@
     REAL, SAVE ::  fmagic_omp, pmagic_omp
     INTEGER,SAVE :: iflag_pbl_omp,lev_histhf_omp,lev_histday_omp,lev_histmth_omp
+    INTEGER,SAVE :: iflag_pbl_split_omp
     Integer, save :: lev_histins_omp, lev_histLES_omp 
     INTEGER, SAVE :: lev_histdayNMC_omp
@@ -1198 +1199 @@
     iflag_pbl_omp = 1
     call getin('iflag_pbl',iflag_pbl_omp)
+    !
+    !Config Key  = iflag_pbl_split
+    !Config Desc = binary flag: least signif bit = split vdf; next bit = split thermals
+    !Config Def  = 0
+    !Config Help = 0-> no splitting; 1-> vdf splitting; 2-> thermals splitting; 3-> full splitting
+    !
+    iflag_pbl_split_omp = 0
+    call getin('iflag_pbl_split',iflag_pbl_split_omp)
     !
     !Config Key  = iflag_thermals
@@ -1854 +1863 @@
     pmagic = pmagic_omp
     iflag_pbl = iflag_pbl_omp
+    iflag_pbl_split = iflag_pbl_split_omp
     lev_histhf = lev_histhf_omp
     lev_histday = lev_histday_omp
@@ -2110 +2120 @@
     write(lunout,*)' freq_calNMC = ',freq_calNMC
     write(lunout,*)' iflag_pbl = ', iflag_pbl
+    write(lunout,*)' iflag_pbl_split = ', iflag_pbl_split
     write(lunout,*)' iflag_thermals = ', iflag_thermals
     write(lunout,*)' iflag_thermals_ed = ', iflag_thermals_ed