Changeset 2663


Ignore:
Timestamp:
2011-03-07T14:05:06+01:00 (10 years ago)
Author:
trackstand2
Message:

Changed which workspace arrays traadv_tvd uses to avoid clash in GYRE_LOBSTER

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/dev_r2586_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90

    r2633 r2663  
    6969      USE oce         , zwy => va   ! use va as workspace 
    7070      USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released 
    71       USE wrk_nemo, ONLY: zwi => wrk_3d_6, zwz => wrk_3d_7 
     71      USE wrk_nemo, ONLY: zwi => wrk_3d_12, zwz => wrk_3d_13 
    7272      !! 
    7373      INTEGER                              , INTENT(in   ) ::   kt              ! ocean time-step index 
     
    8787      !!---------------------------------------------------------------------- 
    8888 
    89       IF(wrk_in_use(3, 6,7))THEN 
     89      IF(wrk_in_use(3, 12,13))THEN 
    9090         CALL ctl_stop('tra_adv_tvd: ERROR: requested workspace arrays unavailable') 
    9191         RETURN 
     
    248248      END IF 
    249249      ! 
    250       IF(wrk_not_released(3, 6,7))THEN 
     250      IF(wrk_not_released(3, 12,13))THEN 
    251251         CALL ctl_stop('tra_adv_tvd: ERROR: failed to release workspace arrays') 
    252252      END IF 
Note: See TracChangeset for help on using the changeset viewer.