Changeset 7 in lmdz_wrf for WRFV3/lmdz/coef_diff_turb_mod.F90

Timestamp:

Jul 18, 2014, 11:23:50 AM (10 years ago)

Author:

lfita

Message:

Removing checking prints from the development process

File:

• WRFV3/lmdz/coef_diff_turb_mod.F90 (modified) (5 diffs)

WRFV3/lmdz/coef_diff_turb_mod.F90

@@ -80 +80 @@
 !****************************************************************************************
 
-    PRINT *,'  Lluis iflag_pbl: ',iflag_pbl,' ok_kzmin: ',ok_kzmin
-    PRINT *,'  Lluis in coef_diff_turb_mod before coefkz2 1 k ycoefh ycoefh0 ___'
     IF (iflag_pbl.EQ.1) THEN
        CALL coefkz2(nsrf, knon, ypaprs, ypplay, yt, &
@@ -90 +88 @@
              ycoefm(i,k) = MAX(ycoefm(i,k),ycoefm0(i,k))
              ycoefh(i,k) = MAX(ycoefh(i,k),ycoefh0(i,k))
-! Lluis
-             IF (i == 1) PRINT *,k,ycoefh(i,k),ycoefh0(i,k)
           ENDDO
        ENDDO
@@ -101 +97 @@
 !
 !****************************************************************************************
-    PRINT *,'  Lluis: after coefkzmin k,ycoefh,ycoefh0____'
     IF (ok_kzmin) THEN
        CALL coefkzmin(knon,ypaprs,ypplay,yu,yv,yt,yq,ycdragm, &
@@ -110 +105 @@
              ycoefm(i,k) = MAX(ycoefm(i,k),ycoefm0(i,k))
              ycoefh(i,k) = MAX(ycoefh(i,k),ycoefh0(i,k))
-! Lluis
-             IF (i == 1) PRINT *,k,ycoefh(i,k),ycoefh0(i,k)
           ENDDO
        ENDDO
@@ -182 +175 @@
     ENDIF !(iflag_pbl.ge.3)
 
-    PRINT *,'  Lluis UBOUNDS ycoefm: ',UBOUND(ycoefm), ' ycoefh: ', UBOUND(ycoefh)
-    PRINT *,'  Lluis end of coef_diff_turb k yceofm ycoefh_____',klev
-    DO k=1,klev
-      PRINT *,k,ycoefm(1,k),ycoefh(1,k)
-    END DO
-
   END SUBROUTINE coef_diff_turb
 !