Changeset 3231 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.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/sshwzv.F90 (modified) (3 diffs)

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

@@ -77 +77 @@
       !! Reference  : Leclair, M., and G. Madec, 2009, Ocean Modelling.
       !!----------------------------------------------------------------------
-      USE oce     , ONLY: tsa             ! tsa used as 2 3D workspace
-      !!
       INTEGER, INTENT(in) ::   kt   ! time step
       !
@@ -232 +230 @@
       IF( lk_diaar5 ) THEN                            ! vertical mass transport & its square value
          ! Caution: in the VVL case, it only correponds to the baroclinic mass transport.
-         z3d => tsa(:,:,:,1)
+         CALL wrk_alloc( jpi,jpj,jpk, z3d )
          z2d(:,:) = rau0 * e1t(:,:) * e2t(:,:)
          DO jk = 1, jpk
@@ -239 +237 @@
          CALL iom_put( "w_masstr" , z3d                     )  
          CALL iom_put( "w_masstr2", z3d(:,:,:) * z3d(:,:,:) )
+         CALL wrk_dealloc( jpi,jpj,jpk, z3d )
       ENDIF
       !