comdissipn_mod_h.f90 Source File


Files dependent on this one

sourcefile~~comdissipn_mod_h.f90~~AfferentGraph sourcefile~comdissipn_mod_h.f90 comdissipn_mod_h.f90 sourcefile~gradiv2_loc.f90 gradiv2_loc.f90 sourcefile~gradiv2_loc.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~divgrad2.f90 divgrad2.f90 sourcefile~divgrad2.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~top_bound.f90 top_bound.f90 sourcefile~top_bound.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~divgrad.f90 divgrad.f90 sourcefile~divgrad.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~nxgraro2_loc.f90 nxgraro2_loc.f90 sourcefile~nxgraro2_loc.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~top_bound_loc.f90 top_bound_loc.f90 sourcefile~top_bound_loc.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~divgrad2_loc.f90 divgrad2_loc.f90 sourcefile~divgrad2_loc.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~gradiv2.f90 gradiv2.f90 sourcefile~gradiv2.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~gradiv.f90 gradiv.f90 sourcefile~gradiv.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~inidissip.f90 inidissip.f90 sourcefile~inidissip.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~nxgrarot.f90 nxgrarot.f90 sourcefile~nxgrarot.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~dissip.f90 dissip.f90 sourcefile~dissip.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~dissip_loc.f90 dissip_loc.f90 sourcefile~dissip_loc.f90->sourcefile~comdissipn_mod_h.f90 sourcefile~nxgraro2.f90 nxgraro2.f90 sourcefile~nxgraro2.f90->sourcefile~comdissipn_mod_h.f90

Contents

Source Code


Source Code

! Replaces comdissipn.h
MODULE comdissipn_mod_h
  USE dimensions_mod, ONLY: iim, jjm, llm, ndm
  IMPLICIT NONE; PRIVATE
  PUBLIC tetaudiv, tetaurot, tetah, cdivu, crot, cdivh



  REAL tetaudiv(llm), tetaurot(llm), tetah(llm), cdivu, crot, cdivh
END MODULE comdissipn_mod_h