Changeset 14916 for NEMO/branches/2021/ticket2669_isf_fluxes/src
- Timestamp:
- 2021-05-27T18:40:14+02:00 (3 years ago)
- Location:
- NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isf_oce.F90
r14064 r14916 47 47 ! 48 48 ! 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 55 56 ! 56 57 ! 0.4 -------- coupling namelist parameter ------------- -
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfparmlt.F90
r14908 r14916 157 157 ! 158 158 ! 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 ) 160 160 pqoce(:,:) = - pqfwf(:,:) * rLfusisf ! ocean/ice shelf flux assume to be equal to latent heat flux ( > 0 out ) 161 161 pqhc (:,:) = pqfwf(:,:) * ztfrz(:,:) * rcp ! heat content flux ( > 0 out ) -
NEMO/branches/2021/ticket2669_isf_fluxes/src/OCE/ISF/isfstp.F90
r14143 r14916 301 301 & sn_isfpar_zmin, sn_isfpar_zmax, sn_isfpar_Leff, & 302 302 & 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 304 305 !!---------------------------------------------------------------------- 305 306 !
Note: See TracChangeset
for help on using the changeset viewer.