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

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

@@ -87 +87 @@
       !!              - save the trend in (zwk3,zwk4) ('key_trddyn')
       !!----------------------------------------------------------------------
-      USE oce     , ONLY:   tsa             ! tsa used as 2 3D workspace
-      !
       INTEGER, INTENT( in ) ::   kt           ! ocean time-step index
       !
       INTEGER ::   ji, jj, jk                 ! dummy loop indices
-      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zwk1, zwk2
-      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zwk3, zwk4
+      REAL(wp), POINTER, DIMENSION(:,:,:) ::  zwk1, zwk2, zwk3, zwk4
       !!----------------------------------------------------------------------
       !
       IF( nn_timing == 1 )  CALL timing_start('dyn_ldf_bilapg')
       !
-      CALL wrk_alloc( jpi, jpj, jpk, zwk1, zwk2 ) 
-      zwk3 => tsa(:,:,:,1) 
-      zwk4 => tsa(:,:,:,2) 
+      CALL wrk_alloc( jpi, jpj, jpk, zwk1, zwk2, zwk3, zwk4 ) 
       !
       IF( kt == nit000 ) THEN
@@ -135 +130 @@
       END DO
       !
-      CALL wrk_dealloc( jpi, jpj, jpk, zwk1, zwk2 ) 
+      CALL wrk_dealloc( jpi, jpj, jpk, zwk1, zwk2, zwk3, zwk4 ) 
       !
       IF( nn_timing == 1 )  CALL timing_stop('dyn_ldf_bilapg')