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.
ticket/0842_TRA_TRP (diff) – NEMO

Changes between Version 9 and Version 10 of ticket/0842_TRA_TRP


Ignore:
Timestamp:
2011-08-02T12:46:04+02:00 (13 years ago)
Author:
cetlod
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • ticket/0842_TRA_TRP

    v9 v10  
    6666   * in AGRIF 
    6767 
     68{{{ 
     69   SUBROUTINE dyn_vor( kt ) 
     70      !!---------------------------------------------------------------------- 
     71      !! 
     72      !! ** Purpose :   compute the lateral ocean tracer physics. 
     73      !! 
     74      !! ** Action : - Update (ua,va) with the now vorticity term trend 
     75      !!             - save the trends in (ztrdu,ztrdv) in 2 parts (relative 
     76      !!               and planetary vorticity trends) ('key_trddyn') 
     77      !!---------------------------------------------------------------------- 
     78      USE oce, ONLY :   ztrdu => ta   ! use ta as 3D workspace 
     79      USE oce, ONLY :   ztrdv => sa   ! use sa as 3D workspace 
     80      !! 
     81      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
     82      !!---------------------------------------------------------------------- 
     83}}} 
    6884 
     85{{{ 
     86   SUBROUTINE dyn_vor( kt ) 
     87      !!---------------------------------------------------------------------- 
     88      !! 
     89      !! ** Purpose :   compute the lateral ocean tracer physics. 
     90      !! 
     91      !! ** Action : - Update (ua,va) with the now vorticity term trend 
     92      !!             - save the trends in (ztrdu,ztrdv) in 2 parts (relative 
     93      !!               and planetary vorticity trends) ('key_trddyn') 
     94      !!---------------------------------------------------------------------- 
     95      USE oce, ONLY:   tsa            ! tsa used as 2 3D workspace 
     96      !! 
     97      INTEGER, INTENT( in ) ::   kt   ! ocean time-step index 
     98      ! 
     99      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv 
     100      !!---------------------------------------------------------------------- 
     101      ! 
     102      IF( l_trddyn )   THEN 
     103         ztrdu => tsa(:,:,:,1) 
     104         ztrdv => tsa(:,:,:,2) 
     105      END IF 
     106}}} 
    69107''' 
    70108----