Changeset 1482 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2009-07-03T17:28:06+02:00 (15 years ago)

Author:

smasson

Message:

distribution of iom_put + cleaning of LIM2 outputs, see ticket:437

File:

• trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -157 +157 @@
          END SELECT
 
+         CALL iom_put( 'utau_ice', utau_ice )     ! Wind stress over ice along i-axis at I-point
+         CALL iom_put( 'vtau_ice', vtau_ice )     ! Wind stress over ice along j-axis at I-point
+
          IF(ln_ctl) THEN         ! print mean trends (used for debugging)
             CALL prt_ctl_info( 'Ice Forcings ' )
@@ -189 +192 @@
          IF( ( MOD( kt+nn_fsbc-1, ninfo ) == 0 .OR. ntmoy == 1 ) .AND. .NOT. lk_mpp )   &
             &                           CALL lim_dia_2      ( kt )      ! Ice Diagnostics
+# if ! defined key_iomput
                                         CALL lim_wri_2      ( kt )      ! Ice outputs
+# endif
          IF( lrst_ice )                 CALL lim_rst_write_2( kt )      ! Ice restart file
          !