SISVAT_TS2 Subroutine

subroutine SISVAT_TS2()

Uses

  • proc~~sisvat_ts2~~UsesGraph proc~sisvat_ts2 SISVAT_TS2 module~yomcst_mod_h yomcst_mod_h proc~sisvat_ts2->module~yomcst_mod_h module~vartsv VARtSV proc~sisvat_ts2->module~vartsv module~varphy VARphy proc~sisvat_ts2->module~varphy module~comsoil_mod_h comsoil_mod_h proc~sisvat_ts2->module~comsoil_mod_h module~varysv VARySV proc~sisvat_ts2->module~varysv module~vardsv~2 VARdSV proc~sisvat_ts2->module~vardsv~2 module~yoethf_mod_h yoethf_mod_h proc~sisvat_ts2->module~yoethf_mod_h module~indice_sol_mod indice_sol_mod proc~sisvat_ts2->module~indice_sol_mod module~varxsv VARxSV proc~sisvat_ts2->module~varxsv module~var_sv VAR_SV proc~sisvat_ts2->module~var_sv module~vartsv->module~var_sv module~varysv->module~var_sv module~vardsv~2->module~var_sv module~varxsv->module~var_sv module~dimsoil_mod_h dimsoil_mod_h module~var_sv->module~dimsoil_mod_h

======================================================================= I. First part: corresponds to soil.F90 in LMDZ =======================================================================

use arithmetic center between layers to derive dz1 for snow layers for simplicity:

1) Calculation of Cgrf and Dgrd coefficients using soil temperature from previous time step.

These variables are recalculated on the local compressed grid instead of saved in restart file.

2) Computation of the soil temperatures using the Cgrd and Dgrd coefficient computed above

Extrapolate surface Temperature !hj check write(,)min(max(isnoSV(ig),0),1),max(1-isnoSV(ig),0)

Surface temperature Other temperatures

3) Calculate the Cgrd and Dgrd coefficient corresponding to actual soil temperature

4) Computation of the surface diffusive flux from ground and calorific capacity of the ground

(pfluxgrd) (pcapcal) ======================================================================= II. Second part: corresponds to calcul_fluxs_mod.F90 in LMDZ =======================================================================

zx_qs = qsat en kg/kg **********x***

      write(*,*)'ig',ig,'Tsrf',Tsrf(ig)

=== Calcul de la temperature de surface === zx_sl = chaleur latente d'evaporation ou de sublimation

Q H surface temperature == flux_q est le flux de vapeur d'eau: kg/(m2 s) positive vers bas == flux_t est le flux de cpt (energie sensible): j/(m2 s) Derives des flux dF/dTs (W m-2 K-1): Nouvelle valeure de l'humidite au dessus du sol

Arguments

None

Calls

proc~~sisvat_ts2~~CallsGraph proc~sisvat_ts2 SISVAT_TS2 foeew foeew proc~sisvat_ts2->foeew qsatl qsatl proc~sisvat_ts2->qsatl dqsatl dqsatl proc~sisvat_ts2->dqsatl qsats qsats proc~sisvat_ts2->qsats foede foede proc~sisvat_ts2->foede dqsats dqsats proc~sisvat_ts2->dqsats

Called by

proc~~sisvat_ts2~~CalledByGraph proc~sisvat_ts2 SISVAT_TS2 proc~inlandsis INLANDSIS proc~inlandsis->proc~sisvat_ts2 proc~inlandsis~2 INLANDSIS proc~inlandsis~2->proc~sisvat_ts2 proc~surf_inlandsis surf_inlandsis proc~surf_inlandsis->proc~inlandsis proc~surf_inlandsis~2 surf_inlandsis proc~surf_inlandsis~2->proc~inlandsis proc~surf_landice surf_landice proc~surf_landice->proc~surf_inlandsis proc~surf_landice~2 surf_landice proc~surf_landice~2->proc~surf_inlandsis proc~pbl_surface pbl_surface proc~pbl_surface->proc~surf_landice proc~pbl_surface~2 pbl_surface proc~pbl_surface~2->proc~surf_landice proc~physiq physiq proc~physiq->proc~pbl_surface proc~physiq~2 physiq proc~physiq~2->proc~pbl_surface proc~old_lmdz1d old_lmdz1d proc~old_lmdz1d->proc~physiq proc~call_physiq call_physiq proc~call_physiq->proc~physiq proc~call_physiq~2 call_physiq proc~call_physiq~2->proc~physiq proc~scm scm proc~scm->proc~physiq program~lmdz1d lmdz1d program~lmdz1d->proc~old_lmdz1d program~lmdz1d->proc~scm proc~calfis calfis proc~calfis->proc~call_physiq proc~leapfrog leapfrog proc~leapfrog->proc~calfis program~gcm~2 gcm program~gcm~2->proc~leapfrog

Contents

None