- Timestamp:
- 2011-03-01T20:04:06+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/LIM_SRC_3/thd_ice.F90
r2601 r2636 8 8 USE par_ice ! LIM-3 parameters 9 9 USE in_out_manager ! I/O manager 10 USE lib_mpp ! MPP library 10 11 11 12 IMPLICIT NONE … … 195 196 thd_ice_alloc = MAXVAL( ierr ) 196 197 197 IF( thd_ice_alloc /= 0 ) THEN 198 CALL ctl_warn( 'thd_ice_alloc: failed to allocate arrays.' ) 199 END IF 198 IF( thd_ice_alloc /= 0 ) CALL ctl_warn( 'thd_ice_alloc: failed to allocate arrays.' ) 200 199 ! 201 200 END FUNCTION thd_ice_alloc
Note: See TracChangeset
for help on using the changeset viewer.