Changeset 2789 for branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl2.F90
- 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_muscl2.F90
r2715 r2789 61 61 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 62 62 USE oce , ONLY: zwx => ua , zwy => va ! (ua,va) used as 3D workspace 63 USE wrk_nemo, ONLY: zslpx => wrk_3d_1 , zslpy => wrk_3d_2 ! 3D workspace63 USE wrk_nemo, ONLY: zslpx => wrk_3d_11, zslpy => wrk_3d_12 ! 3D workspace 64 64 !! 65 65 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 77 77 !!---------------------------------------------------------------------- 78 78 79 IF( wrk_in_use(3, 1 ,2) ) THEN79 IF( wrk_in_use(3, 11,12) ) THEN 80 80 CALL ctl_stop('tra_adv_muscl2: requested workspace arrays are unavailable') ; RETURN 81 81 ENDIF … … 285 285 END DO 286 286 ! 287 IF( wrk_not_released(3, 1 ,2) ) CALL ctl_stop('tra_adv_muscl2: failed to release workspace arrays')287 IF( wrk_not_released(3, 11,12) ) CALL ctl_stop('tra_adv_muscl2: failed to release workspace arrays') 288 288 ! 289 289 END SUBROUTINE tra_adv_muscl2
Note: See TracChangeset
for help on using the changeset viewer.