Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90
r2715 r3294 22 22 USE in_out_manager ! I/O manager 23 23 USE lib_mpp ! MPP library 24 USE wrk_nemo ! Memory Allocation 25 USE timing ! Timing 26 24 27 25 28 IMPLICIT NONE … … 54 57 !! ** Action : - Update (ua,va) with the vertical diffusive trend 55 58 !!--------------------------------------------------------------------- 56 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released57 USE oce , ONLY: zwx => ta , zwy => sa ! (ta,sa) used as 3D workspace58 USE wrk_nemo, ONLY: zwz => wrk_3d_1 , zww => wrk_3d_2 ! 3D workspace59 !60 59 INTEGER , INTENT(in) :: kt ! ocean time-step index 61 60 REAL(wp), INTENT(in) :: p2dt ! time-step … … 63 62 INTEGER :: ji, jj, jk, jl ! dummy loop indices 64 63 REAL(wp) :: zrau0r, zlavmr, zua, zva ! local scalars 64 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwx, zwy, zwz, zww 65 65 !!---------------------------------------------------------------------- 66 67 IF( wrk_in_use(3, 1,2) ) THEN68 CALL ctl_stop('dyn_zdf_exp: requested workspace arrays unavailable') ; RETURN69 ENDIF70 66 ! 67 IF( nn_timing == 1 ) CALL timing_start('dyn_zdf_exp') 68 ! 69 CALL wrk_alloc( jpi,jpj,jpk, zwx, zwy, zwz, zww ) 70 ! 71 71 IF( kt == nit000 .AND. lwp ) THEN 72 72 WRITE(numout,*) … … 120 120 END DO ! End of time splitting 121 121 ! 122 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('dyn_zdf_exp: failed to release workspace arrays') 122 CALL wrk_dealloc( jpi,jpj,jpk, zwx, zwy, zwz, zww ) 123 ! 124 IF( nn_timing == 1 ) CALL timing_stop('dyn_zdf_exp') 123 125 ! 124 126 END SUBROUTINE dyn_zdf_exp
Note: See TracChangeset
for help on using the changeset viewer.