Changeset 2663
- Timestamp:
- 2011-03-07T14:05:06+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r2633 r2663 69 69 USE oce , zwy => va ! use va as workspace 70 70 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 71 USE wrk_nemo, ONLY: zwi => wrk_3d_ 6, zwz => wrk_3d_771 USE wrk_nemo, ONLY: zwi => wrk_3d_12, zwz => wrk_3d_13 72 72 !! 73 73 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 87 87 !!---------------------------------------------------------------------- 88 88 89 IF(wrk_in_use(3, 6,7))THEN89 IF(wrk_in_use(3, 12,13))THEN 90 90 CALL ctl_stop('tra_adv_tvd: ERROR: requested workspace arrays unavailable') 91 91 RETURN … … 248 248 END IF 249 249 ! 250 IF(wrk_not_released(3, 6,7))THEN250 IF(wrk_not_released(3, 12,13))THEN 251 251 CALL ctl_stop('tra_adv_tvd: ERROR: failed to release workspace arrays') 252 252 END IF
Note: See TracChangeset
for help on using the changeset viewer.