academic_mod_h.f90 Source File


This file depends on

sourcefile~~academic_mod_h.f90~~EfferentGraph sourcefile~academic_mod_h.f90 academic_mod_h.f90 sourcefile~paramet_mod_h.f90 paramet_mod_h.f90 sourcefile~academic_mod_h.f90->sourcefile~paramet_mod_h.f90

Files dependent on this one

sourcefile~~academic_mod_h.f90~~AfferentGraph sourcefile~academic_mod_h.f90 academic_mod_h.f90 sourcefile~friction_loc.f90 friction_loc.f90 sourcefile~friction_loc.f90->sourcefile~academic_mod_h.f90 sourcefile~iniacademic_loc.f90 iniacademic_loc.f90 sourcefile~iniacademic_loc.f90->sourcefile~academic_mod_h.f90 sourcefile~leapfrog_loc.f90 leapfrog_loc.f90 sourcefile~leapfrog_loc.f90->sourcefile~academic_mod_h.f90 sourcefile~iniacademic.f90 iniacademic.f90 sourcefile~iniacademic.f90->sourcefile~academic_mod_h.f90 sourcefile~leapfrog.f90 leapfrog.f90 sourcefile~leapfrog.f90->sourcefile~academic_mod_h.f90 sourcefile~friction.f90 friction.f90 sourcefile~friction.f90->sourcefile~academic_mod_h.f90

Contents

Source Code


Source Code

! Replaces academic.h

MODULE academic_mod_h
  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
  USE paramet_mod_h
  IMPLICIT NONE; PRIVATE

  PUBLIC tetarappel, knewt_t, kfrict, knewt_g, clat4

  REAL :: tetarappel(ip1jmp1, llm)
  REAL :: knewt_t(llm)
  REAL :: kfrict(llm)
  REAL :: knewt_g
  REAL :: clat4(ip1jmp1)

END MODULE academic_mod_h