Changeset 3231 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

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:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90 (modified) (3 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90

@@ -55 +55 @@
       !!              - Save the trends in (ztrdu,ztrdv) ('key_trddyn')
       !!----------------------------------------------------------------------
-      USE oce     , ONLY:   tsa             ! tsa used as 2 3D workspace
-      !!
       INTEGER, INTENT(in) ::   kt   ! ocean time-step inedx
       !
@@ -68 +66 @@
       IF( nn_timing == 1 )  CALL timing_start('dyn_zad')
       !
-      CALL wrk_alloc( jpi, jpj, zww ) 
-      !
-      zwuw  => tsa(:,:,:,1) 
-      zwvw  => tsa(:,:,:,2) 
+      CALL wrk_alloc( jpi,jpj, zww ) 
+      CALL wrk_alloc( jpi,jpj,jpk, zwuw , zwvw ) 
       !
       IF( kt == nit000 ) THEN
@@ -129 +125 @@
          &                       tab3d_2=va, clinfo2=       ' Va: ', mask2=vmask, clinfo3='dyn' )
       !
-      CALL wrk_dealloc( jpi, jpj, zww ) 
+      CALL wrk_dealloc( jpi,jpj, zww ) 
+      CALL wrk_dealloc( jpi,jpj,jpk, zwuw , zwvw ) 
       !
       IF( nn_timing == 1 )  CALL timing_stop('dyn_zad')