Changeset 3294 for trunk/NEMOGCM/NEMO/LIM_SRC_3/limhdf.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/limhdf.F90
r2715 r3294 18 18 USE lbclnk ! lateral boundary condition - MPP exchanges 19 19 USE lib_mpp ! MPP library 20 USE wrk_nemo ! work arrays 20 21 USE prtctl ! Print control 21 22 USE in_out_manager ! I/O manager … … 50 51 !! ** Action : update ptab with the diffusive contribution 51 52 !!------------------------------------------------------------------- 52 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released53 USE wrk_nemo, ONLY: zflu => wrk_2d_11, zdiv => wrk_2d_13, zrlx => wrk_2d_1554 USE wrk_nemo, ONLY: zflv => wrk_2d_12, zdiv0 => wrk_2d_14, ztab0 => wrk_2d_1655 !56 53 REAL(wp), DIMENSION(jpi,jpj), INTENT( inout ) :: ptab ! Field on which the diffusion is applied 57 54 ! … … 59 56 INTEGER :: its, iter, ierr ! local integers 60 57 REAL(wp) :: zalfa, zrlxint, zconv, zeps ! local scalars 58 REAL(wp), POINTER, DIMENSION(:,:) :: zrlx, zflu, zflv, zdiv0, zdiv, ztab0 61 59 CHARACTER(lc) :: charout ! local character 62 60 !!------------------------------------------------------------------- 63 61 64 IF( wrk_in_use(2, 11,12,13,14,15,16) ) THEN 65 CALL ctl_stop( 'lim_hdf: requested workspace arrays unavailable' ) ; RETURN 66 ENDIF 62 CALL wrk_alloc( jpi, jpj, zrlx, zflu, zflv, zdiv0, zdiv, ztab0 ) 67 63 68 64 ! !== Initialisation ==! … … 146 142 ENDIF 147 143 ! 148 IF( wrk_not_released(2, 11,12,13,14,15,16) ) CALL ctl_stop('lim_hdf: failed to release workspace arrays')144 CALL wrk_dealloc( jpi, jpj, zrlx, zflu, zflv, zdiv0, zdiv, ztab0 ) 149 145 ! 150 146 END SUBROUTINE lim_hdf
Note: See TracChangeset
for help on using the changeset viewer.