- Timestamp:
- 2011-06-27T13:18:25+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
r2715 r2789 55 55 !!--------------------------------------------------------------------- 56 56 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 57 USE oce , ONLY: zwd => ta , zws => sa ! (ta,sa) used as3D workspace57 USE oce , ONLY: tsa ! tsa used as 2 3D workspace 58 58 USE wrk_nemo, ONLY: zwi => wrk_3d_3 ! 3D workspace 59 59 !! … … 63 63 INTEGER :: ji, jj, jk ! dummy loop indices 64 64 REAL(wp) :: z1_p2dt, zcoef, zzwi, zzws, zrhs ! local scalars 65 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwd, zws 65 66 !!---------------------------------------------------------------------- 66 67 … … 68 69 CALL ctl_stop('dyn_zdf_imp: requested workspace array unavailable') ; RETURN 69 70 END IF 70 71 ! 72 zwd => tsa(:,:,:,1) 73 zws => tsa(:,:,:,2) 74 ! 71 75 IF( kt == nit000 ) THEN 72 76 IF(lwp) WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.