- Timestamp:
- 2018-09-12T15:59:13+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/LIM_SRC_3/ice.F90
r7806 r10115 419 419 FUNCTION ice_alloc() 420 420 !!----------------------------------------------------------------- 421 !! *** Routine ice_alloc _2***421 !! *** Routine ice_alloc *** 422 422 !!----------------------------------------------------------------- 423 423 INTEGER :: ice_alloc … … 506 506 507 507 ice_alloc = MAXVAL( ierr(:) ) 508 IF( ice_alloc /= 0 ) CALL ctl_warn('ice_alloc _2: failed to allocate arrays.')508 IF( ice_alloc /= 0 ) CALL ctl_warn('ice_alloc: failed to allocate arrays.') 509 509 ! 510 510 END FUNCTION ice_alloc
Note: See TracChangeset
for help on using the changeset viewer.