Changeset 13658 for NEMO/branches/UKMO/NEMO_4.0.2_IODRAG/src/OCE/SBC/sbcmod.F90

Timestamp:

2020-10-21T17:14:23+02:00 (4 years ago)

Author:

cguiavarch

Message:

Implicit sea ice drag: merge from NEMO/branches/MOI/NEMO_4.03_IODRAG [12947:12964]

File:

• NEMO/branches/UKMO/NEMO_4.0.2_IODRAG/src/OCE/SBC/sbcmod.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.2_IODRAG/src/OCE/SBC/sbcmod.F90

@@ -564 +564 @@
       ENDIF
       !
-      CALL iom_put( "utau", utau )   ! i-wind stress   (stress can be updated at each time step in sea-ice)
-      CALL iom_put( "vtau", vtau )   ! j-wind stress
-      !
       IF(ln_ctl) THEN         ! print mean trends (used for debugging)
          CALL prt_ctl(tab2d_1=fr_i              , clinfo1=' fr_i    - : ', mask1=tmask )