Changeset 880

Timestamp:

2008-04-04T17:57:32+02:00 (16 years ago)

Author:

ctlod

Message:

dev_001_SBC: clean & add control prints, see ticket: #104

File:

• branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (2 diffs)

branches/dev_001_SBC/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -120 +120 @@
          CALL blk_albedo( alb_ice_os , alb_oce_os , alb_ice_cs , alb_oce_cs )
 
-         ! ... surface ice boundary condition (stress at I-point, latente, sensible, etc....
-         !!gm preciser la list exacte
+         ! ... Sea-ice surface boundary conditions output from bulk formulae :
+         !     - utaui_ice  ! surface ice stress i-component (I-point)   [N/m2]
+         !     - vtaui_ice  ! surface ice stress j-component (I-point)   [N/m2]
+         !     - qns_ice    ! non solar heat flux over ice   (T-point)   [W/m2]
+         !     - qsr_ice    !     solar heat flux over ice   (T-point)   [W/m2]
+         !     - qla_ice    ! latent    heat flux over ice   (T-point)   [W/m2]
+         !     - dqns_ice   ! non solar heat sensistivity    (T-point)   [W/m2]
+         !     - dqla_ice   ! latent    heat sensistivity    (T-point)   [W/m2]
+         !     - tprecip    ! total precipitation            (T-point)   [Kg/m2/s]
+         !     - sprecip    ! solid precipitation            (T-point)   [Kg/m2/s]
+         !     - fr1_i0     ! 1sr fraction of qsr penetration in ice     [%]
+         !     - fr2_i0     ! 2nd fraction of qsr penetration in ice     [%]
+         !
          SELECT CASE( kblk )
          CASE( 3 )           ! CLIO bulk formulation
@@ -139 +150 @@
          IF(ln_ctl) THEN         ! print mean trends (used for debugging)
             CALL prt_ctl_info( 'Ice Forcings ' )
-            CALL prt_ctl( tab2d_1=tprecip  ,clinfo1=' precip   : ', tab2d_2=sprecip  , clinfo2=' Snow     : ' )
-            CALL prt_ctl( tab2d_1=utaui_ice,clinfo1=' utaui_ice: ', tab2d_2=vtaui_ice, clinfo2=' vtaui_ice: ' )
-            CALL prt_ctl( tab2d_1=sst_m    ,clinfo1=' sst      : ', tab2d_2=sss_m    , clinfo2=' sss      : ' )
-            CALL prt_ctl( tab2d_1=ui_oce   ,clinfo1=' u_io     : ', tab2d_2=vi_oce   , clinfo2=' v_io     : ' )
-            CALL prt_ctl( tab2d_1=hsnif    ,clinfo1=' hsnif  1 : ', tab2d_2=hicif    , clinfo2=' hicif    : ' )
-            CALL prt_ctl( tab2d_1=frld     ,clinfo1=' frld   1 : ', tab2d_2=sist     , clinfo2=' sist     : ' )
+            CALL prt_ctl( tab2d_1=tprecip  ,clinfo1=' sbc_ice_lim: precip   : ', tab2d_2=sprecip  , clinfo2=' Snow     : ' )
+            CALL prt_ctl( tab2d_1=utaui_ice,clinfo1=' sbc_ice_lim: utaui_ice: ', tab2d_2=vtaui_ice, clinfo2=' vtaui_ice: ' )
+            CALL prt_ctl( tab2d_1=sst_m    ,clinfo1=' sbc_ice_lim: sst      : ', tab2d_2=sss_m    , clinfo2=' sss      : ' )
+            CALL prt_ctl( tab2d_1=ui_oce   ,clinfo1=' sbc_ice_lim: u_io     : ', tab2d_2=vi_oce   , clinfo2=' v_io     : ' )
+            CALL prt_ctl( tab2d_1=hsnif    ,clinfo1=' sbc_ice_lim: hsnif  1 : ', tab2d_2=hicif    , clinfo2=' hicif    : ' )
+            CALL prt_ctl( tab2d_1=frld     ,clinfo1=' sbc_ice_lim: frld   1 : ', tab2d_2=sist     , clinfo2=' sist     : ' )
          ENDIF