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

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

@@ -19 +19 @@
    USE prtctl          ! Print control
    USE timing          ! Timing
+   USE wrk_nemo        ! Memory Allocation
 
    IMPLICIT NONE
@@ -44 +45 @@
       !! ** Action  :   (ua,va)   momentum trend increased by bottom friction trend
       !!---------------------------------------------------------------------
-      USE oce, ONLY:   ztrduv => tsa   ! tsa used as 4D workspace
-      !!
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       !! 
@@ -51 +50 @@
       INTEGER  ::   ikbu, ikbv   ! local integers
       REAL(wp) ::   zm1_2dt      ! local scalar
+      REAL(wp), POINTER, DIMENSION(:,:,:) ::  ztrdu, ztrdv
       !!---------------------------------------------------------------------
       !
@@ -62 +62 @@
 
         IF( l_trddyn )   THEN                      ! temporary save of ua and va trends
-           ztrduv(:,:,:,1) = ua(:,:,:)
-           ztrduv(:,:,:,2) = va(:,:,:)
+           CALL wrk_alloc( jpi,jpj,jpk, ztrdu, ztrdv )
+           ztrdu(:,:,:) = ua(:,:,:)
+           ztrdv(:,:,:) = va(:,:,:)
         ENDIF
 
@@ -85 +86 @@
         !
         IF( l_trddyn )   THEN                      ! save the vertical diffusive trends for further diagnostics
-           ztrduv(:,:,:,1) = ua(:,:,:) - ztrduv(:,:,:,1)
-           ztrduv(:,:,:,2) = va(:,:,:) - ztrduv(:,:,:,2)
-           CALL trd_mod( ztrduv(:,:,:,1), ztrduv(:,:,:,2), jpdyn_trd_bfr, 'DYN', kt )
+           ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:)
+           ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:)
+           CALL trd_mod( ztrdu(:,:,:), ztrdv(:,:,:), jpdyn_trd_bfr, 'DYN', kt )
+           CALL wrk_dealloc( jpi,jpj,jpk, ztrdu, ztrdv )
         ENDIF
         !                                          ! print mean trends (used for debugging)