Changeset 4 for vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

Timestamp:

02/08/12 17:17:04 (12 years ago)

Author:

cholod

Message:

Load NEMO_TMP into vendor/nemo/current.

File:

• vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90 (modified) (4 diffs)

vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

@@ -61 +61 @@
    !!----------------------------------------------------------------------
    !! NEMO/OPA 3.3 , NEMO Consortium (2010)
-   !! $Id: dynvor.F90 3186 2011-11-27 08:16:19Z smasson $
+   !! $Id: dynvor.F90 3294 2012-01-28 16:44:18Z rblod $
    !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -75 +75 @@
       !!               and planetary vorticity trends) ('key_trddyn')
       !!----------------------------------------------------------------------
-      USE oce, ONLY:   tsa            ! tsa used as 2 3D workspace
-      !!
       INTEGER, INTENT( in ) ::   kt   ! ocean time-step index
       !
@@ -84 +82 @@
       IF( nn_timing == 1 )  CALL timing_start('dyn_vor')
       !
-      IF( l_trddyn )   THEN
-         ztrdu => tsa(:,:,:,1) 
-         ztrdv => tsa(:,:,:,2) 
-      END IF
+      IF( l_trddyn )   CALL wrk_alloc( jpi,jpj,jpk, ztrdu, ztrdv )
       !
       !                                          ! vorticity term 
@@ -187 +182 @@
       IF(ln_ctl) CALL prt_ctl( tab3d_1=ua, clinfo1=' vor  - Ua: ', mask1=umask,               &
          &                     tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' )
+      !
+      IF( l_trddyn )   CALL wrk_dealloc( jpi,jpj,jpk, ztrdu, ztrdv )
       !
       IF( nn_timing == 1 )  CALL timing_stop('dyn_vor')