- 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_qck.F90
r2715 r2789 117 117 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 118 118 USE oce , ONLY: zwx => ua ! ua used as workspace 119 USE wrk_nemo, ONLY: zfu => wrk_3d_1 , zfc => wrk_3d_2, zfd => wrk_3d_3 ! 3D workspace119 USE wrk_nemo, ONLY: zfu => wrk_3d_11 , zfc => wrk_3d_12, zfd => wrk_3d_13 ! 3D workspace 120 120 ! 121 121 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 131 131 !---------------------------------------------------------------------- 132 132 ! 133 IF( wrk_in_use(3, 1 ,2,3) ) THEN133 IF( wrk_in_use(3, 11,12,13) ) THEN 134 134 CALL ctl_stop('tra_adv_qck_i: requested workspace arrays unavailable') ; RETURN 135 135 ENDIF … … 228 228 END DO 229 229 ! 230 IF( wrk_not_released(3, 1 ,2,3) ) CALL ctl_stop('tra_adv_qck_i: failed to release workspace arrays')230 IF( wrk_not_released(3, 11,12,13) ) CALL ctl_stop('tra_adv_qck_i: failed to release workspace arrays') 231 231 ! 232 232 END SUBROUTINE tra_adv_qck_i … … 240 240 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 241 241 USE oce , ONLY: zwy => ua ! ua used as workspace 242 USE wrk_nemo, ONLY: zfu => wrk_3d_1 , zfc => wrk_3d_2, zfd => wrk_3d_3 ! 3D workspace242 USE wrk_nemo, ONLY: zfu => wrk_3d_11 , zfc => wrk_3d_12, zfd => wrk_3d_13 ! 3D workspace 243 243 ! 244 244 INTEGER , INTENT(in ) :: kt ! ocean time-step index … … 254 254 !---------------------------------------------------------------------- 255 255 ! 256 IF(wrk_in_use(3, 1 ,2,3))THEN256 IF(wrk_in_use(3, 11,12,13))THEN 257 257 CALL ctl_stop('tra_adv_qck_j: ERROR: requested workspace arrays unavailable') 258 258 RETURN … … 359 359 END DO 360 360 ! 361 IF( wrk_not_released(3, 1 ,2,3) ) CALL ctl_stop('tra_adv_qck_j: failed to release workspace arrays')361 IF( wrk_not_released(3, 11,12,13) ) CALL ctl_stop('tra_adv_qck_j: failed to release workspace arrays') 362 362 ! 363 363 END SUBROUTINE tra_adv_qck_j
Note: See TracChangeset
for help on using the changeset viewer.