sufft_mod.F90

Go to the documentation of this file.

MODULE sufft_mod
CONTAINS
SUBROUTINE sufft

USE parkind1  ,ONLY : jpim     ,jprb

USE tpm_dim
USE tpm_gen
USE tpm_distr
USE tpm_geometry
USE tpm_fft

IMPLICIT NONE

INTEGER(KIND=JPIM) :: JGL,IGLG
LOGICAL :: LLP1,LLP2

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

llp1 = nprintlev>0
llp2 = nprintlev>1
IF(llp1) WRITE(nout,*) '=== ENTER ROUTINE SUFFT ==='

ALLOCATE(t%TRIGS(r%NDLON,d%NDGL_FS))
IF(llp2)WRITE(nout,9) 'T%TRIGS    ',SIZE(t%TRIGS),shape(t%TRIGS)
ALLOCATE(t%NFAX(19,d%NDGL_FS))
IF(llp2)WRITE(nout,9) 'T%NFAX     ',SIZE(t%NFAX),shape(t%NFAX)

DO jgl=1,d%NDGL_FS
  iglg = d%NPTRLS(mysetw)+jgl-1
  CALL set99(t%TRIGS(1,jgl),t%NFAX(1,jgl),g%NLOEN(iglg))
ENDDO

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

9 FORMAT(1x,'ARRAY ',a10,' ALLOCATED ',8i8)

END SUBROUTINE sufft
END MODULE sufft_mod