Changeset 143 in lmdz_wrf for trunk

Timestamp:

Jul 29, 2014, 12:29:13 PM (10 years ago)

Author:

lfita

Message:

Adding daily-cycle fixed issue (hours in LMDZ are normalized!)

File:

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

trunk/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 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
-     PRINT errmsg
+     PRINT *,errmsg
      WRITE(wrF_err_message,*)'solve_em: wrong PSFC value=',               &
        grid%psfc(im2,jm2),' at: ', im2 ,', ', jm2, ' !!!'