- 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/LIM_SRC_3/limthd_lac.F90
r2633 r2636 28 28 USE wrk_nemo ! workspace manager 29 29 USE in_out_manager ! I/O manager 30 USE lib_mpp ! MPP library 30 31 31 32 IMPLICIT NONE … … 690 691 ! 691 692 IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14) .OR. & 692 &wrk_not_released(2, 1,2,3,4,5,6,7,8) ) &693 & CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays.' )693 wrk_not_released(2, 1,2,3,4,5,6,7,8) ) & 694 CALL ctl_stop( 'lim_thd_lac : failed to release workspace arrays' ) 694 695 ! 695 696 END SUBROUTINE lim_thd_lac
Note: See TracChangeset
for help on using the changeset viewer.