- 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/TRA/traadv_cen2.F90
r2715 r2789 111 111 !!---------------------------------------------------------------------- 112 112 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 113 USE oce , ONLY: zwx => ua , zwy => va! (ua,va) used as 3D workspace114 USE wrk_nemo, ONLY: zwz => wrk_3d_1 , zind => wrk_3d_2! 3D workspace115 USE wrk_nemo, ONLY: ztfreez => wrk_2d_1 ! 2D -113 USE oce , ONLY: zwx => ua , zwy => va ! (ua,va) used as 3D workspace 114 USE wrk_nemo, ONLY: zwz => wrk_3d_12 , zind => wrk_3d_13 ! 3D workspace 115 USE wrk_nemo, ONLY: ztfreez => wrk_2d_1 ! 2D - 116 116 ! 117 117 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 131 131 !!---------------------------------------------------------------------- 132 132 133 IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 1 ,2) ) THEN133 IF( wrk_in_use(2, 1) .OR. wrk_in_use(3, 12,13) ) THEN 134 134 CALL ctl_stop('tra_adv_cen2: requested workspace arrays unavailable') ; RETURN 135 135 ENDIF … … 276 276 ! 277 277 IF( wrk_not_released(2, 1) .OR. & 278 wrk_not_released(3, 1 ,2) ) CALL ctl_stop('tra_adv_cen2: failed to release workspace arrays')278 wrk_not_released(3, 12,13) ) CALL ctl_stop('tra_adv_cen2: failed to release workspace arrays') 279 279 ! 280 280 END SUBROUTINE tra_adv_cen2
Note: See TracChangeset
for help on using the changeset viewer.