Changeset 26 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3


Ignore:
Timestamp:
Jul 22, 2014, 10:43:14 AM (10 years ago)
Author:
lfita
Message:

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

Location:
branches/LMDZ_WRFmeas/WRFV3
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas/WRFV3/dyn_em/solve_em.F

    r6 r26  
    861861
    862862   IF (grid%t_2(im2,iz,jm2) /= grid%t_2(im2,iz,jm2) .OR. ABS(grid%t_2(im2,iz,jm2)) > 10000. ) THEN
    863      PRINT errmsg
     863     PRINT *,TRIM(errmsg)
    864864     WRITE(wrF_err_message,*)'solve_em: wrong T value=',                 &
    865865       grid%t_2(im2,iz,jm2),' at: ', im2,', ', iz,', ', jm2,' !!!'
    … …  
    873873! Checking for NaNs (should not be necessary but....)
    874874   IF (grid%psfc(im2,jm2) /= grid%psfc(im2,jm2) .OR. ABS(grid%psfc(im2,jm2)) > 1000000. ) THEN
    875      PRINT errmsg
     875     PRINT *,errmsg
    876876     WRITE(wrF_err_message,*)'solve_em: wrong PSFC value=',               &
    877877       grid%psfc(im2,jm2),' at: ', im2 ,', ', jm2, ' !!!'

  • branches/LMDZ_WRFmeas/WRFV3/lmdz/dimensions.h

    r25 r26  
    22       INTEGER iim,jjm,llm,ndm,wiim,wjjm,wbdym
    33
    4        PARAMETER (iim= 1, jjm=14061, llm=38,ndm=1,wiim=129,wjjm=109,wbdym=5)
     4       PARAMETER (iim= 1, jjm=7031, llm=38,ndm=1,wiim=79,wjjm=89,wbdym=5)
    55
Note: See TracChangeset for help on using the changeset viewer.