Changeset 2852 for LMDZ5/trunk/libf/phylmd/climb_wind_mod.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/climb_wind_mod.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/climb_wind_mod.F90

@@ -172 +172 @@
 !****************************************************************************************
 !!! jyg le 07/02/2012
-       IF (mod(iflag_pbl_split,2) .eq.1) THEN
+!!jyg       IF (mod(iflag_pbl_split,2) .eq.1) THEN
+       IF (mod(iflag_pbl_split,10) .ge.1) THEN
 !!! nrlmd le 02/05/2011
     DO k= 1, klev
@@ -188 +189 @@
     ENDDO
 !!!      
-       ENDIF  ! (mod(iflag_pbl_split,2) .eq.1)
+       ENDIF  ! (mod(iflag_pbl_split,2) .ge.1)
 !!!
 
@@ -308 +309 @@
 
 !!! jyg le 07/02/2012
-       IF (mod(iflag_pbl_split,2) .eq.1) THEN
+!!jyg       IF (mod(iflag_pbl_split,2) .eq.1) THEN
+       IF (mod(iflag_pbl_split,10) .ge.1) THEN
 !!! nrlmd le 02/05/2011
     DO i = 1, knon
@@ -326 +328 @@
     ENDDO
 !!!
-       ENDIF  ! (mod(iflag_pbl_split,2) .eq.1)
+       ENDIF  ! (mod(iflag_pbl_split,2) .ge.1)
 !!!