Changeset 710 for trunk/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2007-10-10T17:36:03+02:00 (17 years ago)

Author:

smasson

Message:

tau(x|y) -> (u|v)tau, see ticket:7

File:

• trunk/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/DIA/diawri.F90

@@ -331 +331 @@
 #endif
          !                                                                                      !!! nid_U : 2D
-         CALL histdef( nid_U, "sozotaux", "Wind Stress along i-axis"           , "N/m2"   ,   &  ! taux
+         CALL histdef( nid_U, "sozotaux", "Wind Stress along i-axis"           , "N/m2"   ,   &  ! utau
             &          jpi, jpj, nh_U, 1  , 1, 1  , - 99, 32, clop, zsto, zout )
 #if defined key_dynspg_rl
@@ -348 +348 @@
 #endif
          !                                                                                      !!! nid_V : 2D
-         CALL histdef( nid_V, "sometauy", "Wind Stress along j-axis"           , "N/m2"   ,   &  ! tauy
+         CALL histdef( nid_V, "sometauy", "Wind Stress along j-axis"           , "N/m2"   ,   &  ! vtau
             &          jpi, jpj, nh_V, 1  , 1, 1  , - 99, 32, clop, zsto, zout )
 #if defined key_dynspg_rl
@@ -472 +472 @@
       CALL histwrite( nid_U, "vozoeivu", it, u_eiv         , ndim_U , ndex_U )    ! i-eiv current
 #endif
-      CALL histwrite( nid_U, "sozotaux", it, taux          , ndim_hU, ndex_hU )   ! i-wind stress
+      CALL histwrite( nid_U, "sozotaux", it, utau          , ndim_hU, ndex_hU )   ! i-wind stress
 #if defined key_dynspg_rl
       CALL lbc_lnk( spgu, 'U', -1. )
@@ -483 +483 @@
       CALL histwrite( nid_V, "vomeeivv", it, v_eiv         , ndim_V , ndex_V  )   ! j-eiv current
 #endif
-      CALL histwrite( nid_V, "sometauy", it, tauy          , ndim_hV, ndex_hV )   ! j-wind stress
+      CALL histwrite( nid_V, "sometauy", it, vtau          , ndim_hV, ndex_hV )   ! j-wind stress
 #if defined key_dynspg_rl
       CALL lbc_lnk( spgv, 'V', -1. )
@@ -651 +651 @@
       CALL histwrite( id_i, "soshfldo", 1, qsr   , jpi*jpj    , idex )    ! total heat flux
       CALL histwrite( id_i, "soicecov", 1, freeze, jpi*jpj    , idex )    ! ice cover
-      CALL histwrite( id_i, "sozotaux", 1, taux  , jpi*jpj    , idex )    ! i-wind stress
-      CALL histwrite( id_i, "sometauy", 1, tauy  , jpi*jpj    , idex )    ! j-wind stress
+      CALL histwrite( id_i, "sozotaux", 1, utau  , jpi*jpj    , idex )    ! i-wind stress
+      CALL histwrite( id_i, "sometauy", 1, vtau  , jpi*jpj    , idex )    ! j-wind stress
 
       ! 3. Close the file