Changeset 710 for trunk/NEMO/C1D_SRC/step1d.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/C1D_SRC/step1d.F90 (modified) (1 diff)

trunk/NEMO/C1D_SRC/step1d.F90

@@ -158 +158 @@
          CALL prt_ctl(tab3d_1=tn     , clinfo1=' sst  -   : ', mask1=tmask, ovlap=1, kdim=1)
          CALL prt_ctl(tab3d_1=sn     , clinfo1=' sss  -   : ', mask1=tmask, ovlap=1, kdim=1)
-         CALL prt_ctl(tab2d_1=taux   , clinfo1=' tau  - x : ', mask1=umask, &
-            &         tab2d_2=tauy   , clinfo2='      - y : ', mask2=vmask, ovlap=1)
+         CALL prt_ctl(tab2d_1=utau   , clinfo1=' tau  - u : ', mask1=umask, &
+            &         tab2d_2=vtau   , clinfo2='      - v : ', mask2=vmask, ovlap=1)
       ENDIF