New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5362 for branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90 – NEMO

Ignore:
Timestamp:
2015-06-05T11:53:44+02:00 (9 years ago)
Author:
vancop
Message:

update CLIO forcing to match with new standards

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r5357 r5362  
    162162!!            IF( nn_limflx /= 2 )   CALL ice_lim_flx( t_su, zalb_ice, qns_ice, qsr_ice ,   & 
    163163!!               &                                           dqns_ice, qla_ice, dqla_ice, nn_limflx ) 
    164             CALL blk_ice_clio_tau( utau_ice, vtau_ice, cp_ice_msh ) 
     164            CALL blk_ice_clio_tau 
    165165 
    166166         CASE( jp_core )                                       ! CORE bulk formulation 
     
    238238            ! In CLIO the cloud fraction is read in the climatology and the all-sky albedo  
    239239            ! (zalb_ice) is computed within the bulk routine 
    240             CALL blk_ice_clio_flx( t_su , zalb_cs, zalb_os  , zalb_ice, qns_ice   , qsr_ice   ,    & 
    241                &                      qla_ice, dqns_ice   , dqla_ice  , tprecip, sprecip    ,  & 
    242                &                      fr1_i0     , fr2_i0     , jpl  ) 
    243             !          
     240!           CALL blk_ice_clio_flx( t_su , zalb_cs, zalb_os  , zalb_ice, qns_ice   , qsr_ice   ,    & 
     241!              &                      qla_ice, dqns_ice   , dqla_ice  , tprecip, sprecip    ,  & 
     242!              &                      fr1_i0     , fr2_i0     , jpl  ) 
     243!           !          
     244            CALL blk_ice_clio_flx( t_su, zalb_cs, zalb_os, zalb_ice ) 
    244245            IF( nn_limflx /= 2 )   CALL ice_lim_flx( t_su, zalb_ice, qns_ice, qsr_ice ,   & 
    245246               &                                           dqns_ice, evap_ice, devap_ice, nn_limflx ) 
Note: See TracChangeset for help on using the changeset viewer.