Changeset 669 for trunk/NEMO/OPA_SRC

Timestamp:

2007-06-01T19:27:55+02:00 (17 years ago)

Author:

ctlod

Message:

nemo_v2_bugfix_041 : SM : Remove unused variables tauxg and tauyg

File:

• trunk/NEMO/OPA_SRC/SBC/taumod.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/taumod.F90

@@ -32 +32 @@
    !! * Share modules variables
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &
-      taux, tauy,      &  !: surface stress components in (i,j) referential
-      tauxg, tauyg        !: surface stress components in geographical
-      !                   !  referential (used in output)
+      taux, tauy             !: surface stress components in (i,j) referential
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005) 
@@ -92 +90 @@
       !!
       !! ** Action  : - update taux , tauy the stress in (i,j) ref.
-      !!              - update tauxg, tauyg the stress in geographic ref.
       !!
       !! History :
@@ -201 +198 @@
             taux (:,:) = zfacto * tau0x
             tauy (:,:) = zfacto * tau0y
-            tauxg(:,:) = zfacto * tau0x
-            tauyg(:,:) = zfacto * tau0y
          ENDIF