- 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/OPA_SRC/ZDF/zdfkpp.F90
r2633 r2636 28 28 USE zdfddm ! double diffusion mixing 29 29 USE in_out_manager ! I/O manager 30 USE lib_mpp ! MPP library 30 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 31 32 USE prtctl ! Print control … … 167 168 ! 168 169 IF( lk_mpp ) CALL mpp_sum ( zdf_kpp_alloc ) 169 IF( zdf_kpp_alloc /= 0 ) CALL ctl_warn('zdf_kpp_alloc: failed to allocate arrays .')170 IF( zdf_kpp_alloc /= 0 ) CALL ctl_warn('zdf_kpp_alloc: failed to allocate arrays') 170 171 END FUNCTION zdf_kpp_alloc 171 172 … … 1236 1237 IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 1237 1238 wrk_not_released(2, 1,2,3,4,5,6,7,8,9,10,11) .OR. & 1238 wrk_not_released_xz(1,2,3) ) CALL ctl_stop('zdf_kpp : failed to release workspace arrays .')1239 wrk_not_released_xz(1,2,3) ) CALL ctl_stop('zdf_kpp : failed to release workspace arrays') 1239 1240 ! 1240 1241 END SUBROUTINE zdf_kpp
Note: See TracChangeset
for help on using the changeset viewer.