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

Timestamp:

Apr 14, 2017, 12:38:26 PM (7 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/pbl_surface_mod.F90 (modified) (12 diffs)

LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -6 +6 @@
 ! Planetary Boundary Layer and Surface module
 !
-! This module manage the calculation of turbulent diffusion in the boundary layer 
+! This module manages the calculation of turbulent diffusion in the boundary layer 
 ! and all interactions towards the differents sub-surfaces.
 !
@@ -778 +778 @@
       IF (prt_level >=10) print *,' -> pbl_surface, itap ',itap
 !
-      iflag_split = mod(iflag_pbl_split,2)
+!!jyg      iflag_split = mod(iflag_pbl_split,2)
+      iflag_split = mod(iflag_pbl_split,10)
 
 !****************************************************************************************
@@ -1239 +1240 @@
         ENDDO
 !
-       IF (iflag_split .eq.1) THEN
+       IF (iflag_split .ge.1) THEN
 !!! nrlmd le 02/05/2011
         DO k = 1, klev
@@ -1287 +1288 @@
         ENDDO
 !!!
-       ENDIF  ! (iflag_split .eq.1)
+       ENDIF  ! (iflag_split .ge.1)
 !!!
        DO k = 1, nsoilmx
@@ -2047 +2048 @@
          print*,'effusivity,facteur,cstar', effusivity, facteur,wake_cstar(j)
         ENDDO
-       ENDIF
+       ENDIF  ! (prt_level >=10)
 
 !!! jyg le 07/02/2012
@@ -2282 +2283 @@
 
 !!! jyg le 07/02/2012
-       IF (iflag_split .eq.1) THEN
+       IF (iflag_split .ge.1) THEN
 !!!
 !!! nrlmd le 02/05/2011
@@ -2302 +2303 @@
         END DO
 !!!      
-       ENDIF  ! (iflag_split .eq.1)
+       ENDIF  ! (iflag_split .ge.1)
 !!!
 !!! nrlmd le 02/05/2011
@@ -2337 +2338 @@
         END DO
 
-       ELSE
+       ELSE  ! (iflag_split .eq.0)
         DO k = 1, klev
           DO j = 1, knon
@@ -2384 +2385 @@
        
 !!! jyg le 07/02/2012
-       IF (iflag_split .eq.1) THEN
+       IF (iflag_split .ge.1) THEN
 !!!
 !!! nrlmd+jyg le 02/05/2011 et le 20/02/2012
@@ -2407 +2408 @@
         END DO
 !!!
-       ENDIF  ! (iflag_split .eq.1)
+       ENDIF  ! (iflag_split .ge.1)
 !!!
        
@@ -2752 +2753 @@
 
 !!! jyg le 07/02/2012
-       IF (iflag_split .eq.1) THEN
+       IF (iflag_split .ge.1) THEN
 !!!
 !!! nrlmd & jyg les 02/05/2011, 05/02/2012
@@ -2777 +2778 @@
     END DO
 !!!
-       ENDIF  ! (iflag_split .eq.1)
+       ENDIF  ! (iflag_split .ge.1)
 !!!