comsoil_mod_h.f90 Source File


Files dependent on this one

sourcefile~~comsoil_mod_h.f90~~AfferentGraph sourcefile~comsoil_mod_h.f90 comsoil_mod_h.f90 sourcefile~conf_phys_m.f90 conf_phys_m.f90 sourcefile~conf_phys_m.f90->sourcefile~comsoil_mod_h.f90 sourcefile~sisvat_ts2.f90 sisvat_ts2.f90 sourcefile~sisvat_ts2.f90->sourcefile~comsoil_mod_h.f90 sourcefile~soil.f90 soil.f90 sourcefile~soil.f90->sourcefile~comsoil_mod_h.f90 sourcefile~soil_hetero.f90 soil_hetero.F90 sourcefile~soil_hetero.f90->sourcefile~comsoil_mod_h.f90 sourcefile~soil.f90~2 soil.f90 sourcefile~soil.f90~2->sourcefile~comsoil_mod_h.f90 sourcefile~soil_hetero.f90~2 soil_hetero.F90 sourcefile~soil_hetero.f90~2->sourcefile~comsoil_mod_h.f90 sourcefile~conf_phys_m.f90~2 conf_phys_m.f90 sourcefile~conf_phys_m.f90~2->sourcefile~comsoil_mod_h.f90 sourcefile~sisvat_ts2.f90~2 sisvat_ts2.f90 sourcefile~sisvat_ts2.f90~2->sourcefile~comsoil_mod_h.f90 sourcefile~physiq_mod.f90 physiq_mod.F90 sourcefile~physiq_mod.f90->sourcefile~conf_phys_m.f90 sourcefile~etat0phys_netcdf.f90 etat0phys_netcdf.f90 sourcefile~etat0phys_netcdf.f90->sourcefile~conf_phys_m.f90 sourcefile~physiq_mod.f90~2 physiq_mod.F90 sourcefile~physiq_mod.f90~2->sourcefile~conf_phys_m.f90 sourcefile~old_lmdz1d.f90 old_lmdz1d.f90 sourcefile~old_lmdz1d.f90->sourcefile~physiq_mod.f90 sourcefile~callphysiq_mod.f90 callphysiq_mod.f90 sourcefile~callphysiq_mod.f90->sourcefile~physiq_mod.f90 sourcefile~ce0l.f90 ce0l.F90 sourcefile~ce0l.f90->sourcefile~etat0phys_netcdf.f90 sourcefile~callphysiq_mod.f90~2 callphysiq_mod.f90 sourcefile~callphysiq_mod.f90~2->sourcefile~physiq_mod.f90 sourcefile~scm.f90 scm.f90 sourcefile~scm.f90->sourcefile~physiq_mod.f90 sourcefile~calfis.f90 calfis.f90 sourcefile~calfis.f90->sourcefile~callphysiq_mod.f90

Contents

Source Code


Source Code

! Replaces comsoil.h

MODULE comsoil_mod_h
  IMPLICIT NONE; PRIVATE
  PUBLIC inertie_sol, inertie_sno, inertie_sic, inertie_lic, iflag_sic, iflag_inertie

  REAL inertie_sol, inertie_sno, inertie_sic, inertie_lic
  INTEGER iflag_sic, iflag_inertie
  !$OMP THREADPRIVATE(inertie_sol,inertie_sno,inertie_sic,inertie_lic, iflag_sic,iflag_inertie)
END MODULE comsoil_mod_h