Changeset 1051 for trunk/NEMO

Timestamp:

2008-06-03T15:17:23+02:00 (16 years ago)

Author:

ctlod

Message:

trunk: remove useless sea-ice/ocean velocities as arguments of CALL sequences since they are not used in CLIO bulk, see ticket: #185

Location:

trunk/NEMO/OPA_SRC/SBC

Files:

• sbcblk_clio.F90 (modified) (5 diffs)
• sbcice_lim_2.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

@@ -231 +231 @@
 
       IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN
-          CALL blk_oce_clio( sst_m, ssu_m, ssv_m )    ! compute the surface ocean fluxes using CLIO bulk formulea
+          CALL blk_oce_clio( sst_m )                  ! compute the surface ocean fluxes using CLIO bulk formulea
       ENDIF                                           ! 
       !
@@ -237 +237 @@
 
 
-   SUBROUTINE blk_oce_clio( pst, pu, pv )
+   SUBROUTINE blk_oce_clio( pst )
       !!---------------------------------------------------------------------------
       !!                     ***  ROUTINE blk_oce_clio  ***
@@ -260 +260 @@
       !!----------------------------------------------------------------------
       REAL(wp), INTENT(in), DIMENSION(jpi,jpj) ::   pst   ! surface temperature                      [Celcius]
-      REAL(wp), INTENT(in), DIMENSION(jpi,jpj) ::   pu    ! surface current at U-point (i-component) [m/s]
-      REAL(wp), INTENT(in), DIMENSION(jpi,jpj) ::   pv    ! surface current at V-point (j-component) [m/s]
       !!
       INTEGER  ::   ji, jj   ! dummy loop indices
@@ -419 +417 @@
 
 
-   SUBROUTINE blk_ice_clio(  pst   , pui   , pvi   , palb_cs, palb_os ,   &
+   SUBROUTINE blk_ice_clio(  pst   , palb_cs, palb_os ,       &
       &                      p_taui, p_tauj, p_qns , p_qsr,   &
       &                      p_qla , p_dqns, p_dqla,          &
@@ -447 +445 @@
       !!----------------------------------------------------------------------
       REAL(wp), INTENT(in   ), DIMENSION(:,:,:)   ::   pst      ! ice surface temperature                   [Kelvin]
-      REAL(wp), INTENT(in   ), DIMENSION(jpi,jpj) ::   pui      ! ice surface velocity (i-component, I-point)  [m/s]
-      REAL(wp), INTENT(in   ), DIMENSION(jpi,jpj) ::   pvi      ! ice surface velocity (j-component, I-point)  [m/s]
       REAL(wp), INTENT(in   ), DIMENSION(:,:,:)   ::   palb_cs  ! ice albedo (clear    sky) (alb_ice_cs)         [%]
       REAL(wp), INTENT(in   ), DIMENSION(:,:,:)   ::   palb_os  ! ice albedo (overcast sky) (alb_ice_os)         [%]

trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -147 +147 @@
          SELECT CASE( kblk )
          CASE( 3 )           ! CLIO bulk formulation
-            CALL blk_ice_clio( zsist , ui_ice , vi_ice   , alb_ice_cs , alb_ice_os ,             &
+            CALL blk_ice_clio( zsist , alb_ice_cs , alb_ice_os ,                                 &
                &                               utaui_ice , vtaui_ice  , zqns_ice   , zqsr_ice,   &
                &                               zqla_ice  , zdqns_ice  , zdqla_ice  ,             &