setup_dims_mod.F90

Go to the documentation of this file.

MODULE setup_dims_mod
CONTAINS
SUBROUTINE setup_dims

USE parkind1  ,ONLY : jpim     ,jprb

USE tpm_dim

IMPLICIT NONE

INTEGER(KIND=JPIM) :: JM,JN,ISPOLEG

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

ispoleg = 0
DO jm=0,r%NSMAX
  DO jn=jm,r%NTMAX+1
    ispoleg = ispoleg+1
  ENDDO
ENDDO
r%NSPOLEG = ispoleg

r%NSPEC_G = (r%NSMAX+1)*(r%NSMAX+2)/2
r%NSPEC2_G = r%NSPEC_G*2

r%NDGNH = (r%NDGL+1)/2

r%NLEI1 = r%NSMAX+4+mod(r%NSMAX+4+1,2)
r%NLEI3 = r%NDGNH+mod(r%NDGNH+2,2)

r%NLED3 = r%NTMAX+2+mod(r%NTMAX+3,2)
r%NLED4 = r%NTMAX+3+mod(r%NTMAX+4,2)

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

END SUBROUTINE setup_dims
END MODULE setup_dims_mod