Changeset 2311 for LMDZ5/trunk/libf/phylmd/aeropt_5wv.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/aeropt_5wv.F90
r2146 r2311 588 588 A1_SSSSM(klev), A2_SSSSM(klev), A3_SSSSM(klev),& 589 589 B1_SSSSM(klev), B2_SSSSM(klev), C1_SSSSM(klev), C2_SSSSM(klev), stat=ierr) 590 IF (ierr /= 0) CALL abort_ gcm('aeropt_5mw', 'pb in allocation 1',1)590 IF (ierr /= 0) CALL abort_physic('aeropt_5mw', 'pb in allocation 1',1) 591 591 END IF 592 592
Note: See TracChangeset
for help on using the changeset viewer.