Changeset 2311 for LMDZ5/trunk/libf/phylmd/radlwsw_m.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/radlwsw_m.F90
r2297 r2311 171 171 include "YOMCST.h" 172 172 include "clesphys.h" 173 include "iniprint.h"174 173 175 174 ! Input arguments … … 393 392 IF (nb_gr*kdlon .NE. KLON) THEN 394 393 PRINT*, "kdlon mauvais:", KLON, kdlon, nb_gr 395 call abort_ gcm("radlwsw", "", 1)394 call abort_physic("radlwsw", "", 1) 396 395 ENDIF 397 396 IF (kflev .NE. KLEV) THEN 398 397 PRINT*, "kflev differe de KLEV, kflev, KLEV" 399 call abort_ gcm("radlwsw", "", 1)398 call abort_physic("radlwsw", "", 1) 400 399 ENDIF 401 400 !------------------------------------------- … … 1027 1026 #else 1028 1027 abort_message="You should compile with -rrtm if running with iflag_rrtm=1" 1029 call abort_ gcm(modname, abort_message, 1)1028 call abort_physic(modname, abort_message, 1) 1030 1029 #endif 1031 1030 ENDIF ! iflag_rrtm
Note: See TracChangeset
for help on using the changeset viewer.