- 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/TRA/traadv_eiv.F90
r2528 r2590 64 64 !! ** Action : - add to p.n the eiv component 65 65 !!---------------------------------------------------------------------- 66 USE wrk_nemo, ONLY: wrk_use, wrk_release 67 USE wrk_nemo, ONLY: zu_eiv => wrk_2d_1, zv_eiv => wrk_2d_2, & 68 zw_eiv => wrk_2d_3 69 # if defined key_diaeiv 70 USE wrk_nemo, ONLY: z2d => wrk_2d_4 71 #endif 66 72 INTEGER , INTENT(in ) :: kt ! ocean time-step index 67 73 CHARACTER(len=3) , INTENT(in ) :: cdtype ! =TRA or TRC (tracer indicator) … … 73 79 REAL(wp) :: zuwk, zuwk1, zuwi, zuwi1 ! local scalars 74 80 REAL(wp) :: zvwk, zvwk1, zvwj, zvwj1 ! - - 75 REAL(wp), DIMENSION(jpi,jpj) :: zu_eiv, zv_eiv, zw_eiv ! 2D workspace76 81 # if defined key_diaeiv 77 82 REAL(wp) :: zztmp ! local scalar 78 REAL(wp), DIMENSION(jpi,jpj) :: z2d ! 2D workspace79 83 # endif 80 84 !!---------------------------------------------------------------------- 85 86 # if defined key_diaeiv 87 IF(.not. wrk_use(2, 1,2,3,4))THEN 88 #else 89 IF(.not. wrk_use(2, 1,2,3))THEN 90 #endif 91 CALL ctl_stop('tra_adv_eiv: ERROR: requested workspace arrays are unavailable.') 92 RETURN 93 END IF 81 94 82 95 IF( kt == nit000 ) THEN … … 180 193 # endif 181 194 ! 195 # if defined key_diaeiv 196 IF(.not. wrk_release(2, 1,2,3,4))THEN 197 #else 198 IF(.not. wrk_release(2, 1,2,3))THEN 199 #endif 200 CALL ctl_stop('tra_adv_eiv: ERROR: failed to release workspace arrays.') 201 END IF 202 ! 182 203 END SUBROUTINE tra_adv_eiv 183 204
Note: See TracChangeset
for help on using the changeset viewer.