- Timestamp:
- 2019-11-04T19:00:27+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isf.F90
r11844 r11852 14 14 !!---------------------------------------------------------------------- 15 15 16 USE in_out_manager ! I/O manager17 USE lib_mpp ! MPP library16 USE in_out_manager, ONLY: wp, jpi,jpj, jpk, jpts ! I/O manager 17 USE lib_mpp , ONLY: ctl_stop, mpp_sum ! MPP library 18 18 USE fldread ! read input fields 19 19 … … 197 197 ! 198 198 CALL mpp_sum ( 'isf', ierr ) 199 IF( ierr /= 0 ) CALL ctl_ warn('STOP','isfcpl: failed to allocate arrays.')199 IF( ierr /= 0 ) CALL ctl_stop('STOP','isfcpl: failed to allocate arrays.') 200 200 ! 201 201 END SUBROUTINE isf_alloc_cpl
Note: See TracChangeset
for help on using the changeset viewer.