Changeset 2789 for branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_muscl.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_muscl.F90
r2715 r2789 63 63 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 64 64 USE oce , ONLY: zwx => ua , zwy => va ! (ua,va) used as workspace 65 USE wrk_nemo, ONLY: zslpx => wrk_3d_1 , zslpy => wrk_3d_2 ! 3D workspace65 USE wrk_nemo, ONLY: zslpx => wrk_3d_11 , zslpy => wrk_3d_12 ! 3D workspace 66 66 ! 67 67 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 79 79 !!---------------------------------------------------------------------- 80 80 81 IF( wrk_in_use(3, 1 ,2) ) THEN81 IF( wrk_in_use(3, 11,12) ) THEN 82 82 CALL ctl_stop('tra_adv_muscl: requested workspace arrays unavailable') ; RETURN 83 83 ENDIF … … 252 252 ENDDO 253 253 ! 254 IF( wrk_not_released(3, 1 ,2) ) CALL ctl_stop('tra_adv_muscl: requested workspace arrays unavailable')254 IF( wrk_not_released(3, 11,12) ) CALL ctl_stop('tra_adv_muscl: requested workspace arrays unavailable') 255 255 ! 256 256 END SUBROUTINE tra_adv_muscl
Note: See TracChangeset
for help on using the changeset viewer.