Changeset 40 in lmdz_wrf

Timestamp:

Jul 23, 2014, 2:43:04 PM (10 years ago)

Author:

lfita

Message:

Adding checkiong prints

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/pbl_surface_mod.F90 (modified) (2 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/pbl_surface_mod.F90

@@ -1247 +1247 @@
     zxfluxt(:,:) = 0.0 ; zxfluxq(:,:) = 0.0
     zxfluxu(:,:) = 0.0 ; zxfluxv(:,:) = 0.0
+    PRINT *,' Lluis checking in nsrf pbl_surface_mod zxfluxt fluxt_t pctsrf 1 ___________'
     DO nsrf = 1, nbsrf
        DO k = 1, klev
@@ -1254 +1255 @@
              zxfluxu(i,k) = zxfluxu(i,k) + flux_u(i,k,nsrf) * pctsrf(i,nsrf)
              zxfluxv(i,k) = zxfluxv(i,k) + flux_v(i,k,nsrf) * pctsrf(i,nsrf)
+             IF (i == 734 .AND. k == 1) THEN
+               PRINT *,nsrf, zxfluxt(i,1) fluxt_t(i,1,nsrf), pctsrf(i,nsrf)
+             END IF
+
           END DO
        END DO