- Timestamp:
- 2011-02-18T13:49:27+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90
r2528 r2590 56 56 USE oce, ONLY: zwuw => ta ! use ta as 3D workspace 57 57 USE oce, ONLY: zwvw => sa ! use sa as 3D workspace 58 USE wrk_nemo, ONLY: wrk_use, wrk_release 59 USE wrk_nemo, ONLY: zww => wrk_2d_1 60 USE wrk_nemo, ONLY: ztrdu => wrk_3d_1, ztrdv => wrk_3d_2 58 61 !! 59 62 INTEGER, INTENT(in) :: kt ! ocean time-step inedx … … 61 64 INTEGER :: ji, jj, jk ! dummy loop indices 62 65 REAL(wp) :: zua, zva ! temporary scalars 63 REAL(wp), DIMENSION(jpi,jpj) :: zww ! 2D workspace64 REAL(wp), DIMENSION(jpi,jpj,jpk) :: ztrdu, ztrdv ! 3D workspace65 66 !!---------------------------------------------------------------------- 66 67 68 IF( (.NOT. wrk_use(2, 1)) .OR. & 69 (.NOT. wrk_use(3, 1,2)) )THEN 70 CALL ctl_stop('dyn_zad: requested workspace arrays unavailable.') 71 RETURN 72 END IF 73 67 74 IF( kt == nit000 ) THEN 68 75 IF(lwp)WRITE(numout,*) … … 119 126 & tab3d_2=va, clinfo2= ' Va: ', mask2=vmask, clinfo3='dyn' ) 120 127 ! 128 IF( (.NOT. wrk_release(2, 1)) .OR. & 129 (.NOT. wrk_release(3, 1,2)) )THEN 130 CALL ctl_stop('dyn_zad: failed to release workspace arrays.') 131 END IF 132 121 133 END SUBROUTINE dyn_zad 122 134
Note: See TracChangeset
for help on using the changeset viewer.