Changeset 2789 for branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.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/ZDF/zdftke.F90 (modified) (5 diffs)

branches/2011/dev_r2787_LOCEAN3_TRA_TRP/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

@@ -191 +191 @@
       !! ---------------------------------------------------------------------
       USE wrk_nemo, ONLY:   wrk_in_use, wrk_not_released, iwrk_in_use, iwrk_not_released
-      USE oce     , ONLY:   zdiag => ua , zd_up => va , zd_lw => ta   ! (ua,va,ta) used as workspace
+      USE oce     , ONLY:   zdiag => ua          ! (ua,va) used  as workspace
+      USE oce     , ONLY:   tsa                  ! (tsa) used  as workspace
       USE wrk_nemo, ONLY:   imlc  => iwrk_2d_1   ! 2D INTEGER workspace
       USE wrk_nemo, ONLY:   zhlc  =>  wrk_2d_1   ! 2D REAL workspace
       USE wrk_nemo, ONLY:   zpelc =>  wrk_3d_1   ! 3D REAL workspace
-      !
+      !!
       INTEGER  ::   ji, jj, jk                      ! dummy loop arguments
 !!bfr      INTEGER  ::   ikbu, ikbv, ikbum1, ikbvm1      ! temporary scalar
@@ -208 +209 @@
       REAL(wp) ::   zzd_up, zzd_lw                  !    -         -
 !!bfr      REAL(wp) ::   zebot                           !    -         -
+      REAL(wp), POINTER, DIMENSION(:,:,:) :: zd_up, zd_lw
       !!--------------------------------------------------------------------
       !
@@ -215 +217 @@
          CALL ctl_stop('tke_tke: requested workspace arrays unavailable')   ;   RETURN
       END IF
+      !
+      zd_up => tsa(:,:,:,1) 
+      zd_lw => tsa(:,:,:,2) 
 
       zbbrau = rn_ebb / rau0       ! Local constant initialisation
@@ -471 +476 @@
       !!              - avmu, avmv : now vertical eddy viscosity at uw- and vw-points
       !!----------------------------------------------------------------------
-      USE oce, ONLY:   zmpdl => ua , zmxlm => va , zmxld => ta   ! (ua,va,ta) used as workspace
+      USE oce, ONLY:  zmpdl => ua    ! ua used as workspace
+      USE oce, ONLY:  tsa            ! use tsa as workspace
       !!
       INTEGER  ::   ji, jj, jk   ! dummy loop indices
@@ -477 +483 @@
       REAL(wp) ::   zdku, zpdlr, zri, zsqen     !   -      -
       REAL(wp) ::   zdkv, zemxl, zemlm, zemlp   !   -      -
+      REAL(wp), POINTER, DIMENSION(:,:,:) :: zmxlm, zmxld
       !!--------------------------------------------------------------------
+      !
+      zmxlm => tsa(:,:,:,1) 
+      zmxld => tsa(:,:,:,2) 
 
       !                     !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<