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 14916 for NEMO/branches/2021 – NEMO

Changeset 14916 for NEMO/branches/2021


Ignore:
Timestamp:
2021-05-27T18:40:14+02:00 (3 years ago)
Author:
mathiot
Message:

ticket #2669: bg03 option uses rn_gammat0 defined in cav namelist bloc (corrected by adding a new namelist parameter rn_isfpar_bg03_gt0)

Location:
NEMO/branches/2021/ticket2669_isf_fluxes
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/ticket2669_isf_fluxes/cfgs/SHARED/namelist_ref

    r14906 r14916  
    560560         !                      ! oasis = fwfisf is given by oasis and pattern by file sn_isfpar_fwf 
    561561         ! 
     562         !* bg03 case 
     563         rn_isfpar_bg03_gt0 = 1.0e-4 ! gamma coeficient used in bg03 paper [m/s] 
     564         ! 
     565         !*** File definition *** 
     566         ! 
    562567         !* all cases 
    563568         !___________!_____________!___________________!___________!_____________!_________!___________!__________!__________!_______________! 
    … …  
    566571         sn_isfpar_zmax = 'isfmlt_par',       0.       ,'sozisfmax',  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
    567572         sn_isfpar_zmin = 'isfmlt_par',       0.       ,'sozisfmin',  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
     573         ! 
    568574         !* 'spe' and 'oasis' case 
    569575         sn_isfpar_fwf = 'isfmlt_par' ,      -12.      ,'sofwfisf' ,  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
     576         ! 
    570577         !* 'bg03' case 
     578         !* Leff is in [km] 
    571579         sn_isfpar_Leff = 'isfmlt_par',       0.       ,'Leff'     ,  .false.    , .true.  , 'yearly'  ,    ''    ,   ''     ,    '' 
    572580      ! 

  • NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isf_oce.F90

    r14064 r14916  
    4747   ! 
    4848   ! 0.3 -------- ice shelf cavity parametrised namelist parameter ------------- 
    49    LOGICAL           , PUBLIC :: ln_isfpar_mlt   !: logical for the computation of melt inside the cavity 
    50    CHARACTER(LEN=256), PUBLIC :: cn_isfpar_mlt   !: melt formulation (cavity/param) 
    51    TYPE(FLD_N)       , PUBLIC :: sn_isfpar_fwf   !: information about the isf melting file to be read 
    52    TYPE(FLD_N)       , PUBLIC :: sn_isfpar_zmax  !: information about the grounding line depth file to be read 
    53    TYPE(FLD_N)       , PUBLIC :: sn_isfpar_zmin  !: information about the calving   line depth file to be read 
    54    TYPE(FLD_N)       , PUBLIC :: sn_isfpar_Leff  !: information about the effective length     file to be read 
     49   LOGICAL           , PUBLIC :: ln_isfpar_mlt      !: logical for the computation of melt inside the cavity 
     50   REAL(wp)          , PUBLIC :: rn_isfpar_bg03_gt0 !: temperature exchange coeficient [m/s] 
     51   CHARACTER(LEN=256), PUBLIC :: cn_isfpar_mlt      !: melt formulation (cavity/param) 
     52   TYPE(FLD_N)       , PUBLIC :: sn_isfpar_fwf      !: information about the isf melting file to be read 
     53   TYPE(FLD_N)       , PUBLIC :: sn_isfpar_zmax     !: information about the grounding line depth file to be read 
     54   TYPE(FLD_N)       , PUBLIC :: sn_isfpar_zmin     !: information about the calving   line depth file to be read 
     55   TYPE(FLD_N)       , PUBLIC :: sn_isfpar_Leff     !: information about the effective length     file to be read 
    5556   ! 
    5657   ! 0.4 -------- coupling namelist parameter ------------- 

  • NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfparmlt.F90

    r14908 r14916  
    157157      ! 
    158158      ! 2. ------------Net heat flux and fresh water flux due to the ice shelf 
    159       pqfwf(:,:) = - rho0 * rcp * rn_gammat0 * risfLeff(:,:) * e1t(:,:) * (ztavg(:,:) - ztfrz(:,:) ) * r1_e1e2t(:,:) / rLfusisf  ! ( > 0 out ) 
     159      pqfwf(:,:) = - rho0 * rcp * rn_isfpar_bg03_gt0 * risfLeff(:,:) * e1t(:,:) * (ztavg(:,:) - ztfrz(:,:) ) * r1_e1e2t(:,:) / rLfusisf  ! ( > 0 out ) 
    160160      pqoce(:,:) = - pqfwf(:,:) * rLfusisf             ! ocean/ice shelf flux assume to be equal to latent heat flux  ( > 0 out ) 
    161161      pqhc (:,:) =   pqfwf(:,:) * ztfrz(:,:) * rcp     ! heat content flux                                            ( > 0 out ) 

  • NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfstp.F90

    r14143 r14916  
    301301         &             sn_isfpar_zmin, sn_isfpar_zmax, sn_isfpar_Leff,                           & 
    302302         &             ln_isfcpl     , nn_drown      , ln_isfcpl_cons, ln_isfdebug,              & 
    303          &             cn_isfload    , rn_isfload_T  , rn_isfload_S  , cn_isfdir 
     303         &             cn_isfload    , rn_isfload_T  , rn_isfload_S  , cn_isfdir  ,              & 
     304         &             rn_isfpar_bg03_gt0 
    304305      !!---------------------------------------------------------------------- 
    305306      ! 
Note: See TracChangeset for help on using the changeset viewer.