Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf.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.F90
r2715 r3294 25 25 USE lib_mpp ! MPP library 26 26 USE prtctl ! Print control 27 USE wrk_nemo ! Memory Allocation 28 USE timing ! Timing 27 29 28 30 IMPLICIT NONE … … 53 55 !! ** Purpose : compute the vertical ocean dynamics physics. 54 56 !!--------------------------------------------------------------------- 55 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released56 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1 , ztrdv => wrk_3d_2 ! 3D workspace57 57 !! 58 58 INTEGER, INTENT( in ) :: kt ! ocean time-step index 59 ! 60 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv 59 61 !!--------------------------------------------------------------------- 60 61 IF( wrk_in_use(3, 1,2) ) THEN 62 CALL ctl_stop('dyn_zdf: requested workspace arrays unavailable') ; RETURN 63 END IF 62 ! 63 IF( nn_timing == 1 ) CALL timing_start('dyn_zdf') 64 ! 64 65 ! ! set time step 65 66 IF( neuler == 0 .AND. kt == nit000 ) THEN ; r2dt = rdt ! = rdtra (restart with Euler time stepping) … … 68 69 69 70 IF( l_trddyn ) THEN ! temporary save of ta and sa trends 71 CALL wrk_alloc( jpi, jpj, jpk, ztrdu, ztrdv ) 70 72 ztrdu(:,:,:) = ua(:,:,:) 71 73 ztrdv(:,:,:) = va(:,:,:) … … 90 92 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 91 93 CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_zdf, 'DYN', kt ) 94 ! 95 CALL wrk_dealloc( jpi, jpj, jpk, ztrdu, ztrdv ) 92 96 ENDIF 93 97 ! ! print mean trends (used for debugging) … … 95 99 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 96 100 ! 97 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('dyn_zdf: failed to release workspace arrays')101 IF( nn_timing == 1 ) CALL timing_stop('dyn_zdf') 98 102 ! 99 103 END SUBROUTINE dyn_zdf
Note: See TracChangeset
for help on using the changeset viewer.