Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90
r2715 r3294 25 25 USE prtctl ! Print control 26 26 USE iom ! I/O library 27 USE wrk_nemo ! work arrays 28 USE timing ! Timing 27 29 28 30 IMPLICIT NONE … … 53 55 !! - wslpi, wslpj : i- and j-slopes of neutral surfaces at w-points. 54 56 !!---------------------------------------------------------------------- 55 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released56 USE wrk_nemo, ONLY: zn => wrk_2d_1 , zah => wrk_2d_2 ! 2D workspace57 USE wrk_nemo, ONLY: zhw => wrk_2d_3 , zross => wrk_2d_458 !59 57 INTEGER, INTENT(in) :: kt ! ocean time-step inedx 60 58 ! 61 59 INTEGER :: ji, jj, jk ! dummy loop indices 62 60 REAL(wp) :: zfw, ze3w, zn2, zf20, zaht, zaht_min ! temporary scalars 61 REAL(wp), DIMENSION(:,:), POINTER :: zn, zah, zhw, zross ! 2D workspace 63 62 !!---------------------------------------------------------------------- 64 65 IF( wrk_in_use(2, 1,2,3,4) ) THEN66 CALL ctl_stop('ldf_eiv: requested workspace arrays are unavailable.') ; RETURN67 ENDIF63 ! 64 IF( nn_timing == 1 ) CALL timing_start('ldf_eiv') 65 ! 66 CALL wrk_alloc( jpi,jpj, zn, zah, zhw, zross ) 68 67 69 68 IF( kt == nit000 ) THEN … … 243 242 CALL iom_put( "aht2d_eiv", aeiw ) ! EIV lateral eddy diffusivity 244 243 ! 245 IF( wrk_not_released(2, 1,2,3,4) ) CALL ctl_stop('ldf_eiv: failed to release workspace arrays') 244 CALL wrk_dealloc( jpi,jpj, zn, zah, zhw, zross ) 245 ! 246 IF( nn_timing == 1 ) CALL timing_stop('ldf_eiv') 246 247 ! 247 248 END SUBROUTINE ldf_eiv
Note: See TracChangeset
for help on using the changeset viewer.