Changeset 1469 for trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

Timestamp:

2009-06-11T14:20:08+02:00 (15 years ago)

Author:

smasson

Message:

[uv]taui_ice renamed [uv]tau_ice, see ticket:452

File:

• trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90

@@ -131 +131 @@
          END DO
                                                      ! Bulk formulea - provides the following fields:
-         ! utaui_ice, vtaui_ice : surface ice stress                     (U- & V-points)   [N/m2]
-         ! qsr_ice  , qns_ice   : solar & non solar heat flux over ice   (T-point)         [W/m2]
-         ! qla_ice              : latent heat flux over ice              (T-point)         [W/m2]
-         ! dqns_ice , dqla_ice  : non solar & latent heat sensistivity   (T-point)         [W/m2]
-         ! tprecip  , sprecip   : total & solid precipitation            (T-point)         [Kg/m2/s]
-         ! fr1_i0   , fr2_i0    : 1sr & 2nd fraction of qsr penetration in ice             [%]
+         ! utau_ice, vtau_ice : surface ice stress                     (U- & V-points)   [N/m2]
+         ! qsr_ice , qns_ice  : solar & non solar heat flux over ice   (T-point)         [W/m2]
+         ! qla_ice            : latent heat flux over ice              (T-point)         [W/m2]
+         ! dqns_ice, dqla_ice : non solar & latent heat sensistivity   (T-point)         [W/m2]
+         ! tprecip , sprecip  : total & solid precipitation            (T-point)         [Kg/m2/s]
+         ! fr1_i0  , fr2_i0   : 1sr & 2nd fraction of qsr penetration in ice             [%]
          !
          SELECT CASE( kblk )
          CASE( 3 )                                       ! CLIO bulk formulation
             CALL blk_ice_clio( t_su , alb_ice_cs, alb_ice_os,                           &
-               &                      utaui_ice , vtaui_ice , qns_ice   , qsr_ice   ,   &
+               &                      utau_ice  , vtau_ice  , qns_ice   , qsr_ice   ,   &
                &                      qla_ice   , dqns_ice  , dqla_ice  ,               &
                &                      tprecip   , sprecip   ,                           &
@@ -147 +147 @@
             !         
          CASE( 4 )                                       ! CORE bulk formulation
-            CALL blk_ice_core( t_su , u_ice    , v_ice     , alb_ice_cs,               &
-               &                      utaui_ice, vtaui_ice , qns_ice   , qsr_ice   ,   &
-               &                      qla_ice  , dqns_ice  , dqla_ice  ,               &
-               &                      tprecip  , sprecip   ,                           &
-               &                      fr1_i0   , fr2_i0    , cl_grid, jpl  )
+            CALL blk_ice_core( t_su , u_ice     , v_ice     , alb_ice_cs,               &
+               &                      utau_ice  , vtau_ice  , qns_ice   , qsr_ice   ,   &
+               &                      qla_ice   , dqns_ice  , dqla_ice  ,               &
+               &                      tprecip   , sprecip   ,                           &
+               &                      fr1_i0    , fr2_i0    , cl_grid, jpl  )
          END SELECT
 
@@ -327 +327 @@
                WRITE(numout,*) ' oceanic stress utau      : ', utau(ji,jj) 
                WRITE(numout,*) ' oceanic stress vtau      : ', vtau(ji,jj)
-               WRITE(numout,*) ' sea-ice stress utaui_ice : ', utaui_ice(ji,jj) 
-               WRITE(numout,*) ' sea-ice stress vtaui_ice : ', vtaui_ice(ji,jj)
+               WRITE(numout,*) ' sea-ice stress utau_ice  : ', utau_ice(ji,jj) 
+               WRITE(numout,*) ' sea-ice stress vtau_ice  : ', vtau_ice(ji,jj)
                WRITE(numout,*) ' oceanic speed u          : ', u_oce(ji,jj)
                WRITE(numout,*) ' oceanic speed v          : ', v_oce(ji,jj)
@@ -631 +631 @@
         WRITE(numout,*) ' - Stresses '
         WRITE(numout,*) '   ~~~~~~~~ '
-        WRITE(numout,*) ' utaui_ice  : ', utaui_ice(ki,kj) 
-        WRITE(numout,*) ' vtaui_ice  : ', vtaui_ice(ki,kj)
+        WRITE(numout,*) ' utau_ice   : ', utau_ice(ki,kj) 
+        WRITE(numout,*) ' vtau_ice   : ', vtau_ice(ki,kj)
         WRITE(numout,*) ' utau       : ', utau(ki,kj) 
         WRITE(numout,*) ' vtau       : ', vtau(ki,kj)