Changeset 3392 for LMDZ6/trunk/libf/phylmd

Timestamp:

Sep 16, 2018, 5:57:56 PM (6 years ago)

Author:

oboucher

Message:

end of cosmetic changes

File:

• LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90 (modified) (6 diffs)

LMDZ6/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1443 +1443 @@
 
 ! --- special Dice: on force cdragm ( a defaut de forcer ustar) MPL 05082013
-     IF (ok_prescr_ust) then
+     IF (ok_prescr_ust) THEN
       DO i = 1, knon
        print *,'ycdragm avant=',ycdragm(i)
@@ -1474 +1474 @@
 
 ! --- special Dice. JYG+MPL 25112013
-        IF (ok_prescr_ust) then
+        IF (ok_prescr_ust) THEN
          DO i = 1, knon
 !         print *,'ycdragm_x avant=',ycdragm_x(i)
@@ -1503 +1503 @@
 
 ! --- special Dice. JYG+MPL 25112013 puis BOMEX
-        IF (ok_prescr_ust) then
+        IF (ok_prescr_ust) THEN
          DO i = 1, knon
 !         print *,'ycdragm_w avant=',ycdragm_w(i)
@@ -1997 +1997 @@
 !****************************************************************************************
 
-       IF (evap0>=0.) THEn
+       IF (evap0>=0.) THEN
           yevap(:)=evap0
           yevap(:)=RLVTT*evap0
@@ -2263 +2263 @@
 
 !!! jyg le 07/02/2012
-       IF (iflag_split .eq.0) THEN
+       IF (iflag_split.EQ.0) THEN
 !!!
         DO k = 1, klev
@@ -2274 +2274 @@
              y_d_v(j,k)  = y_d_v(j,k) * ypct(j)
 !FC
-             IF  (nsrf .EQ. is_ter .and. ifl_pbltree .ge. 1  ) THEn
+             IF  (nsrf .EQ. is_ter .and. ifl_pbltree .GE. 1) THEN
 !            if (y_d_u_frein(j,k).ne.0. ) then
 !        print*, nsrf,'IS_TER ++', y_d_u_frein(j,k)*ypct(j),y_d_u(j,k),j,k