raddimlw_mod_h.f90 Source File


Files dependent on this one

sourcefile~~raddimlw_mod_h.f90~~AfferentGraph sourcefile~raddimlw_mod_h.f90 raddimlw_mod_h.f90 sourcefile~radiation_ar4.f90 radiation_AR4.f90 sourcefile~radiation_ar4.f90->sourcefile~raddimlw_mod_h.f90 sourcefile~radiation_ar4.f90~2 radiation_AR4.f90 sourcefile~radiation_ar4.f90~2->sourcefile~raddimlw_mod_h.f90

Contents

Source Code


Source Code

MODULE raddimlw_mod_h
  IMPLICIT NONE; PRIVATE
  PUBLIC nua, ntra, ninter, ng1, ng1p1

  INTEGER NUA
  PARAMETER (NUA = 24)
  INTEGER NTRA
  PARAMETER (NTRA = 15)
  INTEGER Ninter
  PARAMETER (Ninter = 6)
  INTEGER NG1, NG1P1
  PARAMETER (NG1 = 2, NG1P1 = NG1 + 1)
END MODULE raddimlw_mod_h