Changeset 10297 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rdgrft.F90
- Timestamp:
- 2018-11-12T16:20:57+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rdgrft.F90
r10170 r10297 92 92 & ze_i_2d(jpij,nlay_i,jpl), ze_s_2d(jpij,nlay_s,jpl), STAT=ice_dyn_rdgrft_alloc ) 93 93 94 IF( lk_mpp ) CALL mpp_sum ( ice_dyn_rdgrft_alloc )94 IF( lk_mpp ) CALL mpp_sum ( 'icedyn_rdgrft', ice_dyn_rdgrft_alloc ) 95 95 IF( ice_dyn_rdgrft_alloc /= 0 ) CALL ctl_warn( 'ice_dyn_rdgrft_alloc: failed to allocate arrays' ) 96 96 !
Note: See TracChangeset
for help on using the changeset viewer.