Changeset 1482 for trunk/NEMO/OPA_SRC/SBC/sbcmod.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/sbcmod.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -189 +189 @@
 
       IF( kt == nit000 )   CALL sbc_init         ! Read namsbc namelist : surface module
-
+      !
+      CALL iom_setkt( kt + nn_fsbc - 1 )         !  in sbc, iom_put is called every nn_fsbc time step
+      !
       ! ocean to sbc mean sea surface variables (ss._m)
       ! ---------------------------------------
@@ -238 +240 @@
       !                                                         ! (update freshwater fluxes)
       !
+      IF( MOD( kt-1, nn_fsbc ) == 0 ) THEN
+         CALL iom_put( "emp"    , emp       )                   ! upward water flux
+         CALL iom_put( "emps"   , emps      )                   ! c/d water flux
+         CALL iom_put( "qns+qsr", qns + qsr )                   ! total heat flux   (caution if ln_dm2dc=true, to be 
+         CALL iom_put( "qns"    , qns       )                   ! solar heat flux    moved after the call to iom_setkt)
+         CALL iom_put( "qsr"    ,       qsr )                   ! solar heat flux    moved after the call to iom_setkt)
+         IF(  nn_ice > 0 )   CALL iom_put( "ice_cover", fr_i )  ! ice fraction 
+      ENDIF
+      !
+      CALL iom_setkt( kt )           ! iom_put outside of sbc is called at every time step
+      !
+      CALL iom_put( "utau", utau )   ! i-wind stress   (stress can be updated at 
+      CALL iom_put( "vtau", vtau )   ! j-wind stress    each time step in sea-ice)
+      !
       IF(ln_ctl) THEN         ! print mean trends (used for debugging)
          CALL prt_ctl(tab2d_1=fr_i   , clinfo1=' fr_i - : ', mask1=tmask, ovlap=1 )