Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trazdf_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/TRA/trazdf_exp.F90
r2715 r3294 31 31 USE in_out_manager ! I/O manager 32 32 USE lib_mpp ! MPP library 33 USE wrk_nemo ! Memory Allocation 34 USE timing ! Timing 33 35 34 36 IMPLICIT NONE … … 48 50 CONTAINS 49 51 50 SUBROUTINE tra_zdf_exp( kt, cdtype, p2dt, kn_zdfexp, &52 SUBROUTINE tra_zdf_exp( kt, kit000, cdtype, p2dt, kn_zdfexp, & 51 53 & ptb , pta , kjpt ) 52 54 !!---------------------------------------------------------------------- … … 73 75 !! ** Action : - after tracer fields pta 74 76 !!--------------------------------------------------------------------- 75 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released76 USE wrk_nemo, ONLY: zwx => wrk_3d_6, zwy => wrk_3d_7 ! 3D workspace77 77 ! 78 78 INTEGER , INTENT(in ) :: kt ! ocean time-step index 79 INTEGER , INTENT(in ) :: kit000 ! first time step index 79 80 CHARACTER(len=3) , INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) 80 81 INTEGER , INTENT(in ) :: kjpt ! number of tracers … … 87 88 REAL(wp) :: zlavmr, zave3r, ze3tr ! local scalars 88 89 REAL(wp) :: ztra, ze3tb ! - - 90 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwx, zwy 89 91 !!--------------------------------------------------------------------- 92 ! 93 IF( nn_timing == 1 ) CALL timing_start('tra_zdf_exp') 94 ! 95 CALL wrk_alloc( jpi, jpj, jpk, zwx, zwy ) 96 ! 90 97 91 IF( wrk_in_use(3, 6,7) ) THEN 92 CALL ctl_stop('tra_zdf_exp: requested workspace arrays unavailable') ; RETURN 93 ENDIF 94 95 IF( kt == nit000 ) THEN 98 IF( kt == kit000 ) THEN 96 99 IF(lwp) WRITE(numout,*) 97 100 IF(lwp) WRITE(numout,*) 'tra_zdf_exp : explicit vertical mixing on ', cdtype … … 164 167 END DO 165 168 ! 166 IF( wrk_not_released(3, 6,7) ) CALL ctl_stop('tra_zdf_exp: failed to release workspace arrays') 169 CALL wrk_dealloc( jpi, jpj, jpk, zwx, zwy ) 170 ! 171 IF( nn_timing == 1 ) CALL timing_stop('tra_zdf_exp') 167 172 ! 168 173 END SUBROUTINE tra_zdf_exp
Note: See TracChangeset
for help on using the changeset viewer.