Changeset 2311 for LMDZ5/trunk/libf/phylmd/orografi_strato.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/orografi_strato.F90
r2048 r2311 1558 1558 IF (nlon/=klon .OR. nlev/=klev) THEN 1559 1559 abort_message = 'pb dimension' 1560 CALL abort_ gcm(modname, abort_message, 1)1560 CALL abort_physic(modname, abort_message, 1) 1561 1561 END IF 1562 1562 zcons1 = 1./rd … … 1873 1873 PRINT *, ' DANS SUGWD nktopg=', nktopg 1874 1874 PRINT *, ' DANS SUGWD nstra=', nstra 1875 if (nstra == 0) call abort_ gcm("sugwd_strato", "no level in stratosphere", 1)1875 if (nstra == 0) call abort_physic("sugwd_strato", "no level in stratosphere", 1) 1876 1876 1877 1877 gsigcr = 0.80
Note: See TracChangeset
for help on using the changeset viewer.