Changeset 668 for trunk/NEMO

Timestamp:

2007-05-28T13:52:25+02:00 (17 years ago)

Author:

rblod

Message:

nemo_v2_update_018:CE:remove unused ocean variables gtu and gtv

Location:

trunk/NEMO/TOP_SRC

Files:

• TRP/trcldf_bilap.F90 (modified) (2 diffs)
• oce_trc.F90 (modified) (2 diffs)

trunk/NEMO/TOP_SRC/TRP/trcldf_bilap.F90

@@ -25 +25 @@
    !!----------------------------------------------------------------------
    !!   TOP 1.0 , LOCEAN-IPSL (2005) 
-   !! $Header$ 
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/TRP/trcldf_bilap.F90,v 1.11 2007/05/28 02:51:54 opalod Exp $ 
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    !!----------------------------------------------------------------------
@@ -148 +148 @@
                      ikv = MIN ( mbathy(ji,jj), mbathy(ji  ,jj+1) ) - 1
                      IF( iku == jk ) THEN
-                        ztu(ji,jj,jk) = zeeu(ji,jj) * gtu(ji,jj)
+                        ztu(ji,jj,jk) = zeeu(ji,jj) * gtru(ji,jj)
                      ENDIF
                      IF( ikv == jk ) THEN
-                        ztv(ji,jj,jk) = zeev(ji,jj) * gtv(ji,jj)
+                        ztv(ji,jj,jk) = zeev(ji,jj) * gtrv(ji,jj)
                      ENDIF
                   END DO

trunk/NEMO/TOP_SRC/oce_trc.F90

@@ -8 +8 @@
    !!----------------------------------------------------------------------
    !!  TOP 1.0,  LOCEAN-IPSL (2005)
-   !! $Header$
+   !! $Header: /home/opalod/NEMOCVSROOT/NEMO/TOP_SRC/oce_trc.F90,v 1.17 2007/05/28 02:55:05 opalod Exp $
    !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
    !!----------------------------------------------------------------------
@@ -129 +129 @@
       lk_dynspg_rl   =>  lk_dynspg_rl      !: rigid lid flag
 
-   USE oce , ONLY :                &
-      gtu   =>  gtu  ,  & !: t- horizontal gradient at u-
-      gtv   =>  gtv       !: and v-points at bottom ocean level
 
    USE dom_oce , ONLY :              &