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 2044 – NEMO

Changeset 2044


Ignore:
Timestamp:
2010-08-11T14:27:04+02:00 (14 years ago)
Author:
smasson
Message:

small bugfix for coupled mode, see ticket:669

Location:
trunk/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/DOM/phycst.F90

    r1932 r2044  
    6666   REAL(wp), PUBLIC ::   rcpsn   =   6.9069e+5_wp !: density times specific heat for snow 
    6767   REAL(wp), PUBLIC ::   rcpic   =   1.8837e+6_wp !: volumetric latent heat fusion of sea ice 
     68   REAL(wp), PUBLIC ::   lfus    =   0.3337e+6    !: latent heat of fusion of fresh ice   (J.kg-1)     
    6869   REAL(wp), PUBLIC ::   xlsn    = 110.121e+6_wp  !: volumetric latent heat fusion of snow 
    6970   REAL(wp), PUBLIC ::   xlic    = 300.33e+6_wp   !: volumetric latent heat fusion of ice 

  • trunk/NEMO/OPA_SRC/SBC/sbccpl.F90

    r1860 r2044  
    4040   USE restart         ! 
    4141   USE oce   , ONLY : tn, un, vn 
    42    USE phycst, ONLY : rt0, rcp 
    4342   USE albedo          ! 
    4443   USE in_out_manager  ! I/O manager 
Note: See TracChangeset for help on using the changeset viewer.