ener_mod.f90 Source File


This file depends on

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

Files dependent on this one

sourcefile~~ener_mod.f90~~AfferentGraph sourcefile~ener_mod.f90 ener_mod.f90 sourcefile~iniacademic_loc.f90 iniacademic_loc.f90 sourcefile~iniacademic_loc.f90->sourcefile~ener_mod.f90 sourcefile~dynredem.f90 dynredem.f90 sourcefile~dynredem.f90->sourcefile~ener_mod.f90 sourcefile~advect.f90 advect.f90 sourcefile~advect.f90->sourcefile~ener_mod.f90 sourcefile~dynetat0_loc.f90 dynetat0_loc.f90 sourcefile~dynetat0_loc.f90->sourcefile~ener_mod.f90 sourcefile~dynredem_loc.f90 dynredem_loc.f90 sourcefile~dynredem_loc.f90->sourcefile~ener_mod.f90 sourcefile~sortvarc.f90 sortvarc.f90 sourcefile~sortvarc.f90->sourcefile~ener_mod.f90 sourcefile~iniacademic.f90 iniacademic.f90 sourcefile~iniacademic.f90->sourcefile~ener_mod.f90 sourcefile~dynetat0.f90 dynetat0.f90 sourcefile~dynetat0.f90->sourcefile~ener_mod.f90

Contents

Source Code


Source Code

!
! $Id: ener_mod.f90 5285 2024-10-28 13:33:29Z abarral $
!
MODULE ener_mod

USE dimensions_mod, ONLY: iim, jjm, llm, ndm
USE paramet_mod_h
IMPLICIT NONE




      REAL ang0,etot0,ptot0,ztot0,stot0,			&
		ang,etot,ptot,ztot,stot,rmsdpdt,rmsv,gtot(llmm1)


END MODULE ener_mod