Changeset 2789 for branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90

Timestamp:

2011-06-27T13:18:25+02:00 (13 years ago)

Author:

cetlod

Message:

Implementation of the merge of TRA/TRP : first guess, see ticket #842

File:

• branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90 (modified) (2 diffs)

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

@@ -86 +86 @@
       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released
       USE wrk_nemo, ONLY:   zwk1 => wrk_3d_3 , zwk2 => wrk_3d_4   ! 3D workspace
-      USE oce     , ONLY:   zwk3 => ta       , zwk4 => sa         ! ta, sa used as 3D workspace   
+      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(:,:,:) ::  zwk3, zwk4
       !!----------------------------------------------------------------------
 
@@ -96 +97 @@
          CALL ctl_stop('dyn_ldf_bilapg: requested workspace arrays unavailable')   ;   RETURN
       ENDIF
-
+      !
+      zwk3 => tsa(:,:,:,1) 
+      zwk4 => tsa(:,:,:,2) 
+      !
       IF( kt == nit000 ) THEN
          IF(lwp) WRITE(numout,*)