Changeset 2715 for trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90
- Timestamp:
- 2011-03-30T17:58:35+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfeiv.F90
r2528 r2715 53 53 !! - wslpi, wslpj : i- and j-slopes of neutral surfaces at w-points. 54 54 !!---------------------------------------------------------------------- 55 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 56 USE wrk_nemo, ONLY: zn => wrk_2d_1 , zah => wrk_2d_2 ! 2D workspace 57 USE wrk_nemo, ONLY: zhw => wrk_2d_3 , zross => wrk_2d_4 58 ! 55 59 INTEGER, INTENT(in) :: kt ! ocean time-step inedx 56 ! !60 ! 57 61 INTEGER :: ji, jj, jk ! dummy loop indices 58 62 REAL(wp) :: zfw, ze3w, zn2, zf20, zaht, zaht_min ! temporary scalars 59 REAL(wp), DIMENSION(jpi,jpj) :: zn, zah, zhw, zross ! 2D workspace60 63 !!---------------------------------------------------------------------- 61 64 65 IF( wrk_in_use(2, 1,2,3,4) ) THEN 66 CALL ctl_stop('ldf_eiv: requested workspace arrays are unavailable.') ; RETURN 67 ENDIF 68 62 69 IF( kt == nit000 ) THEN 63 70 IF(lwp) WRITE(numout,*) … … 235 242 CALL iom_put( "aht2d" , ahtw ) ! lateral eddy diffusivity 236 243 CALL iom_put( "aht2d_eiv", aeiw ) ! EIV lateral eddy diffusivity 244 ! 245 IF( wrk_not_released(2, 1,2,3,4) ) CALL ctl_stop('ldf_eiv: failed to release workspace arrays') 237 246 ! 238 247 END SUBROUTINE ldf_eiv … … 244 253 CONTAINS 245 254 SUBROUTINE ldf_eiv( kt ) ! Empty routine 255 INTEGER :: kt 246 256 WRITE(*,*) 'ldf_eiv: You should not have seen this print! error?', kt 247 257 END SUBROUTINE ldf_eiv
Note: See TracChangeset
for help on using the changeset viewer.