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

trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -8 +8 @@
    !!   NEMO     2.0  !  2002-08 (C. Ethe, G. Madec) F90: Free form and module
    !!            3.0  !  2008-03 (C. Talandier, G. Madec) surface module + LIM3
+   !!            3.2  !  2009-04 (B. Lemaire) Introduce iom_put
+   !!----------------------------------------------------------------------
+
    !!----------------------------------------------------------------------
    !!   sbc_blk_clio   : CLIO bulk formulation: read and update required input fields
@@ -76 +79 @@
    REAL(wp)  ::   zeps    = 1.e-20                ! constant values
    REAL(wp)  ::   zeps0   = 1.e-13  
-
+   
+   !! * Substitutions
 #  include "vectopt_loop_substitute.h90"
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.0 , LOCEAN-IPSL (2008) 
+   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 
    !! $Id$ 
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
@@ -85 +89 @@
 
 CONTAINS
-
 
    SUBROUTINE sbc_blk_clio( kt )
@@ -397 +400 @@
       emps(:,:) = emp(:,:)
       !
+      CALL iom_put( "qlw_oce",   zqlw )   ! output downward longwave  heat over the ocean
+      CALL iom_put( "qsb_oce", - zqsb )   ! output downward sensible  heat over the ocean
+      CALL iom_put( "qla_oce", - zqla )   ! output downward latent    heat over the ocean
+      CALL iom_put( "qns_oce",   qns  )   ! output downward non solar heat over the ocean
+
       IF(ln_ctl) THEN
          CALL prt_ctl(tab2d_1=zqsb , clinfo1=' blk_oce_clio: zqsb   : ', tab2d_2=zqlw , clinfo2=' zqlw  : ')
@@ -544 +552 @@
          END DO
       END DO
+      CALL iom_put( 'snowpre', p_spr )   ! Snow precipitation 
       
       !-----------------------------------------------------------!