Changeset 2311 for LMDZ5/trunk/libf/phylmd/aeropt_2bands.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/aeropt_2bands.F90
r2148 r2311 22 22 23 23 INCLUDE "YOMCST.h" 24 INCLUDE "iniprint.h"25 24 26 25 ! … … 536 535 A1_SSSSM_b2(klev), A2_SSSSM_b2(klev), A3_SSSSM_b2(klev),& 537 536 B1_SSSSM_b2(klev), B2_SSSSM_b2(klev), C1_SSSSM_b2(klev), C2_SSSSM_b2(klev), stat=ierr) 538 IF (ierr /= 0) CALL abort_ gcm('aeropt_2bands', 'pb in allocation 1',1)537 IF (ierr /= 0) CALL abort_physic('aeropt_2bands', 'pb in allocation 1',1) 539 538 END IF 540 539
Note: See TracChangeset
for help on using the changeset viewer.