Changeset 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90
r2777 r3294 22 22 USE limvar ! LIM variables 23 23 USE in_out_manager ! I/O manager 24 USE lib_mpp ! MPP library 24 USE lib_mpp ! MPP library 25 USE wrk_nemo ! work arrays 25 26 26 27 IMPLICIT NONE … … 49 50 !! -> num_sal = 4 -> S = S(h) [Cox and Weeks 74] 50 51 !!--------------------------------------------------------------------- 51 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released52 USE wrk_nemo, ONLY: wrk_1d_1, wrk_1d_2, wrk_1d_353 !54 52 INTEGER, INTENT(in) :: kideb, kiut ! thickness category index 55 53 ! … … 58 56 REAL(wp) :: zsold, iflush, iaccrbo, igravdr, isnowic, i_ice_switch, ztmelts ! local scalars 59 57 REAL(wp) :: zaaa, zbbb, zccc, zdiscrim ! local scalars 60 !61 58 REAL(wp), POINTER, DIMENSION(:) :: ze_init, zhiold, zsiold 62 59 !!--------------------------------------------------------------------- 63 60 64 IF( wrk_in_use(1, 1,2,3) ) THEN 65 CALL ctl_stop('lim_thd_sal : requestead workspace arrays unavailable.') ; RETURN 66 END IF 67 ! Set-up pointers to sub-arrays of workspace arrays 68 ze_init => wrk_1d_1 (1:jpij) 69 zhiold => wrk_1d_2 (1:jpij) 70 zsiold => wrk_1d_3 (1:jpij) 61 CALL wrk_alloc( jpij, ze_init, zhiold, zsiold ) 71 62 72 63 !------------------------------------------------------------------------------| … … 240 231 ENDIF 241 232 ! 242 IF( wrk_not_released(1, 1,2,3) ) CALL ctl_stop( 'lim_thd_sal : failed to release workspace arrays')233 CALL wrk_dealloc( jpij, ze_init, zhiold, zsiold ) 243 234 ! 244 235 END SUBROUTINE lim_thd_sal
Note: See TracChangeset
for help on using the changeset viewer.