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

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

@@ -40 +40 @@
    USE lbclnk          ! lateral boundary condition (or mpp link)
    USE lib_mpp         ! MPP library
+   USE wrk_nemo        ! Memory Allocation
    USE prtctl          ! Print control
 #if defined key_agrif
@@ -93 +94 @@
       !!               un,vn   now horizontal velocity of next time-step
       !!----------------------------------------------------------------------
-      USE oce     , ONLY:   tsa             ! tsa used as 2 3D workspace
-      !
       INTEGER, INTENT( in ) ::   kt      ! ocean time-step index
       !
@@ -109 +108 @@
       IF( nn_timing == 1 )  CALL timing_start('dyn_nxt')
       !
-      ze3u_f => tsa(:,:,:,1) 
-      ze3v_f => tsa(:,:,:,2) 
+      CALL wrk_alloc( jpi,jpj,jpk, ze3u_f, ze3v_f )
       !
       IF( kt == nit000 ) THEN
@@ -281 +279 @@
          &                       tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask )
       ! 
+      CALL wrk_dealloc( jpi,jpj,jpk, ze3u_f, ze3v_f )
+      !
       IF( nn_timing == 1 )  CALL timing_stop('dyn_nxt')
       !