Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilap.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/dynldf_bilap.F90
r2715 r3294 23 23 USE trdmod_oce ! ocean variables trends 24 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 USE wrk_nemo ! Memory Allocation 26 USE timing ! Timing 25 27 26 28 IMPLICIT NONE … … 74 76 !! mixing trend. 75 77 !!---------------------------------------------------------------------- 76 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released77 USE wrk_nemo, ONLY: zcu => wrk_2d_1 , zcv => wrk_2d_2 ! 3D workspace78 USE wrk_nemo, ONLY: zuf => wrk_3d_3 , zut => wrk_3d_4 ! 3D workspace79 USE wrk_nemo, ONLY: zlu => wrk_3d_5 , zlv => wrk_3d_680 78 ! 81 79 INTEGER, INTENT(in) :: kt ! ocean time-step index … … 83 81 INTEGER :: ji, jj, jk ! dummy loop indices 84 82 REAL(wp) :: zua, zva, zbt, ze2u, ze2v ! temporary scalar 83 REAL(wp), POINTER, DIMENSION(:,: ) :: zcu, zcv 84 REAL(wp), POINTER, DIMENSION(:,:,:) :: zuf, zut, zlu, zlv 85 85 !!---------------------------------------------------------------------- 86 87 IF( wrk_in_use(2, 1,2) .OR. wrk_in_use(3, 3,4,5,6) ) THEN 88 CALL ctl_stop('dyn_ldf_bilap : requested workspace arrays unavailable') ; RETURN 89 ENDIF 90 86 ! 87 IF( nn_timing == 1 ) CALL timing_start('dyn_ldf_bilap') 88 ! 89 CALL wrk_alloc( jpi, jpj, zcu, zcv ) 90 CALL wrk_alloc( jpi, jpj, jpk, zuf, zut, zlu, zlv ) 91 ! 91 92 IF( kt == nit000 .AND. lwp ) THEN 92 93 WRITE(numout,*) … … 207 208 END DO ! End of slab 208 209 ! ! =============== 209 IF( wrk_not_released(2, 1,2) .OR. & 210 wrk_not_released(3, 3,4,5,6) ) CALL ctl_stop('dyn_ldf_bilap: failed to release workspace arrays') 210 CALL wrk_dealloc( jpi, jpj, zcu, zcv ) 211 CALL wrk_dealloc( jpi, jpj, jpk, zuf, zut, zlu, zlv ) 212 ! 213 IF( nn_timing == 1 ) CALL timing_stop('dyn_ldf_bilap') 211 214 ! 212 215 END SUBROUTINE dyn_ldf_bilap
Note: See TracChangeset
for help on using the changeset viewer.