Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Qualify the module imports of SULEG #19

Merged
merged 2 commits into from
Jan 6, 2023
Merged

Qualify the module imports of SULEG #19

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
6dd71e7
Qualify the module imports of SULEG
samhatfield Dec 20, 2022
fe25252
Remove redundant USE statement from SULEG
samhatfield Dec 21, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
57 changes: 29 additions & 28 deletions src/trans/internal/suleg_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -16,34 +16,35 @@ MODULE SULEG_MOD
SUBROUTINE SULEG
!DEC$ OPTIMIZE:1

USE PARKIND1 ,ONLY : JPRD, JPIM, JPRB
USE PARKIND2 ,ONLY : JPRH
USE MPL_MODULE

USE TPM_GEN
USE TPM_DIM
USE TPM_CONSTANTS
USE TPM_DISTR
USE TPM_FIELDS
USE TPM_FLT
USE TPM_GEOMETRY
USE TPM_CTL
USE ABORT_TRANS_MOD ,ONLY : ABORT_TRANS

USE PRE_SULEG_MOD
USE SUGAW_MOD
USE SUPOL_MOD
USE SUPOLF_MOD
USE TPM_POL
USE SUTRLE_MOD
USE SETUP_GEOM_MOD
USE BUTTERFLY_ALG_MOD
USE SEEFMM_MIX
USE SET2PE_MOD
USE ABORT_TRANS_MOD
USE PREPSNM_MOD ,ONLY : PREPSNM
USE WRITE_LEGPOL_MOD
USE READ_LEGPOL_MOD
USE PARKIND1 ,ONLY : JPRD, JPIM, JPRB
USE PARKIND2 ,ONLY : JPRH
USE MPL_MODULE ,ONLY : MPL_BYTES, MPL_BARRIER, JP_NON_BLOCKING_STANDARD, MPL_RECV, &
& MPL_SEND, MPL_WAIT

USE TPM_GEN ,ONLY : NOUT, LMPOFF, NPRINTLEV
USE TPM_DIM ,ONLY : R
USE TPM_CONSTANTS ,ONLY : RA
USE TPM_DISTR ,ONLY : NPRTRV, NPRTRW, NPROC, D, MTAGLETR, MYPROC, MYSETV, MYSETW, NPRCIDS
USE TPM_FIELDS ,ONLY : F
USE TPM_FLT ,ONLY : S
USE TPM_GEOMETRY ,ONLY : G
USE TPM_CTL ,ONLY : C
USE ABORT_TRANS_MOD ,ONLY : ABORT_TRANS

USE PRE_SULEG_MOD ,ONLY : PRE_SULEG
USE SUGAW_MOD ,ONLY : SUGAW
USE SUPOL_MOD ,ONLY : SUPOL
USE SUPOLF_MOD ,ONLY : SUPOLF
USE TPM_POL ,ONLY : INI_POL, END_POL
USE SUTRLE_MOD ,ONLY : SUTRLE
USE SETUP_GEOM_MOD ,ONLY : SETUP_GEOM
USE BUTTERFLY_ALG_MOD ,ONLY : CLONE, CONSTRUCT_BUTTERFLY, PACK_BUTTERFLY_STRUCT, &
& UNPACK_BUTTERFLY_STRUCT
USE SEEFMM_MIX ,ONLY : SETUP_SEEFMM
USE SET2PE_MOD ,ONLY : SET2PE
USE PREPSNM_MOD ,ONLY : PREPSNM
USE WRITE_LEGPOL_MOD ,ONLY : WRITE_LEGPOL
USE READ_LEGPOL_MOD ,ONLY : READ_LEGPOL

!**** *SULEG * - initialize the Legendre polynomials

Expand Down