Ignore:
Timestamp:
2011-03-16T09:03:19+01:00 (10 years ago)
Author:
rblod
Message:

Compatibility with key_traldf_ano for dynamic memory

File:
1 edited

Legend:

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

    r2690 r2696  
    7474      !!--------------------------------------------------------------------- 
    7575      USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released 
    76       USE wrk_nemo, ONLY:   zwx => wrk_3d_1, zwy => wrk_3d_2     ! 3D workspace 
     76      USE wrk_nemo, ONLY:   zwx => wrk_3d_6, zwy => wrk_3d_7     ! 3D workspace 
    7777      ! 
    7878      INTEGER                              , INTENT(in   ) ::   kt          ! ocean time-step index 
     
    8989      !!--------------------------------------------------------------------- 
    9090 
    91       IF( wrk_in_use(3, 1,2) ) THEN 
     91      IF( wrk_in_use(3, 6,7) ) THEN 
    9292         CALL ctl_stop('tra_zdf_exp: requested workspace arrays unavailable')   ;   RETURN 
    9393      ENDIF 
     
    164164      END DO 
    165165      ! 
    166       IF( wrk_not_released(3, 1,2) )   CALL ctl_stop('tra_zdf_exp: failed to release workspace arrays') 
     166      IF( wrk_not_released(3, 6,7) )   CALL ctl_stop('tra_zdf_exp: failed to release workspace arrays') 
    167167      ! 
    168168   END SUBROUTINE tra_zdf_exp 
Note: See TracChangeset for help on using the changeset viewer.