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

LMDZ5/trunk/libf/phylmd/physiq_mod.F90

@@ -2137 +2137 @@
 
        !jyg+nrlmd<
-       IF (prt_level .ge. 2 .and. mod(iflag_pbl_split,2) .eq. 1) THEN
+!!jyg       IF (prt_level .ge. 2 .and. mod(iflag_pbl_split,2) .eq. 1) THEN
+       IF (prt_level .ge. 2 .and. mod(iflag_pbl_split,10) .ge. 1) THEN
           print *,'debut du splitting de la PBL'
        ENDIF
@@ -2217 +2218 @@
        !
        !  Add turbulent diffusion tendency to the wake difference variables
-       IF (mod(iflag_pbl_split,2) .NE. 0) THEN
+!!jyg       IF (mod(iflag_pbl_split,2) .NE. 0) THEN
+       IF (mod(iflag_pbl_split,10) .NE. 0) THEN
 !jyg<
           d_deltat_vdf(:,:) = d_t_vdf_w(:,:)-d_t_vdf_x(:,:)
@@ -2829 +2831 @@
        IF (iflag_thermals>=1) THEN
           !jyg<
-          IF (mod(iflag_pbl_split/2,2) .EQ. 1) THEN
+!!       IF (mod(iflag_pbl_split/2,2) .EQ. 1) THEN
+       IF (mod(iflag_pbl_split/10,10) .GE. 1) THEN
              !  Appel des thermiques avec les profils exterieurs aux poches
              DO k=1,klev
@@ -2874 +2877 @@
           !
           !jyg<
-          IF (mod(iflag_pbl_split/2,2) .EQ. 1) THEN
+!!jyg          IF (mod(iflag_pbl_split/2,2) .EQ. 1) THEN
+          IF (mod(iflag_pbl_split/10,10) .GE. 1) THEN
              !  Si les thermiques ne sont presents que hors des
              !  poches, la tendance moyenne associ\'ee doit etre
@@ -2896 +2900 @@
              call prt_enerbil('the',itap)
           !
-          ENDIF  ! (mod(iflag_pbl_split/2,2) .EQ. 1)
+          ENDIF  ! (mod(iflag_pbl_split/10,10) .GE. 1)
           !
           CALL add_phys_tend(d_u_ajs,d_v_ajs,d_t_ajs,d_q_ajs,  &