- 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/DYN/dynnxt.F90
r2633 r2636 37 37 USE in_out_manager ! I/O manager 38 38 USE lbclnk ! lateral boundary condition (or mpp link) 39 USE lib_mpp ! MPP library 39 40 USE prtctl ! Print control 40 41 #if defined key_agrif … … 110 111 !!---------------------------------------------------------------------- 111 112 112 IF(wrk_in_use(2, 1,2,3))THEN 113 CALL ctl_stop('dyn_nxt: requested workspace arrays unavailable.') 114 RETURN 115 END IF 113 IF( wrk_in_use(2, 1,2,3) ) THEN 114 CALL ctl_stop('dyn_nxt: requested workspace arrays unavailable') ; RETURN 115 ENDIF 116 116 117 117 IF( kt == nit000 ) THEN … … 325 325 & tab3d_2=vn, clinfo2=' Vn: ' , mask2=vmask ) 326 326 ! 327 IF(wrk_not_released(2, 1,2,3))THEN 328 CALL ctl_stop('dyn_nxt: failed to release workspace arrays.') 329 END IF 327 IF( wrk_not_released(2, 1,2,3) ) CALL ctl_stop('dyn_nxt: failed to release workspace arrays.') 330 328 ! 331 329 END SUBROUTINE dyn_nxt
Note: See TracChangeset
for help on using the changeset viewer.