- Timestamp:
- 2011-10-22T15:46:41+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_LOCEAN_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzdf_exp.F90
r2715 r2977 55 55 !!--------------------------------------------------------------------- 56 56 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 57 USE oce , ONLY: zwx => ta , zwy => sa ! (ta,sa) used as3D workspace58 USE wrk_nemo, ONLY: zwz => wrk_3d_ 1 , zww => wrk_3d_2! 3D workspace57 USE oce , ONLY: tsa ! tsa used as 2 3D workspace 58 USE wrk_nemo, ONLY: zwz => wrk_3d_3 , zww => wrk_3d_4 ! 3D workspace 59 59 ! 60 60 INTEGER , INTENT(in) :: kt ! ocean time-step index … … 63 63 INTEGER :: ji, jj, jk, jl ! dummy loop indices 64 64 REAL(wp) :: zrau0r, zlavmr, zua, zva ! local scalars 65 REAL(wp), POINTER, DIMENSION(:,:,:) :: zwx, zwy 65 66 !!---------------------------------------------------------------------- 66 67 67 IF( wrk_in_use(3, 1,2) ) THEN68 IF( wrk_in_use(3, 3,4) ) THEN 68 69 CALL ctl_stop('dyn_zdf_exp: requested workspace arrays unavailable') ; RETURN 69 70 ENDIF 70 71 ! 72 zwx => tsa(:,:,:,1) 73 zwy => tsa(:,:,:,2) 74 ! 71 75 IF( kt == nit000 .AND. lwp ) THEN 72 76 WRITE(numout,*) … … 120 124 END DO ! End of time splitting 121 125 ! 122 IF( wrk_not_released(3, 1,2) ) CALL ctl_stop('dyn_zdf_exp: failed to release workspace arrays')126 IF( wrk_not_released(3, 3,4) ) CALL ctl_stop('dyn_zdf_exp: failed to release workspace arrays') 123 127 ! 124 128 END SUBROUTINE dyn_zdf_exp
Note: See TracChangeset
for help on using the changeset viewer.