Changeset 61 in lmdz_wrf


Ignore:
Timestamp:
Jul 23, 2014, 6:06:03 PM (10 years ago)
Author:
lfita
Message:

Increassing largest value for ec_tot

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90

    r60 r61  
    764764      END IF
    765765
    766       IF (ec_tot .NE. ec_tot .OR. ABS(ec_tot) > largest) THEN
     766      IF (ec_tot .NE. ec_tot .OR. ABS(ec_tot) > largest*10.e4) THEN
    767767        PRINT *,TRIM(errmsg)
    768768        PRINT *,'  ' // TRIM(fname) // ': Wrong ec_tot= ',ec_tot,' !!!'
Note: See TracChangeset for help on using the changeset viewer.