pardim.F90 Source File


This file depends on

sourcefile~~pardim.f90~~EfferentGraph sourcefile~pardim.f90 pardim.F90 sourcefile~parkind1.f90 parkind1.F90 sourcefile~pardim.f90->sourcefile~parkind1.f90

Files dependent on this one

sourcefile~~pardim.f90~~AfferentGraph sourcefile~pardim.f90 pardim.F90 sourcefile~parfpos.f90 parfpos.F90 sourcefile~parfpos.f90->sourcefile~pardim.f90 sourcefile~suinit.f90~2 suinit.F90 sourcefile~suinit.f90~2->sourcefile~pardim.f90 sourcefile~parfpos.f90~2 parfpos.F90 sourcefile~parfpos.f90~2->sourcefile~pardim.f90 sourcefile~suecrad.f90 suecrad.F90 sourcefile~suecrad.f90->sourcefile~pardim.f90 sourcefile~suinit.f90 suinit.F90 sourcefile~suinit.f90->sourcefile~pardim.f90 sourcefile~suecrad.f90~2 suecrad.F90 sourcefile~suecrad.f90~2->sourcefile~pardim.f90 sourcefile~yomfpc.f90 yomfpc.F90 sourcefile~yomfpc.f90->sourcefile~parfpos.f90 sourcefile~yomfpc.f90~2 yomfpc.F90 sourcefile~yomfpc.f90~2->sourcefile~parfpos.f90 sourcefile~suphmf.f90 suphmf.F90 sourcefile~suphmf.f90->sourcefile~yomfpc.f90 sourcefile~suphmf.f90~2 suphmf.F90 sourcefile~suphmf.f90~2->sourcefile~yomfpc.f90

Contents

Source Code


Source Code

MODULE PARDIM

USE PARKIND1  ,ONLY : JPIM     ,JPRB

IMPLICIT NONE

SAVE

!     ------------------------------------------------------------------

!     JPMXLE : MAXIMUM NUMBER OF LEVELS
!     JPMXGL : MAXIMUM NUMBER OF GAUSSIAN LATITUDES 

!     JPFPPYX : Maximum number of fields in catalogue cilipdy

!     JPNULNAM : Fortran unit number used for namelist reading

INTEGER(KIND=JPIM), PARAMETER :: JPMXLE=200
INTEGER(KIND=JPIM), PARAMETER :: JPMXGL=2056
INTEGER(KIND=JPIM), PARAMETER :: JPFPPYX=17
INTEGER(KIND=JPIM), PARAMETER :: JPNULNAM=4

!     ------------------------------------------------------------------
END MODULE PARDIM