Changeset 1051


Ignore:
Timestamp:
2008-06-03T15:17:23+02:00 (13 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:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcblk_clio.F90

    r1037 r1051  
    231231 
    232232      IF( MOD( kt - 1, nn_fsbc ) == 0 ) THEN 
    233           CALL blk_oce_clio( sst_m, ssu_m, ssv_m )    ! compute the surface ocean fluxes using CLIO bulk formulea 
     233          CALL blk_oce_clio( sst_m )                  ! compute the surface ocean fluxes using CLIO bulk formulea 
    234234      ENDIF                                           !  
    235235      ! 
     
    237237 
    238238 
    239    SUBROUTINE blk_oce_clio( pst, pu, pv ) 
     239   SUBROUTINE blk_oce_clio( pst ) 
    240240      !!--------------------------------------------------------------------------- 
    241241      !!                     ***  ROUTINE blk_oce_clio  *** 
     
    260260      !!---------------------------------------------------------------------- 
    261261      REAL(wp), INTENT(in), DIMENSION(jpi,jpj) ::   pst   ! surface temperature                      [Celcius] 
    262       REAL(wp), INTENT(in), DIMENSION(jpi,jpj) ::   pu    ! surface current at U-point (i-component) [m/s] 
    263       REAL(wp), INTENT(in), DIMENSION(jpi,jpj) ::   pv    ! surface current at V-point (j-component) [m/s] 
    264262      !! 
    265263      INTEGER  ::   ji, jj   ! dummy loop indices 
     
    419417 
    420418 
    421    SUBROUTINE blk_ice_clio(  pst   , pui   , pvi   , palb_cs, palb_os ,   & 
     419   SUBROUTINE blk_ice_clio(  pst   , palb_cs, palb_os ,       & 
    422420      &                      p_taui, p_tauj, p_qns , p_qsr,   & 
    423421      &                      p_qla , p_dqns, p_dqla,          & 
     
    447445      !!---------------------------------------------------------------------- 
    448446      REAL(wp), INTENT(in   ), DIMENSION(:,:,:)   ::   pst      ! ice surface temperature                   [Kelvin] 
    449       REAL(wp), INTENT(in   ), DIMENSION(jpi,jpj) ::   pui      ! ice surface velocity (i-component, I-point)  [m/s] 
    450       REAL(wp), INTENT(in   ), DIMENSION(jpi,jpj) ::   pvi      ! ice surface velocity (j-component, I-point)  [m/s] 
    451447      REAL(wp), INTENT(in   ), DIMENSION(:,:,:)   ::   palb_cs  ! ice albedo (clear    sky) (alb_ice_cs)         [%] 
    452448      REAL(wp), INTENT(in   ), DIMENSION(:,:,:)   ::   palb_os  ! ice albedo (overcast sky) (alb_ice_os)         [%] 
  • trunk/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

    r1044 r1051  
    147147         SELECT CASE( kblk ) 
    148148         CASE( 3 )           ! CLIO bulk formulation 
    149             CALL blk_ice_clio( zsist , ui_ice , vi_ice   , alb_ice_cs , alb_ice_os ,             & 
     149            CALL blk_ice_clio( zsist , alb_ice_cs , alb_ice_os ,                                 & 
    150150               &                               utaui_ice , vtaui_ice  , zqns_ice   , zqsr_ice,   & 
    151151               &                               zqla_ice  , zdqns_ice  , zdqla_ice  ,             & 
Note: See TracChangeset for help on using the changeset viewer.