Changeset 26 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/dyn_em

Timestamp:

Jul 22, 2014, 10:43:14 AM (11 years ago)

Author:

lfita

Message:

Fixing wrong PRINT statement
New dimensions due to model use (different domains)

File:

• branches/LMDZ_WRFmeas/WRFV3/dyn_em/solve_em.F (modified) (2 diffs)

branches/LMDZ_WRFmeas/WRFV3/dyn_em/solve_em.F

@@ -861 +861 @@
 
    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
+     PRINT *,TRIM(errmsg)
      WRITE(wrF_err_message,*)'solve_em: wrong T value=',                 &
        grid%t_2(im2,iz,jm2),' at: ', im2,', ', iz,', ', jm2,' !!!'
@@ -873 +873 @@
 ! 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, ' !!!'