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

Timestamp:

2009-06-11T15:01:25+02:00 (15 years ago)

Author:

smasson

Message:

[uv]i_ice and [uv]i_oce renamed [uv]_ice and [uv]_oce, see ticket:453

File:

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

trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -108 +108 @@
          !
          ! ... mean surface ocean current at ice dynamics point
-         !     B-grid dynamics :  I-point (F-point with sea-ice indexation)
+         !     B-grid dynamics :  I-point 
          DO jj = 2, jpj
             DO ji = 2, jpi   ! B grid : no vector opt.
-               ui_oce(ji,jj) = 0.5 * ( ssu_m(ji-1,jj  ) + ssu_m(ji-1,jj-1) ) * tmu(ji,jj)
-               vi_oce(ji,jj) = 0.5 * ( ssv_m(ji  ,jj-1) + ssv_m(ji-1,jj-1) ) * tmu(ji,jj)
+               u_oce(ji,jj) = 0.5 * ( ssu_m(ji-1,jj  ) + ssu_m(ji-1,jj-1) ) * tmu(ji,jj)
+               v_oce(ji,jj) = 0.5 * ( ssv_m(ji  ,jj-1) + ssv_m(ji-1,jj-1) ) * tmu(ji,jj)
             END DO
          END DO
-         CALL lbc_lnk( ui_oce, 'I', -1. )   ! I-point (i.e. F-point with ice indices)
-         CALL lbc_lnk( vi_oce, 'I', -1. )   ! I-point (i.e. F-point with ice indices)
+         CALL lbc_lnk( u_oce, 'I', -1. )   ! I-point (i.e. F-point with ice indices)
+         CALL lbc_lnk( v_oce, 'I', -1. )   ! I-point (i.e. F-point with ice indices)
 
          ! ... masked sea surface freezing temperature [Kelvin] (set to rt0 over land)
@@ -148 +148 @@
 
          CASE( 4 )           ! CORE bulk formulation
-            CALL blk_ice_core( zsist, ui_ice     , vi_ice     , zalb_ice_cs,            &
+            CALL blk_ice_core( zsist, u_ice      , v_ice      , zalb_ice_cs,            &
                &                      utau_ice   , vtau_ice   , qns_ice    , qsr_ice,   &
                &                      qla_ice    , dqns_ice   , dqla_ice   ,            &
@@ -162 +162 @@
             CALL prt_ctl( tab2d_1=utau_ice,clinfo1=' sbc_ice_lim: utau_ice: ', tab2d_2=vtau_ice, clinfo2=' vtau_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=u_oce   ,clinfo1=' sbc_ice_lim: u_io    : ', tab2d_2=v_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    : ' )