Changeset 2311 for LMDZ5/trunk/libf/phylmd/limit_slab.F90
- Timestamp:
- Jun 25, 2015, 9:45:24 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/limit_slab.F90
r2209 r2311 113 113 !**************************************************************************************** 114 114 ierr = NF90_CLOSE(nid) 115 IF (ierr /= NF90_NOERR) CALL abort_ gcm(modname,'Pb when closing file', 1)115 IF (ierr /= NF90_NOERR) CALL abort_physic(modname,'Pb when closing file', 1) 116 116 END IF ! Read File 117 117 IF (read_sst) THEN … … 133 133 IF (.NOT. ALLOCATED(bils_save)) THEN 134 134 ALLOCATE(bils_save(klon), diff_sst_save(klon), diff_siv_save(klon), stat=ierr) 135 IF (ierr /= 0) CALL abort_ gcm('limit_slab', 'pb in allocation',1)135 IF (ierr /= 0) CALL abort_physic('limit_slab', 'pb in allocation',1) 136 136 END IF 137 137
Note: See TracChangeset
for help on using the changeset viewer.