- 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_dh.F90
r2633 r2636 103 103 104 104 IF( wrk_in_use(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22) ) THEN 105 CALL ctl_stop('lim_thd_dh : requestead workspace arrays unavailable.') ; RETURN106 END 105 CALL ctl_stop('lim_thd_dh: requestead workspace arrays unavailable') ; RETURN 106 ENDIF 107 107 ! Set-up pointers to sub-arrays of workspace arrays 108 108 zh_i => wrk_1d_1 (1:jpij) ! ice layer thickness … … 700 700 ! 701 701 IF( wrk_not_released(1, 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21) ) & 702 & CALL ctl_stop('lim_thd_dh : failed to release workspace arrays.')702 CALL ctl_stop('lim_thd_dh : failed to release workspace arrays') 703 703 ! 704 704 END SUBROUTINE lim_thd_dh
Note: See TracChangeset
for help on using the changeset viewer.