Changeset 841 for trunk/NEMO/OPA_SRC/SBC/taumod.F90

Timestamp:

2008-03-11T15:50:54+01:00 (16 years ago)

Author:

rblod

Message:

Light changes in SBC routines to use classical CLIO bulks with LIM3

File:

• trunk/NEMO/OPA_SRC/SBC/taumod.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/taumod.F90

@@ -30 +30 @@
    PUBLIC tau                ! routine called by step.F90
 
-   !! * Share modules variables
+  !! * Share modules variables
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   &
-      taux, tauy             !: surface stress components in (i,j) referential
+      taux, tauy,      &  !: surface stress components in (i,j) referential
+      ! TAU BUG
+#if defined key_lim3
+      tauxw, tauyw,    &  !: surface wind stress components in (i,j) referential
+      slotx, sloty,    &  !: time-slope for surface windstress in (i,j) referential
+      tauxg, tauyg        !: surface stress components in geographical
+      !                   !  referential (used in output)
+#endif
+
    !!----------------------------------------------------------------------
    !!   OPA 9.0 , LOCEAN-IPSL (2005)