Changeset 61 in lmdz_wrf
- Timestamp:
- Jul 23, 2014, 6:06:03 PM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/LMDZ_WRFmeas/WRFV3/lmdz/diagphy_mod.F90
r60 r61 764 764 END IF 765 765 766 IF (ec_tot .NE. ec_tot .OR. ABS(ec_tot) > largest ) THEN766 IF (ec_tot .NE. ec_tot .OR. ABS(ec_tot) > largest*10.e4) THEN 767 767 PRINT *,TRIM(errmsg) 768 768 PRINT *,' ' // TRIM(fname) // ': Wrong ec_tot= ',ec_tot,' !!!'
Note: See TracChangeset
for help on using the changeset viewer.