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_2.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_2.F90

    r5357 r5362  
    185185         SELECT CASE( ksbc ) 
    186186         CASE( jp_clio )           ! CLIO bulk formulation 
    187             CALL blk_ice_clio( zsist, zalb_cs    , zalb_os    , zalb_ice   ,            & 
    188                &                      utau_ice   , vtau_ice   , qns_ice    , qsr_ice,   & 
    189                &                      qla_ice    , dqns_ice   , dqla_ice   ,            & 
    190                &                      tprecip    , sprecip    ,                         & 
    191                &                      fr1_i0     , fr2_i0     , cp_ice_msh , jpl  ) 
     187!           CALL blk_ice_clio( zsist, zalb_cs    , zalb_os    , zalb_ice   ,            & 
     188!              &                      utau_ice   , vtau_ice   , qns_ice    , qsr_ice,   & 
     189!              &                      qla_ice    , dqns_ice   , dqla_ice   ,            & 
     190!              &                      tprecip    , sprecip    ,                         & 
     191!              &                      fr1_i0     , fr2_i0     , cp_ice_msh , jpl  ) 
     192            CALL blk_ice_clio_tau 
     193            CALL blk_ice_clio_flx( zsist, zalb_cs, zalb_os, zalb_ice ) 
    192194 
    193195         CASE( jp_core )           ! CORE bulk formulation 
Note: See TracChangeset for help on using the changeset viewer.