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 13798 for NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/OCE/ISF – NEMO

Ignore:
Timestamp:
2020-11-16T11:20:33+01:00 (4 years ago)
Author:
cetlod
Message:

dev_r13333_TOP-05_Ethe_Agrif : phasing with trunk at revision r13787

Location:
NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif

    • Property svn:externals

      •  

        old new  
        88 
        99# SETTE 
        10 ^/utils/CI/sette@13292        sette 
         10^/utils/CI/sette@13559        sette 

  • NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/OCE/ISF/isf_oce.F90

    r12077 r13798  
    7474   ! 
    7575   ! 2.1 -------- ice shelf cavity parameter -------------- 
    76    LOGICAL , PUBLIC            :: l_isfoasis 
     76   LOGICAL , PUBLIC            :: l_isfoasis = .FALSE. 
    7777   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)    ::   risfload                    !: ice shelf load 
    7878   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)    ::   fwfisf_oasis 

  • NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/OCE/ISF/isfcavmlt.F90

    r13295 r13798  
    136136      !! ** Method     : The ice shelf melt latent heat is defined as being equal to the ocean/ice heat flux. 
    137137      !!                 From this we can derived the fwf, ocean/ice heat flux and the heat content flux as being : 
    138       !!                   qfwf  = Gammat * Rau0 * Cp * ( Tw - Tfrz ) / Lf  
     138      !!                   qfwf  = Gammat * rho0 * Cp * ( Tw - Tfrz ) / Lf  
    139139      !!                   qhoce = qlat 
    140140      !!                   qhc   = qfwf * Cp * Tfrz 
Note: See TracChangeset for help on using the changeset viewer.