Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynkeg.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/dynkeg.F90
r2777 r3294 19 19 USE lib_mpp ! MPP library 20 20 USE prtctl ! Print control 21 USE wrk_nemo ! Memory Allocation 22 USE timing ! Timing 21 23 22 24 IMPLICIT NONE … … 52 54 !! - save this trends (l_trddyn=T) for post-processing 53 55 !!---------------------------------------------------------------------- 54 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released55 USE oce , ONLY: ztrdu => ta , ztrdv => sa ! (ta,sa) used as 3D workspace56 USE wrk_nemo, ONLY: zhke => wrk_3d_1 ! 3D workspace57 !!58 56 INTEGER, INTENT( in ) :: kt ! ocean time-step index 59 57 !! 60 58 INTEGER :: ji, jj, jk ! dummy loop indices 61 59 REAL(wp) :: zu, zv ! temporary scalars 60 REAL(wp), POINTER, DIMENSION(:,:,:) :: zhke 61 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdu, ztrdv 62 62 !!---------------------------------------------------------------------- 63 64 IF( wrk_in_use(3,1) ) THEN65 CALL ctl_stop('dyn_keg: requested workspace array is unavailable') ; RETURN66 ENDIF67 63 ! 64 IF( nn_timing == 1 ) CALL timing_start('dyn_keg') 65 ! 66 CALL wrk_alloc( jpi, jpj, jpk, zhke ) 67 ! 68 68 IF( kt == nit000 ) THEN 69 69 IF(lwp) WRITE(numout,*) … … 73 73 74 74 IF( l_trddyn ) THEN ! Save ua and va trends 75 CALL wrk_alloc( jpi,jpj,jpk, ztrdu, ztrdv ) 75 76 ztrdu(:,:,:) = ua(:,:,:) 76 77 ztrdv(:,:,:) = va(:,:,:) … … 131 132 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 132 133 CALL trd_mod( ztrdu, ztrdv, jpdyn_trd_keg, 'DYN', kt ) 134 CALL wrk_dealloc( jpi,jpj,jpk, ztrdu, ztrdv ) 133 135 ENDIF 134 136 ! … … 136 138 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 137 139 ! 138 IF( wrk_not_released(3, 1) ) CALL ctl_stop('dyn_keg: failed to release workspace array') 140 CALL wrk_dealloc( jpi, jpj, jpk, zhke ) 141 ! 142 IF( nn_timing == 1 ) CALL timing_stop('dyn_keg') 139 143 ! 140 144 END SUBROUTINE dyn_keg
Note: See TracChangeset
for help on using the changeset viewer.