Changeset 43 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/dyn_em/solve_em.F

Timestamp:

Jul 23, 2014, 3:06:33 PM (10 years ago)

Author:

lfita

Message:

Removing 'zenang' print tests

File:

• branches/LMDZ_WRFmeas/WRFV3/dyn_em/solve_em.F (modified) (1 diff)

branches/LMDZ_WRFmeas/WRFV3/dyn_em/solve_em.F

@@ -859 +859 @@
    im2 = ims + (ime - ims) / 2
    jm2 = jms + (jme - jms) / 2
-
-   IF (grid%t_2(im2,iz,jm2) /= grid%t_2(im2,iz,jm2) .OR. ABS(grid%t_2(im2,iz,jm2)) > 10000. ) THEN
-     PRINT *,TRIM(errmsg)
-     WRITE(wrF_err_message,*)'solve_em: wrong T value=',                 &
-       grid%t_2(im2,iz,jm2),' at: ', im2,', ', iz,', ', jm2,' !!!'
+   DO iz = kms, kme
+
+     IF (grid%t_2(im2,iz,jm2) /= grid%t_2(im2,iz,jm2) .OR. ABS(grid%t_2(im2,iz,jm2)) > 10000. ) THEN
+       PRINT *,TRIM(errmsg)
+       WRITE(wrF_err_message,*)'solve_em: wrong T value=',                 &
+         grid%t_2(im2,iz,jm2),' at: ', im2,', ', iz,', ', jm2,' !!!'
 #ifdef DM_PARALLEL
-     CALL wrf_error_fatal(TRIM(wrf_err_message))
+       CALL wrf_error_fatal(TRIM(wrf_err_message))
 #else
-     PRINT *,TRIM(wrf_err_message)
-     STOP
-#endif
-   END IF
+       PRINT *,TRIM(wrf_err_message)
+       STOP
+#endif
+     END IF
+   END DO
 ! Checking for NaNs (should not be necessary but....)
    IF (grid%psfc(im2,jm2) /= grid%psfc(im2,jm2) .OR. ABS(grid%psfc(im2,jm2)) > 1000000. ) THEN