New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3231 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90 – NEMO

Ignore:
Timestamp:
2011-12-21T10:11:11+01:00 (12 years ago)
Author:
smasson
Message:

dev_NEMO_MERGE_2011: supress TARGET attribute for tsa and use work arrays

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv_cen2.F90

    r3186 r3231  
    4949      !! ** Action  :   (ua,va) updated with the now vorticity term trend 
    5050      !!---------------------------------------------------------------------- 
    51       USE oce     , ONLY:   tsa             ! tsa used as 2 3D workspace 
    52       ! 
    5351      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
    5452      ! 
     
    6159      IF( nn_timing == 1 )  CALL timing_start('dyn_adv_cen2') 
    6260      ! 
    63       CALL wrk_alloc( jpi, jpj, jpk, zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfw ) 
    64       zfu => tsa(:,:,:,1)  
    65       zfv => tsa(:,:,:,2)  
     61      CALL wrk_alloc( jpi, jpj, jpk, zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfu, zfv, zfw ) 
    6662      ! 
    6763      IF( kt == nit000 .AND. lwp ) THEN 
     
    163159         &                       tab3d_2=va, clinfo2=           ' Va: ', mask2=vmask, clinfo3='dyn' ) 
    164160      ! 
    165       CALL wrk_dealloc( jpi, jpj, jpk, zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfw ) 
     161      CALL wrk_dealloc( jpi, jpj, jpk, zfu_t, zfv_t, zfu_f, zfv_f, zfu_uw, zfv_vw, zfu, zfv, zfw ) 
    166162      ! 
    167163      IF( nn_timing == 1 )  CALL timing_stop('dyn_adv_cen2') 
Note: See TracChangeset for help on using the changeset viewer.