From a579bae0727098a6fd0a68b5224951746034e02f Mon Sep 17 00:00:00 2001 From: Zbigniew Piotrowski Date: Mon, 20 Nov 2023 16:04:13 +0100 Subject: [PATCH] Create stub include file, remove unused imports of JPRB in trans/internal, introduce JPRC => JPRB type to annotate number constants in ./internal. This is because nvhpc preprocessor does not allow _JPRB macro. --- src/trans/include/ectrans/renames.inc | 0 src/trans/internal/abort_trans_mod.F90 | 1 + src/trans/internal/asre1_mod.F90 | 1 + src/trans/internal/asre1ad_mod.F90 | 1 + src/trans/internal/asre1b_mod.F90 | 1 + src/trans/internal/asre1bad_mod.F90 | 1 + src/trans/internal/cdmap_mod.F90 | 14 +++--- src/trans/internal/cpledn_mod.F90 | 1 + src/trans/internal/dealloc_resol_mod.F90 | 3 +- src/trans/internal/dir_trans_ctl_mod.F90 | 1 + src/trans/internal/dir_trans_ctlad_mod.F90 | 1 + src/trans/internal/dist_grid_32_ctl_mod.F90 | 3 +- src/trans/internal/dist_grid_ctl_mod.F90 | 1 + src/trans/internal/dist_spec_control_mod.F90 | 4 +- src/trans/internal/ectrans_version_mod.F90.in | 2 +- src/trans/internal/eq_regions_mod.F90 | 50 ++++++++++--------- src/trans/internal/field_split_mod.F90 | 3 +- src/trans/internal/fourier_in_mod.F90 | 1 + src/trans/internal/fourier_inad_mod.F90 | 1 + src/trans/internal/fourier_out_mod.F90 | 1 + src/trans/internal/fourier_outad_mod.F90 | 1 + src/trans/internal/fsc_mod.F90 | 6 ++- src/trans/internal/fscad_mod.F90 | 1 + src/trans/internal/fspgl_int_mod.F90 | 1 + src/trans/internal/ftdir_ctl_mod.F90 | 1 + src/trans/internal/ftdir_ctlad_mod.F90 | 1 + src/trans/internal/ftdir_mod.F90 | 4 +- src/trans/internal/ftdirad_mod.F90 | 6 ++- src/trans/internal/ftinv_ctl_mod.F90 | 4 +- src/trans/internal/ftinv_ctlad_mod.F90 | 1 + src/trans/internal/ftinv_mod.F90 | 4 +- src/trans/internal/ftinvad_mod.F90 | 4 +- src/trans/internal/gath_grid_32_ctl_mod.F90 | 1 + src/trans/internal/gath_grid_ctl_mod.F90 | 1 + src/trans/internal/gath_spec_control_mod.F90 | 6 ++- src/trans/internal/gawl_mod.F90 | 1 + src/trans/internal/gpnorm_trans_ctl_mod.F90 | 8 +-- src/trans/internal/inigptr_mod.F90 | 3 +- src/trans/internal/inv_trans_ctl_mod.F90 | 1 + src/trans/internal/inv_trans_ctlad_mod.F90 | 1 + src/trans/internal/ldfou2_mod.F90 | 1 + src/trans/internal/ldfou2ad_mod.F90 | 1 + src/trans/internal/ledir_mod.F90 | 1 + src/trans/internal/ledirad_mod.F90 | 6 ++- src/trans/internal/leinv_mod.F90 | 6 ++- src/trans/internal/leinvad_mod.F90 | 1 + src/trans/internal/ltdir_ctl_mod.F90 | 1 + src/trans/internal/ltdir_ctlad_mod.F90 | 1 + src/trans/internal/ltdir_mod.F90 | 1 + src/trans/internal/ltdirad_mod.F90 | 4 +- src/trans/internal/ltinv_ctl_mod.F90 | 1 + src/trans/internal/ltinv_ctlad_mod.F90 | 1 + src/trans/internal/ltinv_mod.F90 | 1 + src/trans/internal/ltinvad_mod.F90 | 6 ++- src/trans/internal/myrecvset_mod.F90 | 3 +- src/trans/internal/mysendset_mod.F90 | 3 +- src/trans/internal/pe2set_mod.F90 | 3 +- src/trans/internal/pre_suleg_mod.F90 | 1 + src/trans/internal/prepsnm_mod.F90 | 4 +- src/trans/internal/prfi1_mod.F90 | 1 + src/trans/internal/prfi1ad_mod.F90 | 1 + src/trans/internal/prfi1b_mod.F90 | 8 +-- src/trans/internal/prfi1bad_mod.F90 | 1 + src/trans/internal/prfi2_mod.F90 | 1 + src/trans/internal/prfi2ad_mod.F90 | 1 + src/trans/internal/prfi2b_mod.F90 | 1 + src/trans/internal/prfi2bad_mod.F90 | 1 + src/trans/internal/read_legpol_mod.F90 | 1 + src/trans/internal/set2pe_mod.F90 | 3 +- src/trans/internal/set_resol_mod.F90 | 3 +- src/trans/internal/setup_dims_mod.F90 | 3 +- src/trans/internal/setup_geom_mod.F90 | 1 + src/trans/internal/shuffle_mod.F90 | 3 +- src/trans/internal/spnorm_ctl_mod.F90 | 4 +- src/trans/internal/spnormc_mod.F90 | 1 + src/trans/internal/spnormd_mod.F90 | 6 ++- src/trans/internal/spnsde_mod.F90 | 1 + src/trans/internal/spnsdead_mod.F90 | 1 + src/trans/internal/sufft_mod.F90 | 1 + src/trans/internal/sugaw_mod.F90 | 1 + src/trans/internal/suleg_mod.F90 | 6 ++- src/trans/internal/sump_trans0_mod.F90 | 3 +- src/trans/internal/sump_trans_mod.F90 | 1 + src/trans/internal/sump_trans_preleg_mod.F90 | 3 +- src/trans/internal/sumplat_mod.F90 | 1 + src/trans/internal/sumplatb_mod.F90 | 1 + src/trans/internal/sumplatbeq_mod.F90 | 1 + src/trans/internal/sumplatf_mod.F90 | 1 + src/trans/internal/supol_mod.F90 | 1 + src/trans/internal/supolf_mod.F90 | 1 + src/trans/internal/sustaonl_mod.F90 | 6 ++- src/trans/internal/sutrle_mod.F90 | 1 + src/trans/internal/suwavedi_mod.F90 | 1 + src/trans/internal/tpm_constants.F90 | 1 + src/trans/internal/tpm_ctl.F90 | 3 +- src/trans/internal/tpm_dim.F90 | 3 +- src/trans/internal/tpm_distr.F90 | 1 + src/trans/internal/tpm_fft.F90 | 1 + src/trans/internal/tpm_fftw.F90 | 1 + src/trans/internal/tpm_fields.F90 | 1 + src/trans/internal/tpm_flt.F90 | 1 + src/trans/internal/tpm_gen.F90 | 3 +- src/trans/internal/tpm_geometry.F90 | 1 + src/trans/internal/tpm_pol.F90 | 1 + src/trans/internal/tpm_trans.F90 | 1 + src/trans/internal/trgtol_mod.F90 | 1 + src/trans/internal/trltog_mod.F90 | 1 + src/trans/internal/trltom_mod.F90 | 1 + src/trans/internal/trmtol_mod.F90 | 1 + src/trans/internal/updsp_mod.F90 | 10 ++-- src/trans/internal/updspad_mod.F90 | 18 ++++--- src/trans/internal/updspb_mod.F90 | 6 ++- src/trans/internal/updspbad_mod.F90 | 16 +++--- src/trans/internal/uvtvd_mod.F90 | 6 ++- src/trans/internal/uvtvdad_mod.F90 | 1 + src/trans/internal/vd2uv_ctl_mod.F90 | 1 + src/trans/internal/vd2uv_mod.F90 | 4 +- src/trans/internal/vdtuv_mod.F90 | 1 + src/trans/internal/vdtuvad_mod.F90 | 1 + src/trans/internal/write_legpol_mod.F90 | 1 + 120 files changed, 248 insertions(+), 103 deletions(-) create mode 100644 src/trans/include/ectrans/renames.inc diff --git a/src/trans/include/ectrans/renames.inc b/src/trans/include/ectrans/renames.inc new file mode 100644 index 00000000..e69de29b diff --git a/src/trans/internal/abort_trans_mod.F90 b/src/trans/internal/abort_trans_mod.F90 index aee35f53..dcad92f6 100644 --- a/src/trans/internal/abort_trans_mod.F90 +++ b/src/trans/internal/abort_trans_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE ABORT_TRANS_MOD CONTAINS SUBROUTINE ABORT_TRANS(CDTEXT) diff --git a/src/trans/internal/asre1_mod.F90 b/src/trans/internal/asre1_mod.F90 index bf60d1b9..adbbc2f1 100644 --- a/src/trans/internal/asre1_mod.F90 +++ b/src/trans/internal/asre1_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE ASRE1_MOD CONTAINS SUBROUTINE ASRE1(KM,KMLOC,KF_OUT_LT,PAOA1,PSOA1) diff --git a/src/trans/internal/asre1ad_mod.F90 b/src/trans/internal/asre1ad_mod.F90 index 75723149..a9e5d060 100644 --- a/src/trans/internal/asre1ad_mod.F90 +++ b/src/trans/internal/asre1ad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE ASRE1AD_MOD CONTAINS SUBROUTINE ASRE1AD(KM,KMLOC,KF_OUT_LT,PAOA1,PSOA1) diff --git a/src/trans/internal/asre1b_mod.F90 b/src/trans/internal/asre1b_mod.F90 index b2d67ae4..c09504e8 100644 --- a/src/trans/internal/asre1b_mod.F90 +++ b/src/trans/internal/asre1b_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE ASRE1B_MOD CONTAINS SUBROUTINE ASRE1B(KFIELD,KM,KMLOC,PAOA,PSOA) diff --git a/src/trans/internal/asre1bad_mod.F90 b/src/trans/internal/asre1bad_mod.F90 index 52ee7c02..8e105f23 100644 --- a/src/trans/internal/asre1bad_mod.F90 +++ b/src/trans/internal/asre1bad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE ASRE1BAD_MOD CONTAINS SUBROUTINE ASRE1BAD(KFIELD,KM,KMLOC,PAOA,PSOA) diff --git a/src/trans/internal/cdmap_mod.F90 b/src/trans/internal/cdmap_mod.F90 index 70b3ef8d..7e1e13b7 100644 --- a/src/trans/internal/cdmap_mod.F90 +++ b/src/trans/internal/cdmap_mod.F90 @@ -8,12 +8,14 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE CDMAP_MOD CONTAINS SUBROUTINE CDMAP(KM,KMLOC,KSL,KSLO,PEPSNM, KDIR, KDGNH, KDGNHD,& & KFIELDS, PCOEFA, PCOEFS) USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPRC => JPRB USE YOMHOOK ,ONLY : LHOOK, DR_HOOK, JPHOOK USE TPM_FLT USE TPM_GEOMETRY @@ -105,10 +107,10 @@ SUBROUTINE CDMAP(KM,KMLOC,KSL,KSLO,PEPSNM, KDIR, KDGNH, KDGNHD,& ALLOCATE(ZALL1(KFIELDS, 2*KDGNHD)) ALLOCATE(ZQX(KFIELDS, 2*KDGNH)) ALLOCATE(ZQY(KFIELDS, 2*KDGNH)) - ZQX(:,1:KSL) = 0._JPRB - ZQX(:,IEND:2*KDGNH) = 0._JPRB - ZQY(:,1:KSL) = 0._JPRB - ZQY(:,IEND:2*KDGNH) = 0._JPRB + ZQX(:,1:KSL) = 0._JPRC + ZQX(:,IEND:2*KDGNH) = 0._JPRC + ZQY(:,1:KSL) = 0._JPRC + ZQY(:,IEND:2*KDGNH) = 0._JPRC DO JGL=KSL, IEND ZQX(1:KFIELDS,JGL)=S%FA(KMLOC)%RPNMWI(JGL-KSL+1,1)*PCOEFA(1:KFIELDS,JGL) ZQY(1:KFIELDS,JGL)=S%FA(KMLOC)%RPNMWI(JGL-KSL+1,2)*PCOEFA(1:KFIELDS,JGL) @@ -150,8 +152,8 @@ SUBROUTINE CDMAP(KM,KMLOC,KSL,KSLO,PEPSNM, KDIR, KDGNH, KDGNHD,& ENDDO ALLOCATE( ZQX( KFIELDS, 2*KDGNHD)) - ZQX(:,1:KSLO) = 0._JPRB - ZQX(:,IENDO:2*KDGNHD) = 0._JPRB + ZQX(:,1:KSLO) = 0._JPRC + ZQX(:,IENDO:2*KDGNHD) = 0._JPRC DO JGL=KSLO, KDGNHD IGLS = 2*KDGNHD+1-JGL DO JF=1,KFIELDS diff --git a/src/trans/internal/cpledn_mod.F90 b/src/trans/internal/cpledn_mod.F90 index 9b60b18e..bfc4ca7a 100644 --- a/src/trans/internal/cpledn_mod.F90 +++ b/src/trans/internal/cpledn_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE CPLEDN_MOD CONTAINS SUBROUTINE CPLEDN(KN,KODD,PFN,PX,KFLAG,PW,PXN,PXMOD) diff --git a/src/trans/internal/dealloc_resol_mod.F90 b/src/trans/internal/dealloc_resol_mod.F90 index e247d3c0..a035a1bf 100644 --- a/src/trans/internal/dealloc_resol_mod.F90 +++ b/src/trans/internal/dealloc_resol_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE DEALLOC_RESOL_MOD CONTAINS SUBROUTINE DEALLOC_RESOL(KRESOL) @@ -41,7 +42,7 @@ SUBROUTINE DEALLOC_RESOL(KRESOL) ! ------------------------------------------------------------------ -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE TPM_DIM ,ONLY : R USE TPM_GEN ,ONLY : LENABLED, NOUT,NDEF_RESOL diff --git a/src/trans/internal/dir_trans_ctl_mod.F90 b/src/trans/internal/dir_trans_ctl_mod.F90 index ac2d6665..c044b800 100644 --- a/src/trans/internal/dir_trans_ctl_mod.F90 +++ b/src/trans/internal/dir_trans_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE DIR_TRANS_CTL_MOD CONTAINS SUBROUTINE DIR_TRANS_CTL(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_UV,KF_SCALARS,& diff --git a/src/trans/internal/dir_trans_ctlad_mod.F90 b/src/trans/internal/dir_trans_ctlad_mod.F90 index 9b6ad799..eec9cb01 100644 --- a/src/trans/internal/dir_trans_ctlad_mod.F90 +++ b/src/trans/internal/dir_trans_ctlad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE DIR_TRANS_CTLAD_MOD CONTAINS SUBROUTINE DIR_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_UV,KF_SCALARS,& diff --git a/src/trans/internal/dist_grid_32_ctl_mod.F90 b/src/trans/internal/dist_grid_32_ctl_mod.F90 index 967bc963..b4888220 100644 --- a/src/trans/internal/dist_grid_32_ctl_mod.F90 +++ b/src/trans/internal/dist_grid_32_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE DIST_GRID_32_CTL_MOD CONTAINS SUBROUTINE DIST_GRID_32_CTL(PGPG,KFDISTG,KPROMA,KFROM,PGP) @@ -43,7 +44,7 @@ SUBROUTINE DIST_GRID_32_CTL(PGPG,KFDISTG,KPROMA,KFROM,PGP) ! ------------------------------------------------------------------ -USE PARKIND1 ,ONLY : JPIM ,JPRB ,JPRM +USE PARKIND1 ,ONLY : JPIM ,JPRM USE MPL_MODULE USE TPM_DISTR diff --git a/src/trans/internal/dist_grid_ctl_mod.F90 b/src/trans/internal/dist_grid_ctl_mod.F90 index a13febdd..2e56f295 100644 --- a/src/trans/internal/dist_grid_ctl_mod.F90 +++ b/src/trans/internal/dist_grid_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE DIST_GRID_CTL_MOD CONTAINS SUBROUTINE DIST_GRID_CTL(PGPG,KFDISTG,KPROMA,KFROM,PGP,KSORT) diff --git a/src/trans/internal/dist_spec_control_mod.F90 b/src/trans/internal/dist_spec_control_mod.F90 index d447c840..40f8f229 100644 --- a/src/trans/internal/dist_spec_control_mod.F90 +++ b/src/trans/internal/dist_spec_control_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE DIST_SPEC_CONTROL_MOD CONTAINS SUBROUTINE DIST_SPEC_CONTROL(PSPECG,KFDISTG,KFROM,KVSET,PSPEC,LDIM1_IS_FLD,& @@ -58,6 +59,7 @@ SUBROUTINE DIST_SPEC_CONTROL(PSPECG,KFDISTG,KFROM,KVSET,PSPEC,LDIM1_IS_FLD,& ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPRC => JPRB USE MPL_MODULE ,ONLY : MPL_RECV, MPL_SEND, MPL_WAIT, MPL_WAITANY, JP_NON_BLOCKING_STANDARD USE TPM_DISTR ,ONLY : MTAGDISTSP, MYSETV, MYSETW, NPRCIDS, NPRTRW, MYPROC, NPROC, NPRTRV, D USE SET2PE_MOD ,ONLY : SET2PE @@ -163,7 +165,7 @@ SUBROUTINE DIST_SPEC_CONTROL(PSPECG,KFDISTG,KFROM,KVSET,PSPEC,LDIM1_IS_FLD,& ! The next lines ensure the large array zbuf is allocated right here and not inside an omp loop below, ! where an extra omp synchro might be needed : IF (SIZE(ZBUF) > 0) THEN - ZBUF(LBOUND(ZBUF,DIM=1),LBOUND(ZBUF,DIM=2),LBOUND(ZBUF,DIM=3))=HUGE(1._JPRB) + ZBUF(LBOUND(ZBUF,DIM=1),LBOUND(ZBUF,DIM=2),LBOUND(ZBUF,DIM=3))=HUGE(1._JPRC) ENDIF IF (LDIM1_IS_FLD) THEN diff --git a/src/trans/internal/ectrans_version_mod.F90.in b/src/trans/internal/ectrans_version_mod.F90.in index 88cae2da..27ae58ee 100644 --- a/src/trans/internal/ectrans_version_mod.F90.in +++ b/src/trans/internal/ectrans_version_mod.F90.in @@ -6,7 +6,7 @@ ! granted to it by virtue of its status as an intergovernmental organisation ! nor does it submit to any jurisdiction. ! - +#include "renames.inc" MODULE ECTRANS_VERSION_MOD IMPLICIT NONE diff --git a/src/trans/internal/eq_regions_mod.F90 b/src/trans/internal/eq_regions_mod.F90 index c01c3fc9..5aa7aa5f 100644 --- a/src/trans/internal/eq_regions_mod.F90 +++ b/src/trans/internal/eq_regions_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE eq_regions_mod ! ! Purpose. @@ -71,6 +72,7 @@ MODULE eq_regions_mod !-------------------------------------------------------------------------------- ! USE PARKIND1 ,ONLY : JPIM, JPRB +USE PARKIND1 ,ONLY : JPRC => JPRB IMPLICIT NONE @@ -151,7 +153,7 @@ subroutine eq_regions(N) real(kind=jprb),allocatable :: r_regions(:) real(kind=jprb) :: c_polar -pi=2.0_jprb*asin(1.0_jprb) +pi=2.0_jprc*asin(1.0_jprc) n_regions(:)=0 @@ -259,14 +261,14 @@ subroutine ideal_region_list(N,c_polar,n_collars,r_regions) integer(kind=jpim) :: collar_n real(kind=jprb) :: ideal_region_area,ideal_collar_area real(kind=jprb) :: a_fitting -r_regions(:)=0.0_jprb -r_regions(1) = 1.0_jprb +r_regions(:)=0.0_jprc +r_regions(1) = 1.0_jprc if( n_collars > 0 )then ! ! Based on n_collars and c_polar, determine a_fitting, ! the collar angle such that n_collars collars fit between the polar caps. ! - a_fitting = (pi-2.0_jprb*c_polar)/float(n_collars) + a_fitting = (pi-2.0_jprc*c_polar)/float(n_collars) ideal_region_area = area_of_ideal_region(N) do collar_n=1,n_collars ideal_collar_area = area_of_collar(c_polar+(collar_n-1)*a_fitting, & @@ -289,7 +291,7 @@ function ideal_collar_angle(N) result(ideal) IMPLICIT NONE integer(kind=jpim),intent(in) :: N real(kind=jprb) :: ideal -ideal = area_of_ideal_region(N)**(0.5_jprb) +ideal = area_of_ideal_region(N)**(0.5_jprc) return end function ideal_collar_angle @@ -312,7 +314,7 @@ subroutine round_to_naturals(N,n_collars,r_regions) integer(kind=jpim) :: zone_n real(kind=jprb) :: discrepancy n_regions(1:n_collars+2) = r_regions(:) -discrepancy = 0.0_jprb +discrepancy = 0.0_jprc do zone_n = 1,n_collars+2 n_regions(zone_n) = nint(r_regions(zone_n)+discrepancy); discrepancy = discrepancy+r_regions(zone_n)-float(n_regions(zone_n)); @@ -330,7 +332,7 @@ function polar_colat(N) result(polar_c) real(kind=jprb) :: area real(kind=jprb) :: polar_c if( N == 1 ) polar_c=pi -if( N == 2 ) polar_c=pi/2.0_jprb +if( N == 2 ) polar_c=pi/2.0_jprc if( N > 2 )then area=area_of_ideal_region(N) polar_c=sradius_of_cap(area) @@ -348,7 +350,7 @@ function area_of_ideal_region(N) result(area) integer(kind=jpim),intent(in) :: N real(kind=jprb) :: area_of_sphere real(kind=jprb) :: area -area_of_sphere = (2.0_jprb*pi**1.5_jprb/gamma(1.5_jprb)) +area_of_sphere = (2.0_jprc*pi**1.5_jprc/gamma(1.5_jprc)) area = area_of_sphere/float(N) return end function area_of_ideal_region @@ -362,7 +364,7 @@ function sradius_of_cap(area) result(sradius) IMPLICIT NONE real(kind=jprb),intent(in) :: area real(kind=jprb) :: sradius -sradius = 2.0_jprb*asin(sqrt(area/pi)/2.0_jprb) +sradius = 2.0_jprc*asin(sqrt(area/pi)/2.0_jprc) return end function sradius_of_cap @@ -391,7 +393,7 @@ function area_of_cap(s_cap) result(area) ! real(kind=jprb),intent(in) :: s_cap real(kind=jprb) area -area = 4.0_jprb*pi * sin(s_cap/2.0_jprb)**2 +area = 4.0_jprc*pi * sin(s_cap/2.0_jprc)**2 return end function area_of_cap @@ -405,21 +407,21 @@ function gamma(x) result(gamma_res) real(kind=jprb) :: w,y integer(kind=jpim) :: k,n parameter (& -& p0 = 0.999999999999999990e+00_jprb,& -& p1 = -0.422784335098466784e+00_jprb,& -& p2 = -0.233093736421782878e+00_jprb,& -& p3 = 0.191091101387638410e+00_jprb,& -& p4 = -0.024552490005641278e+00_jprb,& -& p5 = -0.017645244547851414e+00_jprb,& -& p6 = 0.008023273027855346e+00_jprb) +& p0 = 0.999999999999999990e+00_jprc,& +& p1 = -0.422784335098466784e+00_jprc,& +& p2 = -0.233093736421782878e+00_jprc,& +& p3 = 0.191091101387638410e+00_jprc,& +& p4 = -0.024552490005641278e+00_jprc,& +& p5 = -0.017645244547851414e+00_jprc,& +& p6 = 0.008023273027855346e+00_jprc) parameter (& -& p7 = -0.000804329819255744e+00_jprb,& -& p8 = -0.000360837876648255e+00_jprb,& -& p9 = 0.000145596568617526e+00_jprb,& -& p10 = -0.000017545539395205e+00_jprb,& -& p11 = -0.000002591225267689e+00_jprb,& -& p12 = 0.000001337767384067e+00_jprb,& -& p13 = -0.000000199542863674e+00_jprb) +& p7 = -0.000804329819255744e+00_jprc,& +& p8 = -0.000360837876648255e+00_jprc,& +& p9 = 0.000145596568617526e+00_jprc,& +& p10 = -0.000017545539395205e+00_jprc,& +& p11 = -0.000002591225267689e+00_jprc,& +& p12 = 0.000001337767384067e+00_jprc,& +& p13 = -0.000000199542863674e+00_jprc) n = nint(x - 2) w = x - (n + 2) y = ((((((((((((p13 * w + p12) * w + p11) * w + p10) *& diff --git a/src/trans/internal/field_split_mod.F90 b/src/trans/internal/field_split_mod.F90 index daa2282d..31c1036c 100644 --- a/src/trans/internal/field_split_mod.F90 +++ b/src/trans/internal/field_split_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FIELD_SPLIT_MOD CONTAINS SUBROUTINE FIELD_SPLIT(KBLK,KF_GP,KKF_UV_G,KVSETUV,KVSETSC,& @@ -58,7 +59,7 @@ SUBROUTINE FIELD_SPLIT(KBLK,KF_GP,KKF_UV_G,KVSETUV,KVSETSC,& ! Original : 01-01-03 ! ------------------------------------------------------------------ -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE TPM_GEN ,ONLY : NPROMATR !USE TPM_TRANS diff --git a/src/trans/internal/fourier_in_mod.F90 b/src/trans/internal/fourier_in_mod.F90 index 67f936aa..c3356997 100644 --- a/src/trans/internal/fourier_in_mod.F90 +++ b/src/trans/internal/fourier_in_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FOURIER_IN_MOD CONTAINS SUBROUTINE FOURIER_IN(PREEL,KFIELDS,KGL) diff --git a/src/trans/internal/fourier_inad_mod.F90 b/src/trans/internal/fourier_inad_mod.F90 index 982e043f..6597e96e 100644 --- a/src/trans/internal/fourier_inad_mod.F90 +++ b/src/trans/internal/fourier_inad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FOURIER_INAD_MOD CONTAINS SUBROUTINE FOURIER_INAD(PREEL,KFIELDS,KGL) diff --git a/src/trans/internal/fourier_out_mod.F90 b/src/trans/internal/fourier_out_mod.F90 index 9e80bcf5..285aea4e 100644 --- a/src/trans/internal/fourier_out_mod.F90 +++ b/src/trans/internal/fourier_out_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FOURIER_OUT_MOD CONTAINS SUBROUTINE FOURIER_OUT(PREEL,KFIELDS,KGL) diff --git a/src/trans/internal/fourier_outad_mod.F90 b/src/trans/internal/fourier_outad_mod.F90 index 884c3dd2..a54785d5 100644 --- a/src/trans/internal/fourier_outad_mod.F90 +++ b/src/trans/internal/fourier_outad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FOURIER_OUTAD_MOD CONTAINS SUBROUTINE FOURIER_OUTAD(PREEL,KFIELDS,KGL) diff --git a/src/trans/internal/fsc_mod.F90 b/src/trans/internal/fsc_mod.F90 index 37ef4a0f..bed6e9c1 100644 --- a/src/trans/internal/fsc_mod.F90 +++ b/src/trans/internal/fsc_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FSC_MOD CONTAINS SUBROUTINE FSC(KGL,KF_UV,KF_SCALARS,KF_SCDERS,& @@ -47,6 +48,7 @@ SUBROUTINE FSC(KGL,KF_UV,KF_SCALARS,KF_SCDERS,& ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPRC => JPRB USE TPM_TRANS ,ONLY : LUVDER, LATLON USE TPM_DISTR ,ONLY : D, MYSETW @@ -79,8 +81,8 @@ SUBROUTINE FSC(KGL,KF_UV,KF_SCALARS,KF_SCDERS,& ZACHTE2 = F%RACTHE(IGLG) IF( LATLON.AND.S%LDLL ) THEN - ZPI = 2.0_JPRB*ASIN(1.0_JPRB) - ZACHTE2 = 1._JPRB + ZPI = 2.0_JPRC*ASIN(1.0_JPRC) + ZACHTE2 = 1._JPRC ZACHTE = F%RACTHE2(IGLG) ! apply shift for (even) lat-lon output grid diff --git a/src/trans/internal/fscad_mod.F90 b/src/trans/internal/fscad_mod.F90 index 390b4a3b..3761bb33 100644 --- a/src/trans/internal/fscad_mod.F90 +++ b/src/trans/internal/fscad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FSCAD_MOD CONTAINS SUBROUTINE FSCAD(KGL,KF_UV,KF_SCALARS,KF_SCDERS,& diff --git a/src/trans/internal/fspgl_int_mod.F90 b/src/trans/internal/fspgl_int_mod.F90 index 3592f4cb..71b7b55d 100644 --- a/src/trans/internal/fspgl_int_mod.F90 +++ b/src/trans/internal/fspgl_int_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FSPGL_INT_MOD CONTAINS SUBROUTINE FSPGL_INT(KM,KMLOC,KF_UV,KF_SCALARS,KF_SCDERS,KF_OUT_LT,& diff --git a/src/trans/internal/ftdir_ctl_mod.F90 b/src/trans/internal/ftdir_ctl_mod.F90 index 029b70ae..1fcbbf15 100644 --- a/src/trans/internal/ftdir_ctl_mod.F90 +++ b/src/trans/internal/ftdir_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FTDIR_CTL_MOD CONTAINS SUBROUTINE FTDIR_CTL(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS, & diff --git a/src/trans/internal/ftdir_ctlad_mod.F90 b/src/trans/internal/ftdir_ctlad_mod.F90 index d53f1ebf..20cbdc82 100644 --- a/src/trans/internal/ftdir_ctlad_mod.F90 +++ b/src/trans/internal/ftdir_ctlad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FTDIR_CTLAD_MOD CONTAINS SUBROUTINE FTDIR_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS, & diff --git a/src/trans/internal/ftdir_mod.F90 b/src/trans/internal/ftdir_mod.F90 index 2b5ec355..8b934141 100644 --- a/src/trans/internal/ftdir_mod.F90 +++ b/src/trans/internal/ftdir_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FTDIR_MOD CONTAINS SUBROUTINE FTDIR(PREEL,KFIELDS,KGL) @@ -47,6 +48,7 @@ SUBROUTINE FTDIR(PREEL,KFIELDS,KGL) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM, JPIB, JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DISTR ,ONLY : D, MYSETW USE TPM_GEOMETRY ,ONLY : G @@ -114,7 +116,7 @@ SUBROUTINE FTDIR(PREEL,KFIELDS,KGL) IF (G%NLOEN(IGLG)==1) IST1=0 DO JJ=IST1,ILEN DO JF=1,KFIELDS - PREEL(JF,IST+D%NSTAGTF(KGL)+JJ-1) = 0.0_JPRB + PREEL(JF,IST+D%NSTAGTF(KGL)+JJ-1) = 0.0_JPRC ENDDO ENDDO diff --git a/src/trans/internal/ftdirad_mod.F90 b/src/trans/internal/ftdirad_mod.F90 index e3fef0f2..cacab943 100644 --- a/src/trans/internal/ftdirad_mod.F90 +++ b/src/trans/internal/ftdirad_mod.F90 @@ -1,3 +1,4 @@ +#include "renames.inc" ! (C) Copyright 2000- ECMWF. ! (C) Copyright 2000- Meteo-France. ! @@ -46,6 +47,7 @@ SUBROUTINE FTDIRAD(PREEL,KFIELDS,KGL) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM, JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DISTR ,ONLY : D, MYSETW USE TPM_GEOMETRY ,ONLY : G @@ -79,7 +81,7 @@ SUBROUTINE FTDIRAD(PREEL,KFIELDS,KGL) DO JJ=1,ILEN DO JF=1,KFIELDS - PREEL(JF,IST+IOFF-1+JJ-1) = 0.0_JPRB + PREEL(JF,IST+IOFF-1+JJ-1) = 0.0_JPRC ENDDO ENDDO @@ -108,7 +110,7 @@ SUBROUTINE FTDIRAD(PREEL,KFIELDS,KGL) ! Change of metric (not in forward routine) -ZMUL = 1.0_JPRB/ILOEN +ZMUL = 1.0_JPRC/ILOEN DO JJ=1,ILOEN DO JF=1,KFIELDS PREEL(JF,IOFF-1+JJ) = PREEL(JF,IOFF-1+JJ)*ZMUL diff --git a/src/trans/internal/ftinv_ctl_mod.F90 b/src/trans/internal/ftinv_ctl_mod.F90 index 0dac3cf5..88d8d4fa 100644 --- a/src/trans/internal/ftinv_ctl_mod.F90 +++ b/src/trans/internal/ftinv_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FTINV_CTL_MOD CONTAINS SUBROUTINE FTINV_CTL(KF_UV_G,KF_SCALARS_G,& @@ -61,6 +62,7 @@ SUBROUTINE FTINV_CTL(KF_UV_G,KF_SCALARS_G,& ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPRC => JPRB USE TPM_GEN ,ONLY : NERR !USE TPM_DIM @@ -123,7 +125,7 @@ SUBROUTINE FTINV_CTL(KF_UV_G,KF_SCALARS_G,& ! an omp barrier to let the array be allocated by the master thread if the array is shared (which ! is the case here for zgtf). ! Therefore the next line ensures zgtf is really allocated here, not inside the omp loop. REK -IF (KF_FS > 0 .AND. D%NLENGTF > 0) ZGTF(1,1)=0._JPRB +IF (KF_FS > 0 .AND. D%NLENGTF > 0) ZGTF(1,1)=0._JPRC #if 1 ALLOCATE(ZDUM(1,D%NLENGTF)) diff --git a/src/trans/internal/ftinv_ctlad_mod.F90 b/src/trans/internal/ftinv_ctlad_mod.F90 index 86ec2baf..5c04c31b 100644 --- a/src/trans/internal/ftinv_ctlad_mod.F90 +++ b/src/trans/internal/ftinv_ctlad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FTINV_CTLAD_MOD CONTAINS SUBROUTINE FTINV_CTLAD(KF_UV_G,KF_SCALARS_G,& diff --git a/src/trans/internal/ftinv_mod.F90 b/src/trans/internal/ftinv_mod.F90 index fec1714e..ecebb818 100644 --- a/src/trans/internal/ftinv_mod.F90 +++ b/src/trans/internal/ftinv_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FTINV_MOD CONTAINS SUBROUTINE FTINV(PREEL,KFIELDS,KGL) @@ -45,6 +46,7 @@ SUBROUTINE FTINV(PREEL,KFIELDS,KGL) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM, JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DISTR ,ONLY : D, MYSETW USE TPM_GEOMETRY ,ONLY : G @@ -76,7 +78,7 @@ SUBROUTINE FTINV(PREEL,KFIELDS,KGL) DO JJ=IST1,ILEN DO JF=1,KFIELDS - PREEL(JF,IST+D%NSTAGTF(KGL)+JJ-1) = 0.0_JPRB + PREEL(JF,IST+D%NSTAGTF(KGL)+JJ-1) = 0.0_JPRC ENDDO ENDDO diff --git a/src/trans/internal/ftinvad_mod.F90 b/src/trans/internal/ftinvad_mod.F90 index 5ffac0e9..72083635 100644 --- a/src/trans/internal/ftinvad_mod.F90 +++ b/src/trans/internal/ftinvad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE FTINVAD_MOD CONTAINS SUBROUTINE FTINVAD(PREEL,KFIELDS,KGL) @@ -46,6 +47,7 @@ SUBROUTINE FTINVAD(PREEL,KFIELDS,KGL) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM, JPIB, JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DISTR ,ONLY : D, MYSETW USE TPM_DIM ,ONLY : R @@ -116,7 +118,7 @@ SUBROUTINE FTINVAD(PREEL,KFIELDS,KGL) DO JJ=1,ILEN DO JF=1,KFIELDS - PREEL(JF,IST+IOFF-1+JJ-1) = 0.0_JPRB + PREEL(JF,IST+IOFF-1+JJ-1) = 0.0_JPRC ENDDO ENDDO diff --git a/src/trans/internal/gath_grid_32_ctl_mod.F90 b/src/trans/internal/gath_grid_32_ctl_mod.F90 index 88c0edd1..19ec5e80 100644 --- a/src/trans/internal/gath_grid_32_ctl_mod.F90 +++ b/src/trans/internal/gath_grid_32_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE GATH_GRID_32_CTL_MOD CONTAINS SUBROUTINE GATH_GRID_32_CTL(PGPG,KFGATHG,KPROMA,KTO,PGP) diff --git a/src/trans/internal/gath_grid_ctl_mod.F90 b/src/trans/internal/gath_grid_ctl_mod.F90 index 1154c86f..d3f89332 100644 --- a/src/trans/internal/gath_grid_ctl_mod.F90 +++ b/src/trans/internal/gath_grid_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE GATH_GRID_CTL_MOD CONTAINS SUBROUTINE GATH_GRID_CTL(PGPG,KFGATHG,KPROMA,KTO,PGP) diff --git a/src/trans/internal/gath_spec_control_mod.F90 b/src/trans/internal/gath_spec_control_mod.F90 index a4c4e848..bae61705 100644 --- a/src/trans/internal/gath_spec_control_mod.F90 +++ b/src/trans/internal/gath_spec_control_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE GATH_SPEC_CONTROL_MOD CONTAINS SUBROUTINE GATH_SPEC_CONTROL(PSPECG,KFGATHG,KTO,KVSET,PSPEC,LDIM1_IS_FLD,& @@ -36,6 +37,7 @@ SUBROUTINE GATH_SPEC_CONTROL(PSPECG,KFGATHG,KTO,KVSET,PSPEC,LDIM1_IS_FLD,& USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE MPL_MODULE ,ONLY : MPL_RECV, MPL_SEND, MPL_BARRIER, MPL_WAIT, & & JP_BLOCKING_STANDARD, JP_NON_BLOCKING_STANDARD @@ -198,7 +200,7 @@ SUBROUTINE GATH_SPEC_CONTROL(PSPECG,KFGATHG,KTO,KVSET,PSPEC,LDIM1_IS_FLD,& DO JN=0,KSMAX ISP = KDIM0G(0)+JN*2+1 II = II+2 - PSPECG(JFLD,II) = 0.0_JPRB + PSPECG(JFLD,II) = 0.0_JPRC ENDDO ENDIF ELSE @@ -210,7 +212,7 @@ SUBROUTINE GATH_SPEC_CONTROL(PSPECG,KFGATHG,KTO,KVSET,PSPEC,LDIM1_IS_FLD,& DO JN=0,KSMAX ISP = KDIM0G(0)+JN*2+1 II = II+2 - PSPECG(II,JFLD) = 0.0_JPRB + PSPECG(II,JFLD) = 0.0_JPRC ENDDO ENDIF ENDIF diff --git a/src/trans/internal/gawl_mod.F90 b/src/trans/internal/gawl_mod.F90 index c188e59f..4fe2d66c 100644 --- a/src/trans/internal/gawl_mod.F90 +++ b/src/trans/internal/gawl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE GAWL_MOD CONTAINS SUBROUTINE GAWL(PFN,PL,PW,PEPS,KN,KITER,PMOD) diff --git a/src/trans/internal/gpnorm_trans_ctl_mod.F90 b/src/trans/internal/gpnorm_trans_ctl_mod.F90 index 51226293..9f8f595b 100644 --- a/src/trans/internal/gpnorm_trans_ctl_mod.F90 +++ b/src/trans/internal/gpnorm_trans_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE GPNORM_TRANS_CTL_MOD CONTAINS SUBROUTINE GPNORM_TRANS_CTL(PGP,KFIELDS,KPROMA,PAVE,PMIN,PMAX,LDAVE_ONLY,PW) @@ -51,6 +52,7 @@ SUBROUTINE GPNORM_TRANS_CTL(PGP,KFIELDS,KPROMA,PAVE,PMIN,PMAX,LDAVE_ONLY,PW) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB, JPRD +USE PARKIND1, ONLY : JPRC => JPRB !ifndef INTERFACE @@ -171,7 +173,7 @@ SUBROUTINE GPNORM_TRANS_CTL(PGP,KFIELDS,KPROMA,PAVE,PMIN,PMAX,LDAVE_ONLY,PW) IF( IF_FS > 0 )THEN - ZAVE(:,:)=0.0_JPRB + ZAVE(:,:)=0.0_JPRC IF(.NOT.LDAVE_ONLY)THEN DO JF=1,IF_FS @@ -226,7 +228,7 @@ SUBROUTINE GPNORM_TRANS_CTL(PGP,KFIELDS,KPROMA,PAVE,PMIN,PMAX,LDAVE_ONLY,PW) ALLOCATE(ZMING(KFIELDS)) ALLOCATE(ZMAXG(KFIELDS)) -ZAVEG(:,:)=0.0_JPRB +ZAVEG(:,:)=0.0_JPRC DO JF=1,IF_FS DO JGL=IBEG,IEND @@ -425,7 +427,7 @@ SUBROUTINE GPNORM_TRANS_CTL(PGP,KFIELDS,KPROMA,PAVE,PMIN,PMAX,LDAVE_ONLY,PW) IF( MYSETW == 1 .AND. MYSETV == 1 )THEN - PAVE(:)=0.0_JPRB + PAVE(:)=0.0_JPRC DO JGL=1,R%NDGL PAVE(:)=PAVE(:)+ZAVEG(JGL,:) ENDDO diff --git a/src/trans/internal/inigptr_mod.F90 b/src/trans/internal/inigptr_mod.F90 index f30b44a1..9b11340c 100644 --- a/src/trans/internal/inigptr_mod.F90 +++ b/src/trans/internal/inigptr_mod.F90 @@ -8,13 +8,14 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE INIGPTR_MOD CONTAINS SUBROUTINE INIGPTR(KGPTRSEND,KGPTRRECV) ! Compute tables to assist GP to/from Fourier space transpositions -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE TPM_GEN ,ONLY : NOUT USE TPM_DISTR ,ONLY : D, NPRTRNS diff --git a/src/trans/internal/inv_trans_ctl_mod.F90 b/src/trans/internal/inv_trans_ctl_mod.F90 index b6e2b01c..8e168707 100644 --- a/src/trans/internal/inv_trans_ctl_mod.F90 +++ b/src/trans/internal/inv_trans_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE INV_TRANS_CTL_MOD CONTAINS SUBROUTINE INV_TRANS_CTL(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_OUT_LT,& diff --git a/src/trans/internal/inv_trans_ctlad_mod.F90 b/src/trans/internal/inv_trans_ctlad_mod.F90 index 8894269c..444b7118 100644 --- a/src/trans/internal/inv_trans_ctlad_mod.F90 +++ b/src/trans/internal/inv_trans_ctlad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE INV_TRANS_CTLAD_MOD CONTAINS SUBROUTINE INV_TRANS_CTLAD(KF_UV_G,KF_SCALARS_G,KF_GP,KF_FS,KF_OUT_LT,& diff --git a/src/trans/internal/ldfou2_mod.F90 b/src/trans/internal/ldfou2_mod.F90 index 4a63132a..01183baa 100644 --- a/src/trans/internal/ldfou2_mod.F90 +++ b/src/trans/internal/ldfou2_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LDFOU2_MOD CONTAINS SUBROUTINE LDFOU2(KM,KF_UV,PAIA,PSIA) diff --git a/src/trans/internal/ldfou2ad_mod.F90 b/src/trans/internal/ldfou2ad_mod.F90 index 681f686e..a988e68d 100644 --- a/src/trans/internal/ldfou2ad_mod.F90 +++ b/src/trans/internal/ldfou2ad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LDFOU2AD_MOD CONTAINS SUBROUTINE LDFOU2AD(KM,KF_UV,PAIA,PSIA) diff --git a/src/trans/internal/ledir_mod.F90 b/src/trans/internal/ledir_mod.F90 index 34ea24ed..d3361150 100644 --- a/src/trans/internal/ledir_mod.F90 +++ b/src/trans/internal/ledir_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LEDIR_MOD CONTAINS SUBROUTINE LEDIR(KM,KMLOC,KFC,KIFC,KSL,KDGLU,KLED2,PAIA,PSIA,POA1,PW) diff --git a/src/trans/internal/ledirad_mod.F90 b/src/trans/internal/ledirad_mod.F90 index d36d44eb..dfbd64cb 100644 --- a/src/trans/internal/ledirad_mod.F90 +++ b/src/trans/internal/ledirad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LEDIRAD_MOD CONTAINS SUBROUTINE LEDIRAD(KM,KMLOC,KFC,KIFC,KDGLU,KLED2,PAIA,PSIA,POA1) @@ -60,6 +61,7 @@ SUBROUTINE LEDIRAD(KM,KMLOC,KFC,KIFC,KDGLU,KLED2,PAIA,PSIA,POA1) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB ,JPRD, JPRM +USE PARKIND1 ,ONLY : JPRC => JPRD USE YOMHOOK ,ONLY : LHOOK, DR_HOOK, JPHOOK USE TPM_DIM ,ONLY : R @@ -112,8 +114,8 @@ SUBROUTINE LEDIRAD(KM,KMLOC,KFC,KIFC,KDGLU,KLED2,PAIA,PSIA,POA1) ISKIP = 2 DO JGL=ISL,R%NDGNH DO J1=2,KFC,2 - PSIA(J1,JGL)=0.0_JPRB - PAIA(J1,JGL)=0.0_JPRB + PSIA(J1,JGL)=0.0_JPRC + PAIA(J1,JGL)=0.0_JPRC ENDDO ENDDO ELSE diff --git a/src/trans/internal/leinv_mod.F90 b/src/trans/internal/leinv_mod.F90 index f75b02eb..d293f349 100644 --- a/src/trans/internal/leinv_mod.F90 +++ b/src/trans/internal/leinv_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LEINV_MOD CONTAINS SUBROUTINE LEINV(KM,KMLOC,KFC,KIFC,KF_OUT_LT,KSL,KDGLU,PIA,PAOA1,PSOA1) @@ -55,6 +56,7 @@ SUBROUTINE LEINV(KM,KMLOC,KFC,KIFC,KF_OUT_LT,KSL,KDGLU,PIA,PAOA1,PSOA1) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPRD, JPRM, JPIM ,JPRB +USE PARKIND1 ,ONLY : JPRC => JPRB USE YOMHOOK ,ONLY : LHOOK, DR_HOOK, JPHOOK USE TPM_DIM ,ONLY : R @@ -114,8 +116,8 @@ SUBROUTINE LEINV(KM,KMLOC,KFC,KIFC,KF_OUT_LT,KSL,KDGLU,PIA,PAOA1,PSOA1) ISKIP = 2 DO J1=2,KFC,2 DO JGL=ISL,IEND - PSOA1(J1,JGL) = 0.0_JPRB - PAOA1(J1,JGL) = 0.0_JPRB + PSOA1(J1,JGL) = 0.0_JPRC + PAOA1(J1,JGL) = 0.0_JPRC ENDDO ENDDO ELSE diff --git a/src/trans/internal/leinvad_mod.F90 b/src/trans/internal/leinvad_mod.F90 index e661fb06..b9c0c071 100644 --- a/src/trans/internal/leinvad_mod.F90 +++ b/src/trans/internal/leinvad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LEINVAD_MOD CONTAINS SUBROUTINE LEINVAD(KM,KMLOC,KFC,KIFC,KF_OUT_LT,KDGLU,PIA,PAOA1,PSOA1) diff --git a/src/trans/internal/ltdir_ctl_mod.F90 b/src/trans/internal/ltdir_ctl_mod.F90 index 8dce3197..7cc311e8 100644 --- a/src/trans/internal/ltdir_ctl_mod.F90 +++ b/src/trans/internal/ltdir_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LTDIR_CTL_MOD CONTAINS SUBROUTINE LTDIR_CTL(KF_FS,KF_UV,KF_SCALARS, & diff --git a/src/trans/internal/ltdir_ctlad_mod.F90 b/src/trans/internal/ltdir_ctlad_mod.F90 index a78e44bc..82c57936 100644 --- a/src/trans/internal/ltdir_ctlad_mod.F90 +++ b/src/trans/internal/ltdir_ctlad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LTDIR_CTLAD_MOD CONTAINS SUBROUTINE LTDIR_CTLAD(KF_FS,KF_UV,KF_SCALARS, & diff --git a/src/trans/internal/ltdir_mod.F90 b/src/trans/internal/ltdir_mod.F90 index 3fdf1221..ba8ac0aa 100644 --- a/src/trans/internal/ltdir_mod.F90 +++ b/src/trans/internal/ltdir_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LTDIR_MOD CONTAINS SUBROUTINE LTDIR(KM,KMLOC,KF_FS,KF_UV,KF_SCALARS,KLED2,& diff --git a/src/trans/internal/ltdirad_mod.F90 b/src/trans/internal/ltdirad_mod.F90 index 2c4c6f13..10b246cb 100644 --- a/src/trans/internal/ltdirad_mod.F90 +++ b/src/trans/internal/ltdirad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LTDIRAD_MOD CONTAINS SUBROUTINE LTDIRAD(KM,KMLOC,KF_FS,KF_UV,KF_SCALARS,KLED2,& @@ -17,6 +18,7 @@ SUBROUTINE LTDIRAD(KM,KMLOC,KF_FS,KF_UV,KF_SCALARS,KLED2,& USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R USE TPM_GEOMETRY @@ -149,7 +151,7 @@ SUBROUTINE LTDIRAD(KM,KMLOC,KF_FS,KF_UV,KF_SCALARS,KLED2,& IDIVS = 2*KF_UV+1 IDIVE = 4*KF_UV ! SET PART OF ZOA1 CONTAINING U AND V TO 0. - ZOA1(:,IUS:IVE) = 0.0_JPRB + ZOA1(:,IUS:IVE) = 0.0_JPRC CALL UVTVDAD(KM,KF_UV,ZEPSNM,ZOA1(:,IUS:IUE),ZOA1(:,IVS:IVE),& & ZOA2(:,IVORS:IVORE),ZOA2(:,IDIVS:IDIVE)) ENDIF diff --git a/src/trans/internal/ltinv_ctl_mod.F90 b/src/trans/internal/ltinv_ctl_mod.F90 index 6e16253e..e44b671c 100644 --- a/src/trans/internal/ltinv_ctl_mod.F90 +++ b/src/trans/internal/ltinv_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LTINV_CTL_MOD CONTAINS SUBROUTINE LTINV_CTL(KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,& diff --git a/src/trans/internal/ltinv_ctlad_mod.F90 b/src/trans/internal/ltinv_ctlad_mod.F90 index eb00b8d2..aca8483f 100644 --- a/src/trans/internal/ltinv_ctlad_mod.F90 +++ b/src/trans/internal/ltinv_ctlad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LTINV_CTLAD_MOD CONTAINS SUBROUTINE LTINV_CTLAD(KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,& diff --git a/src/trans/internal/ltinv_mod.F90 b/src/trans/internal/ltinv_mod.F90 index e3dbc7d4..7d0277d4 100644 --- a/src/trans/internal/ltinv_mod.F90 +++ b/src/trans/internal/ltinv_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LTINV_MOD CONTAINS SUBROUTINE LTINV(KM,KMLOC,KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,KLEI2,KDIM1,& diff --git a/src/trans/internal/ltinvad_mod.F90 b/src/trans/internal/ltinvad_mod.F90 index 04fd5284..67d269a6 100644 --- a/src/trans/internal/ltinvad_mod.F90 +++ b/src/trans/internal/ltinvad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE LTINVAD_MOD CONTAINS SUBROUTINE LTINVAD(KM,KMLOC,KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,KLEI2,KDIM1,& @@ -16,6 +17,7 @@ SUBROUTINE LTINVAD(KM,KMLOC,KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,KLEI2,KDIM1,& & KFLDPTRUV,KFLDPTRSC,FSPGL_PROC) USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R USE TPM_TRANS ,ONLY : LDIVGP, LVORGP, NF_SC2, NF_SC3A, NF_SC3B @@ -153,7 +155,7 @@ SUBROUTINE LTINVAD(KM,KMLOC,KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,KLEI2,KDIM1,& ISTA = ISTA+2*KF_UV ENDIF -ZIA(:,ISTA:ISTA+IFC-1) = 0.0_JPRB +ZIA(:,ISTA:ISTA+IFC-1) = 0.0_JPRC IDGLU = MIN(R%NDGNH,G%NDGLU(KM)) IIFC=IFC @@ -167,7 +169,7 @@ SUBROUTINE LTINVAD(KM,KMLOC,KF_OUT_LT,KF_UV,KF_SCALARS,KF_SCDERS,KLEI2,KDIM1,& !* 3. SPECTRAL COMPUTATIONS FOR U,V AND DERIVATIVES. ! ---------------------------------------------- -ZIA(:,1:ISTA-1) = 0.0_JPRB +ZIA(:,1:ISTA-1) = 0.0_JPRC IFIRST = 1 ILAST = 4*KF_UV diff --git a/src/trans/internal/myrecvset_mod.F90 b/src/trans/internal/myrecvset_mod.F90 index ba439c4e..b30ae786 100644 --- a/src/trans/internal/myrecvset_mod.F90 +++ b/src/trans/internal/myrecvset_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE MYRECVSET_MOD CONTAINS FUNCTION MYRECVSET(KSETS,KMYSET,KSET) @@ -52,7 +53,7 @@ FUNCTION MYRECVSET(KSETS,KMYSET,KSET) ! ------------------------------------------------------------------ -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE ABORT_TRANS_MOD ,ONLY : ABORT_TRANS ! diff --git a/src/trans/internal/mysendset_mod.F90 b/src/trans/internal/mysendset_mod.F90 index 7db5c526..3b2de727 100644 --- a/src/trans/internal/mysendset_mod.F90 +++ b/src/trans/internal/mysendset_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE MYSENDSET_MOD CONTAINS FUNCTION MYSENDSET(KSETS,KMYSET,KSET) @@ -50,7 +51,7 @@ FUNCTION MYSENDSET(KSETS,KMYSET,KSET) ! ------------------------------------------------------------------ -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE ABORT_TRANS_MOD ,ONLY : ABORT_TRANS IMPLICIT NONE diff --git a/src/trans/internal/pe2set_mod.F90 b/src/trans/internal/pe2set_mod.F90 index f1703a9b..f21e37f6 100644 --- a/src/trans/internal/pe2set_mod.F90 +++ b/src/trans/internal/pe2set_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PE2SET_MOD CONTAINS SUBROUTINE PE2SET(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV) @@ -70,7 +71,7 @@ SUBROUTINE PE2SET(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV) ! Revision : 98-10-13 row ordering ! ------------------------------------------------------------------ -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE TPM_DISTR ,ONLY : LEQ_REGIONS, NPRGPEW, NPROC, NPRTRV USE EQ_REGIONS_MOD ,ONLY : N_REGIONS, N_REGIONS_NS diff --git a/src/trans/internal/pre_suleg_mod.F90 b/src/trans/internal/pre_suleg_mod.F90 index d7f519e4..f01d983e 100644 --- a/src/trans/internal/pre_suleg_mod.F90 +++ b/src/trans/internal/pre_suleg_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRE_SULEG_MOD CONTAINS SUBROUTINE PRE_SULEG diff --git a/src/trans/internal/prepsnm_mod.F90 b/src/trans/internal/prepsnm_mod.F90 index b7a99fd4..66e814f1 100644 --- a/src/trans/internal/prepsnm_mod.F90 +++ b/src/trans/internal/prepsnm_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PREPSNM_MOD CONTAINS SUBROUTINE PREPSNM(KM,KMLOC,PEPSNM) @@ -51,6 +52,7 @@ SUBROUTINE PREPSNM(KM,KMLOC,PEPSNM) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R USE TPM_FIELDS ,ONLY : F @@ -72,7 +74,7 @@ SUBROUTINE PREPSNM(KM,KMLOC,PEPSNM) IF (KM > 0) THEN - PEPSNM(0:KM-1) = 0.0_JPRB + PEPSNM(0:KM-1) = 0.0_JPRC ENDIF DO JN=KM,R%NTMAX+2 diff --git a/src/trans/internal/prfi1_mod.F90 b/src/trans/internal/prfi1_mod.F90 index 235bc0e9..d453aab9 100644 --- a/src/trans/internal/prfi1_mod.F90 +++ b/src/trans/internal/prfi1_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRFI1_MOD CONTAINS SUBROUTINE PRFI1(KM,KF_UV,KF_SCALARS,PIA,PSPVOR,PSPDIV,PSPSCALAR,& diff --git a/src/trans/internal/prfi1ad_mod.F90 b/src/trans/internal/prfi1ad_mod.F90 index 6556aaf5..e41018ac 100644 --- a/src/trans/internal/prfi1ad_mod.F90 +++ b/src/trans/internal/prfi1ad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRFI1AD_MOD CONTAINS SUBROUTINE PRFI1AD(KM,KF_UV,KF_SCALARS,PIA,PSPVOR,PSPDIV,PSPSCALAR,& diff --git a/src/trans/internal/prfi1b_mod.F90 b/src/trans/internal/prfi1b_mod.F90 index f5dd2821..1d808d3a 100644 --- a/src/trans/internal/prfi1b_mod.F90 +++ b/src/trans/internal/prfi1b_mod.F90 @@ -8,11 +8,13 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRFI1B_MOD CONTAINS SUBROUTINE PRFI1B(KM,PIA,PSPEC,KFIELDS,KFLDPTR) USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R USE TPM_DISTR ,ONLY : D @@ -109,9 +111,9 @@ SUBROUTINE PRFI1B(KM,PIA,PSPEC,KFIELDS,KFLDPTR) ENDIF DO JFLD=1,2*KFIELDS - PIA(1,JFLD) = 0.0_JPRB - PIA(2,JFLD) = 0.0_JPRB - PIA(ILCM+3,JFLD) = 0.0_JPRB + PIA(1,JFLD) = 0.0_JPRC + PIA(2,JFLD) = 0.0_JPRC + PIA(ILCM+3,JFLD) = 0.0_JPRC ENDDO diff --git a/src/trans/internal/prfi1bad_mod.F90 b/src/trans/internal/prfi1bad_mod.F90 index 30b720b0..e31715e8 100644 --- a/src/trans/internal/prfi1bad_mod.F90 +++ b/src/trans/internal/prfi1bad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRFI1BAD_MOD CONTAINS SUBROUTINE PRFI1BAD(KM,PIA,PSPEC,KFIELDS,KFLDPTR) diff --git a/src/trans/internal/prfi2_mod.F90 b/src/trans/internal/prfi2_mod.F90 index 07a29d2d..fffa5108 100644 --- a/src/trans/internal/prfi2_mod.F90 +++ b/src/trans/internal/prfi2_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRFI2_MOD CONTAINS SUBROUTINE PRFI2(KM,KMLOC,KF_FS,PAIA,PSIA) diff --git a/src/trans/internal/prfi2ad_mod.F90 b/src/trans/internal/prfi2ad_mod.F90 index ce7f99a3..0b43ee4f 100644 --- a/src/trans/internal/prfi2ad_mod.F90 +++ b/src/trans/internal/prfi2ad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRFI2AD_MOD CONTAINS SUBROUTINE PRFI2AD(KM,KMLOC,KF_FS,PAIA,PSIA) diff --git a/src/trans/internal/prfi2b_mod.F90 b/src/trans/internal/prfi2b_mod.F90 index 92e24286..b0df01ac 100644 --- a/src/trans/internal/prfi2b_mod.F90 +++ b/src/trans/internal/prfi2b_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRFI2B_MOD CONTAINS SUBROUTINE PRFI2B(KFIELD,KM,KMLOC,PAIA,PSIA) diff --git a/src/trans/internal/prfi2bad_mod.F90 b/src/trans/internal/prfi2bad_mod.F90 index 5a218c17..43c5e54a 100644 --- a/src/trans/internal/prfi2bad_mod.F90 +++ b/src/trans/internal/prfi2bad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE PRFI2BAD_MOD CONTAINS SUBROUTINE PRFI2BAD(KFIELD,KM,KMLOC,PAIA,PSIA) diff --git a/src/trans/internal/read_legpol_mod.F90 b/src/trans/internal/read_legpol_mod.F90 index d93a45a2..61db750c 100644 --- a/src/trans/internal/read_legpol_mod.F90 +++ b/src/trans/internal/read_legpol_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE READ_LEGPOL_MOD CONTAINS SUBROUTINE READ_LEGPOL diff --git a/src/trans/internal/set2pe_mod.F90 b/src/trans/internal/set2pe_mod.F90 index 313057bf..7dc6a9d7 100644 --- a/src/trans/internal/set2pe_mod.F90 +++ b/src/trans/internal/set2pe_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SET2PE_MOD CONTAINS SUBROUTINE SET2PE(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV) @@ -67,7 +68,7 @@ SUBROUTINE SET2PE(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV) ! ------------------------------------------------------------------ -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE TPM_DISTR ,ONLY : LEQ_REGIONS, NPRGPEW, NPRGPNS, NPRTRV, NPRTRW USE EQ_REGIONS_MOD ,ONLY : N_REGIONS, N_REGIONS_NS diff --git a/src/trans/internal/set_resol_mod.F90 b/src/trans/internal/set_resol_mod.F90 index fd98ead5..1c6ea81e 100644 --- a/src/trans/internal/set_resol_mod.F90 +++ b/src/trans/internal/set_resol_mod.F90 @@ -8,10 +8,11 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SET_RESOL_MOD CONTAINS SUBROUTINE SET_RESOL(KRESOL,LDSETUP) -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE TPM_GEN ,ONLY : NOUT, MSETUP0, NCUR_RESOL, NMAX_RESOL,LENABLED USE TPM_DIM ,ONLY : R, DIM_RESOL diff --git a/src/trans/internal/setup_dims_mod.F90 b/src/trans/internal/setup_dims_mod.F90 index d8178c2d..f2518b4e 100644 --- a/src/trans/internal/setup_dims_mod.F90 +++ b/src/trans/internal/setup_dims_mod.F90 @@ -8,11 +8,12 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SETUP_DIMS_MOD CONTAINS SUBROUTINE SETUP_DIMS -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE TPM_DIM ,ONLY : R USE TPM_FLT ,ONLY : S diff --git a/src/trans/internal/setup_geom_mod.F90 b/src/trans/internal/setup_geom_mod.F90 index 68de63ed..3dd3c9a4 100644 --- a/src/trans/internal/setup_geom_mod.F90 +++ b/src/trans/internal/setup_geom_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SETUP_GEOM_MOD CONTAINS SUBROUTINE SETUP_GEOM diff --git a/src/trans/internal/shuffle_mod.F90 b/src/trans/internal/shuffle_mod.F90 index 9f0d933f..c30e2385 100644 --- a/src/trans/internal/shuffle_mod.F90 +++ b/src/trans/internal/shuffle_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SHUFFLE_MOD CONTAINS SUBROUTINE SHUFFLE(KF_UV_G,KF_SCALARS_G,KSHFUV_G,KIVSETUV,KSHFSC_G,KIVSETSC,& @@ -55,7 +56,7 @@ SUBROUTINE SHUFFLE(KF_UV_G,KF_SCALARS_G,KSHFUV_G,KIVSETUV,KSHFSC_G,KIVSETSC,& ! Original : 01-01-03 ! ------------------------------------------------------------------ -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM !USE TPM_GEN !USE TPM_TRANS diff --git a/src/trans/internal/spnorm_ctl_mod.F90 b/src/trans/internal/spnorm_ctl_mod.F90 index 154e5dc5..9dffbc3e 100644 --- a/src/trans/internal/spnorm_ctl_mod.F90 +++ b/src/trans/internal/spnorm_ctl_mod.F90 @@ -8,11 +8,13 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SPNORM_CTL_MOD CONTAINS SUBROUTINE SPNORM_CTL(PSPEC,KFLD,KFLD_G,KVSET,KMASTER,PMET,PNORM) USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R USE TPM_DISTR ,ONLY : D, MYPROC, MYSETV @@ -45,7 +47,7 @@ SUBROUTINE SPNORM_CTL(PSPEC,KFLD,KFLD_G,KVSET,KMASTER,PMET,PNORM) IF(PRESENT(PMET)) THEN ZMET(:) = PMET(:) ELSE - ZMET(:) = 1.0_JPRB + ZMET(:) = 1.0_JPRC ENDIF CALL SPNORMD(PSPEC,KFLD,ZMET,ZSM) diff --git a/src/trans/internal/spnormc_mod.F90 b/src/trans/internal/spnormc_mod.F90 index f894cf26..89963b90 100644 --- a/src/trans/internal/spnormc_mod.F90 +++ b/src/trans/internal/spnormc_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SPNORMC_MOD CONTAINS SUBROUTINE SPNORMC(PSM,KFLD_G,KVSET,KMASTER,KSMAX,PGM) diff --git a/src/trans/internal/spnormd_mod.F90 b/src/trans/internal/spnormd_mod.F90 index 89c0bfb0..ffbbab10 100644 --- a/src/trans/internal/spnormd_mod.F90 +++ b/src/trans/internal/spnormd_mod.F90 @@ -8,11 +8,13 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SPNORMD_MOD CONTAINS SUBROUTINE SPNORMD(PSPEC,KFLD,PMET,PSM) USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R USE TPM_DISTR ,ONLY : D @@ -33,7 +35,7 @@ SUBROUTINE SPNORMD(PSPEC,KFLD,PMET,PSM) CALL GSTATS(1651,0) !$OMP PARALLEL DO SCHEDULE(STATIC,1) PRIVATE(JM,IM,JN,ISP,JFLD) DO JM=1,D%NUMP - PSM(:,JM) = 0.0_JPRB + PSM(:,JM) = 0.0_JPRC IM = D%MYMS(JM) IF(IM == 0)THEN DO JN=0,R%NSMAX @@ -46,7 +48,7 @@ SUBROUTINE SPNORMD(PSPEC,KFLD,PMET,PSM) DO JN=IM,R%NSMAX ISP = D%NASM0(IM)+(JN-IM)*2 DO JFLD=1,KFLD - PSM(JFLD,JM) = PSM(JFLD,JM)+2.0_JPRB*PMET(JN)*& + PSM(JFLD,JM) = PSM(JFLD,JM)+2.0_JPRC*PMET(JN)*& &(PSPEC(JFLD,ISP)**2+PSPEC(JFLD,ISP+1)**2) ENDDO ENDDO diff --git a/src/trans/internal/spnsde_mod.F90 b/src/trans/internal/spnsde_mod.F90 index 74774dcd..892d2a6e 100644 --- a/src/trans/internal/spnsde_mod.F90 +++ b/src/trans/internal/spnsde_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SPNSDE_MOD CONTAINS SUBROUTINE SPNSDE(KM,KF_SCALARS,PEPSNM,PF,PNSD) diff --git a/src/trans/internal/spnsdead_mod.F90 b/src/trans/internal/spnsdead_mod.F90 index 55643331..37d9c15d 100644 --- a/src/trans/internal/spnsdead_mod.F90 +++ b/src/trans/internal/spnsdead_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SPNSDEAD_MOD CONTAINS SUBROUTINE SPNSDEAD(KM,KF_SCALARS,PEPSNM,PF,PNSD) diff --git a/src/trans/internal/sufft_mod.F90 b/src/trans/internal/sufft_mod.F90 index dec0e912..5fe107ad 100644 --- a/src/trans/internal/sufft_mod.F90 +++ b/src/trans/internal/sufft_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUFFT_MOD CONTAINS SUBROUTINE SUFFT diff --git a/src/trans/internal/sugaw_mod.F90 b/src/trans/internal/sugaw_mod.F90 index f073f1cd..2a0481f1 100644 --- a/src/trans/internal/sugaw_mod.F90 +++ b/src/trans/internal/sugaw_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUGAW_MOD CONTAINS SUBROUTINE SUGAW(KDGL,KM,KN,PL,PW,PANM,PFN) diff --git a/src/trans/internal/suleg_mod.F90 b/src/trans/internal/suleg_mod.F90 index 6e29334d..b8d0afe8 100644 --- a/src/trans/internal/suleg_mod.F90 +++ b/src/trans/internal/suleg_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SULEG_MOD #ifdef __NEC__ #define SIZEOF(x) STORAGE_SIZE(x)/KIND(x) @@ -17,6 +18,7 @@ SUBROUTINE SULEG !DEC$ OPTIMIZE:1 USE PARKIND1 ,ONLY : JPRD, JPIM, JPRB +USE PARKIND1 ,ONLY : JPRC => JPRB USE PARKIND2 ,ONLY : JPRH USE MPL_MODULE ,ONLY : MPL_BYTES, MPL_BARRIER, JP_NON_BLOCKING_STANDARD, MPL_RECV, & & MPL_SEND, MPL_WAIT @@ -805,7 +807,7 @@ SUBROUTINE SULEG CALL GSTATS(852,1) ELSE IRECVLENMAX=2 - ZDUM(:)=0.0_JPRB + ZDUM(:)=0.0_JPRC CALL GSTATS(852,0) DO JSETV=1,NPRTRV CALL SET2PE(ISEND,0,0,MYSETW,JSETV) @@ -1086,7 +1088,7 @@ SUBROUTINE SULEG CALL GSTATS(852,1) ELSE IRECVLENMAX=2 - ZDUM(:)=0.0_JPRB + ZDUM(:)=0.0_JPRC CALL GSTATS(852,0) DO JSETV=1,NPRTRV CALL SET2PE(ISEND,0,0,MYSETW,JSETV) diff --git a/src/trans/internal/sump_trans0_mod.F90 b/src/trans/internal/sump_trans0_mod.F90 index d24d8c46..e71aa308 100644 --- a/src/trans/internal/sump_trans0_mod.F90 +++ b/src/trans/internal/sump_trans0_mod.F90 @@ -8,13 +8,14 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUMP_TRANS0_MOD CONTAINS SUBROUTINE SUMP_TRANS0 ! Set up distributed environment for the transform package (part 0) -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE MPL_MODULE ,ONLY : MPL_GROUPS_CREATE, MPL_MYRANK, MPL_NPROC USE TPM_GEN ,ONLY : NOUT, LMPOFF, NPRINTLEV diff --git a/src/trans/internal/sump_trans_mod.F90 b/src/trans/internal/sump_trans_mod.F90 index 2b776b31..fb7a9c4b 100644 --- a/src/trans/internal/sump_trans_mod.F90 +++ b/src/trans/internal/sump_trans_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUMP_TRANS_MOD CONTAINS SUBROUTINE SUMP_TRANS diff --git a/src/trans/internal/sump_trans_preleg_mod.F90 b/src/trans/internal/sump_trans_preleg_mod.F90 index 72064d41..e5398bce 100644 --- a/src/trans/internal/sump_trans_preleg_mod.F90 +++ b/src/trans/internal/sump_trans_preleg_mod.F90 @@ -8,13 +8,14 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUMP_TRANS_PRELEG_MOD CONTAINS SUBROUTINE SUMP_TRANS_PRELEG ! Set up distributed environment for the transform package (part 1) -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE TPM_GEN ,ONLY : NOUT, NPRINTLEV USE TPM_DIM ,ONLY : R diff --git a/src/trans/internal/sumplat_mod.F90 b/src/trans/internal/sumplat_mod.F90 index de34b38f..6ab40059 100644 --- a/src/trans/internal/sumplat_mod.F90 +++ b/src/trans/internal/sumplat_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUMPLAT_MOD CONTAINS SUBROUTINE SUMPLAT(KDGL,KPROC,KPROCA,KMYSETA,LDSPLIT,LDEQ_REGIONS,& diff --git a/src/trans/internal/sumplatb_mod.F90 b/src/trans/internal/sumplatb_mod.F90 index 60ae75b3..40749a5f 100644 --- a/src/trans/internal/sumplatb_mod.F90 +++ b/src/trans/internal/sumplatb_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUMPLATB_MOD CONTAINS SUBROUTINE SUMPLATB(KDGSA,KDGL,KPROCA,KLOENG,LDSPLIT,LDFOURIER,& diff --git a/src/trans/internal/sumplatbeq_mod.F90 b/src/trans/internal/sumplatbeq_mod.F90 index e9ba66ad..ef5a06d1 100644 --- a/src/trans/internal/sumplatbeq_mod.F90 +++ b/src/trans/internal/sumplatbeq_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUMPLATBEQ_MOD CONTAINS SUBROUTINE SUMPLATBEQ(KDGSA,KDGL,KPROC,KPROCA,KLOENG,LDSPLIT,LDEQ_REGIONS,& diff --git a/src/trans/internal/sumplatf_mod.F90 b/src/trans/internal/sumplatf_mod.F90 index 1b4f1fd3..b9180dee 100644 --- a/src/trans/internal/sumplatf_mod.F90 +++ b/src/trans/internal/sumplatf_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUMPLATF_MOD CONTAINS SUBROUTINE SUMPLATF(KDGL,KPROCA,KMYSETA,& diff --git a/src/trans/internal/supol_mod.F90 b/src/trans/internal/supol_mod.F90 index da7fcbf0..7390675b 100644 --- a/src/trans/internal/supol_mod.F90 +++ b/src/trans/internal/supol_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUPOL_MOD CONTAINS SUBROUTINE SUPOL(KNSMAX,PDDMU,PFN,PDDPOL) diff --git a/src/trans/internal/supolf_mod.F90 b/src/trans/internal/supolf_mod.F90 index 06d599d6..e985becc 100644 --- a/src/trans/internal/supolf_mod.F90 +++ b/src/trans/internal/supolf_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUPOLF_MOD CONTAINS SUBROUTINE SUPOLF(KM,KNSMAX,DDMU,DDPOL,KCHEAP) diff --git a/src/trans/internal/sustaonl_mod.F90 b/src/trans/internal/sustaonl_mod.F90 index 57f522e8..1c433fc5 100644 --- a/src/trans/internal/sustaonl_mod.F90 +++ b/src/trans/internal/sustaonl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUSTAONL_MOD CONTAINS SUBROUTINE SUSTAONL(KMEDIAP,KRESTM,LDWEIGHTED_DISTR,PWEIGHT,PMEDIAP,KPROCAGP) @@ -65,6 +66,7 @@ SUBROUTINE SUSTAONL(KMEDIAP,KRESTM,LDWEIGHTED_DISTR,PWEIGHT,PMEDIAP,KPROCAGP) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB, JPRD +USE PARKIND1, ONLY : JPRC => JPRB USE MPL_MODULE ,ONLY : MPL_ALLGATHERV, MPL_RECV, MPL_SEND USE TPM_GEN ,ONLY : NOUT, NPRINTLEV @@ -113,7 +115,7 @@ SUBROUTINE SUSTAONL(KMEDIAP,KRESTM,LDWEIGHTED_DISTR,PWEIGHT,PMEDIAP,KPROCAGP) ! ----------------------------------------------------------------- -ZPI = 2.0_JPRB*ASIN(1.0_JPRB) +ZPI = 2.0_JPRC*ASIN(1.0_JPRC) IXPTLAT (:)=999999 ILSTPTLAT(:)=999999 @@ -177,7 +179,7 @@ SUBROUTINE SUSTAONL(KMEDIAP,KRESTM,LDWEIGHTED_DISTR,PWEIGHT,PMEDIAP,KPROCAGP) ! --------------------------------------- IF( NPROC > 1 )THEN DO JGL=1,ILEN - ZDIVID(JGL) = 360000.0_JPRB/REAL(G%NLOEN(D%NFRSTLAT(MY_REGION_NS)+JGL-1),JPRB) + ZDIVID(JGL) = 360000.0_JPRC/REAL(G%NLOEN(D%NFRSTLAT(MY_REGION_NS)+JGL-1),JPRB) ENDDO IF( LDWEIGHTED_DISTR )THEN ALLOCATE(ZWEIGHT(G%NLOEN(R%NDGL/2),R%NDGL)) diff --git a/src/trans/internal/sutrle_mod.F90 b/src/trans/internal/sutrle_mod.F90 index 3213e43f..3c7dfa3b 100644 --- a/src/trans/internal/sutrle_mod.F90 +++ b/src/trans/internal/sutrle_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUTRLE_MOD CONTAINS SUBROUTINE SUTRLE(PNM,KGL,KLOOP) diff --git a/src/trans/internal/suwavedi_mod.F90 b/src/trans/internal/suwavedi_mod.F90 index 5aad2cde..57ae0c69 100644 --- a/src/trans/internal/suwavedi_mod.F90 +++ b/src/trans/internal/suwavedi_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE SUWAVEDI_MOD CONTAINS SUBROUTINE SUWAVEDI(KSMAX,KTMAX,KPRTRW,KMYSETW,KASM0,KSPOLEGL,KPROCM,& diff --git a/src/trans/internal/tpm_constants.F90 b/src/trans/internal/tpm_constants.F90 index 1f72a4b2..3e945aad 100644 --- a/src/trans/internal/tpm_constants.F90 +++ b/src/trans/internal/tpm_constants.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_CONSTANTS USE PARKIND1 ,ONLY : JPIM ,JPRB diff --git a/src/trans/internal/tpm_ctl.F90 b/src/trans/internal/tpm_ctl.F90 index a5ee258f..df337edc 100644 --- a/src/trans/internal/tpm_ctl.F90 +++ b/src/trans/internal/tpm_ctl.F90 @@ -8,9 +8,10 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_CTL -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM USE, INTRINSIC :: iso_c_binding, ONLY: C_PTR, C_NULL_PTR USE SHAREDMEM_MOD ,ONLY : SHAREDMEM IMPLICIT NONE diff --git a/src/trans/internal/tpm_dim.F90 b/src/trans/internal/tpm_dim.F90 index 4d56f922..691cd8c8 100644 --- a/src/trans/internal/tpm_dim.F90 +++ b/src/trans/internal/tpm_dim.F90 @@ -8,11 +8,12 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_DIM ! Module for dimensions. -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM IMPLICIT NONE diff --git a/src/trans/internal/tpm_distr.F90 b/src/trans/internal/tpm_distr.F90 index 8912797c..5656c693 100644 --- a/src/trans/internal/tpm_distr.F90 +++ b/src/trans/internal/tpm_distr.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_DISTR ! Module for distributed memory environment. diff --git a/src/trans/internal/tpm_fft.F90 b/src/trans/internal/tpm_fft.F90 index 5577262a..cdfb648d 100644 --- a/src/trans/internal/tpm_fft.F90 +++ b/src/trans/internal/tpm_fft.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_FFT USE PARKIND1 ,ONLY : JPIM ,JPRB USE BLUESTEIN_MOD ,ONLY : FFTB_TYPE diff --git a/src/trans/internal/tpm_fftw.F90 b/src/trans/internal/tpm_fftw.F90 index e86fe949..d269abc5 100644 --- a/src/trans/internal/tpm_fftw.F90 +++ b/src/trans/internal/tpm_fftw.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_FFTW ! Author. ! ------- diff --git a/src/trans/internal/tpm_fields.F90 b/src/trans/internal/tpm_fields.F90 index 7a9ffb12..3a52ecb0 100644 --- a/src/trans/internal/tpm_fields.F90 +++ b/src/trans/internal/tpm_fields.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_FIELDS USE PARKIND1 ,ONLY : JPIM, JPRB, JPRD diff --git a/src/trans/internal/tpm_flt.F90 b/src/trans/internal/tpm_flt.F90 index 2be0e49e..d1f4ea47 100644 --- a/src/trans/internal/tpm_flt.F90 +++ b/src/trans/internal/tpm_flt.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_FLT USE PARKIND1 ,ONLY : JPIM ,JPRB, JPRD diff --git a/src/trans/internal/tpm_gen.F90 b/src/trans/internal/tpm_gen.F90 index 3cd0509c..2204de29 100644 --- a/src/trans/internal/tpm_gen.F90 +++ b/src/trans/internal/tpm_gen.F90 @@ -8,11 +8,12 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_GEN ! Module for general control variables. -USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1 ,ONLY : JPIM IMPLICIT NONE diff --git a/src/trans/internal/tpm_geometry.F90 b/src/trans/internal/tpm_geometry.F90 index 2c6e2ff0..07a22669 100644 --- a/src/trans/internal/tpm_geometry.F90 +++ b/src/trans/internal/tpm_geometry.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_GEOMETRY ! Module containing data describing Gaussian grid. diff --git a/src/trans/internal/tpm_pol.F90 b/src/trans/internal/tpm_pol.F90 index 3d05cafc..f45ebcc9 100644 --- a/src/trans/internal/tpm_pol.F90 +++ b/src/trans/internal/tpm_pol.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_POL ! MODIFICATIONS. diff --git a/src/trans/internal/tpm_trans.F90 b/src/trans/internal/tpm_trans.F90 index 235f2928..e3668903 100644 --- a/src/trans/internal/tpm_trans.F90 +++ b/src/trans/internal/tpm_trans.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TPM_TRANS ! Module to contain variables "local" to a specific call to a transform diff --git a/src/trans/internal/trgtol_mod.F90 b/src/trans/internal/trgtol_mod.F90 index 8f177627..03300931 100644 --- a/src/trans/internal/trgtol_mod.F90 +++ b/src/trans/internal/trgtol_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TRGTOL_MOD PUBLIC TRGTOL diff --git a/src/trans/internal/trltog_mod.F90 b/src/trans/internal/trltog_mod.F90 index c6654c1b..2c7228f8 100644 --- a/src/trans/internal/trltog_mod.F90 +++ b/src/trans/internal/trltog_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TRLTOG_MOD PUBLIC TRLTOG diff --git a/src/trans/internal/trltom_mod.F90 b/src/trans/internal/trltom_mod.F90 index 128efb25..6cf76fe9 100644 --- a/src/trans/internal/trltom_mod.F90 +++ b/src/trans/internal/trltom_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE TRLTOM_MOD CONTAINS SUBROUTINE TRLTOM(PFBUF_IN,PFBUF,KFIELD) diff --git a/src/trans/internal/trmtol_mod.F90 b/src/trans/internal/trmtol_mod.F90 index 34c5e359..da0d0c16 100644 --- a/src/trans/internal/trmtol_mod.F90 +++ b/src/trans/internal/trmtol_mod.F90 @@ -1,3 +1,4 @@ +#include "renames.inc" ! (C) Copyright 1995- ECMWF. ! (C) Copyright 1995- Meteo-France. ! diff --git a/src/trans/internal/updsp_mod.F90 b/src/trans/internal/updsp_mod.F90 index e6136b27..a8a058f8 100644 --- a/src/trans/internal/updsp_mod.F90 +++ b/src/trans/internal/updsp_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE UPDSP_MOD CONTAINS SUBROUTINE UPDSP(KM,KF_UV,KF_SCALARS,POA1,POA2, & @@ -64,6 +65,7 @@ SUBROUTINE UPDSP(KM,KF_UV,KF_SCALARS,POA1,POA2, & ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_TRANS ,ONLY : NF_SC2, NF_SC3A, NF_SC3B USE TPM_DISTR ,ONLY : D @@ -114,13 +116,13 @@ SUBROUTINE UPDSP(KM,KF_UV,KF_SCALARS,POA1,POA2, & IF(PRESENT(KFLDPTRUV)) THEN DO JFLD=1,KF_UV IFLD = KFLDPTRUV(JFLD) - PSPVOR(IFLD,D%NASM0(0)) = 0.0_JPRB - PSPDIV(IFLD,D%NASM0(0)) = 0.0_JPRB + PSPVOR(IFLD,D%NASM0(0)) = 0.0_JPRC + PSPDIV(IFLD,D%NASM0(0)) = 0.0_JPRC ENDDO ELSE DO JFLD=1,KF_UV - PSPVOR(JFLD,D%NASM0(0)) = 0.0_JPRB - PSPDIV(JFLD,D%NASM0(0)) = 0.0_JPRB + PSPVOR(JFLD,D%NASM0(0)) = 0.0_JPRC + PSPDIV(JFLD,D%NASM0(0)) = 0.0_JPRC ENDDO ENDIF ENDIF diff --git a/src/trans/internal/updspad_mod.F90 b/src/trans/internal/updspad_mod.F90 index 60f8cf3d..eb826955 100644 --- a/src/trans/internal/updspad_mod.F90 +++ b/src/trans/internal/updspad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE UPDSPAD_MOD CONTAINS SUBROUTINE UPDSPAD(KM,KF_UV,KF_SCALARS,POA1,POA2, & @@ -64,6 +65,7 @@ SUBROUTINE UPDSPAD(KM,KF_UV,KF_SCALARS,POA1,POA2, & ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R USE TPM_TRANS ,ONLY : NF_SC2, NF_SC3A, NF_SC3B @@ -113,24 +115,24 @@ SUBROUTINE UPDSPAD(KM,KF_UV,KF_SCALARS,POA1,POA2, & IF(PRESENT(KFLDPTRUV)) THEN DO JFLD=1,KF_UV IFLD = KFLDPTRUV(JFLD) - PSPVOR(IFLD,D%NASM0(0)) = 0.0_JPRB - PSPDIV(IFLD,D%NASM0(0)) = 0.0_JPRB + PSPVOR(IFLD,D%NASM0(0)) = 0.0_JPRC + PSPDIV(IFLD,D%NASM0(0)) = 0.0_JPRC ENDDO DO JN=0,R%NSMAX ISE = 1+JN*2+1 DO JFLD=1,KF_UV IFLD = KFLDPTRUV(JFLD) - PSPDIV(IFLD,ISE) = 0.0_JPRB - PSPVOR(IFLD,ISE) = 0.0_JPRB + PSPDIV(IFLD,ISE) = 0.0_JPRC + PSPVOR(IFLD,ISE) = 0.0_JPRC ENDDO ENDDO ELSE - PSPVOR(:,D%NASM0(0)) = 0.0_JPRB - PSPDIV(:,D%NASM0(0)) = 0.0_JPRB + PSPVOR(:,D%NASM0(0)) = 0.0_JPRC + PSPDIV(:,D%NASM0(0)) = 0.0_JPRC DO JN=0,R%NSMAX ISE = 1+JN*2+1 - PSPDIV(:,ISE) = 0.0_JPRB - PSPVOR(:,ISE) = 0.0_JPRB + PSPDIV(:,ISE) = 0.0_JPRC + PSPVOR(:,ISE) = 0.0_JPRC ENDDO ENDIF ENDIF diff --git a/src/trans/internal/updspb_mod.F90 b/src/trans/internal/updspb_mod.F90 index 28070b85..83f7ec36 100644 --- a/src/trans/internal/updspb_mod.F90 +++ b/src/trans/internal/updspb_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE UPDSPB_MOD CONTAINS SUBROUTINE UPDSPB(KM,KFIELD,POA,PSPEC,KFLDPTR) @@ -56,6 +57,7 @@ SUBROUTINE UPDSPB(KM,KFIELD,POA,PSPEC,KFLDPTR) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R !USE TPM_FIELDS @@ -104,7 +106,7 @@ SUBROUTINE UPDSPB(KM,KFIELD,POA,PSPEC,KFLDPTR) DO JN=ITMAX+2-ISMAX,ITMAX+2-KM INM = IASM0+(ITMAX+2-JN)*2 PSPEC(IFLD,INM) = POA(JN,IR) - PSPEC(IFLD,INM+1) = 0.0_JPRB + PSPEC(IFLD,INM+1) = 0.0_JPRC ENDDO ENDDO ELSE @@ -115,7 +117,7 @@ SUBROUTINE UPDSPB(KM,KFIELD,POA,PSPEC,KFLDPTR) DO JFLD=1,KFIELD IR = 2*JFLD-1 PSPEC(JFLD,INM) = POA(JN,IR) - PSPEC(JFLD,INM+1) = 0.0_JPRB + PSPEC(JFLD,INM+1) = 0.0_JPRC ENDDO ENDDO ENDIF diff --git a/src/trans/internal/updspbad_mod.F90 b/src/trans/internal/updspbad_mod.F90 index 4aef0b9e..1734ec89 100644 --- a/src/trans/internal/updspbad_mod.F90 +++ b/src/trans/internal/updspbad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE UPDSPBAD_MOD CONTAINS SUBROUTINE UPDSPBAD(KM,KFIELD,POA,PSPEC,KFLDPTR) @@ -56,6 +57,7 @@ SUBROUTINE UPDSPBAD(KM,KFIELD,POA,PSPEC,KFLDPTR) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R !USE TPM_FIELDS @@ -94,7 +96,7 @@ SUBROUTINE UPDSPBAD(KM,KFIELD,POA,PSPEC,KFLDPTR) IASM0 = D%NASM0(KM) -POA(:,:) = 0.0_JPRB +POA(:,:) = 0.0_JPRC !* 1.1 KM=0 @@ -106,7 +108,7 @@ SUBROUTINE UPDSPBAD(KM,KFIELD,POA,PSPEC,KFLDPTR) DO JN=ITMAX+2-ISMAX,ITMAX+2-KM INM = IASM0+(ITMAX+2-JN)*2 POA(JN,IR) = PSPEC(IFLD,INM) - PSPEC(IFLD,INM) = 0.0_JPRB + PSPEC(IFLD,INM) = 0.0_JPRC ENDDO ENDDO ELSE @@ -117,7 +119,7 @@ SUBROUTINE UPDSPBAD(KM,KFIELD,POA,PSPEC,KFLDPTR) DO JFLD=1,KFIELD IR = 2*JFLD-1 POA(JN,IR) = PSPEC(JFLD,INM) - PSPEC(JFLD,INM) = 0.0_JPRB + PSPEC(JFLD,INM) = 0.0_JPRC ENDDO ENDDO ENDIF @@ -133,8 +135,8 @@ SUBROUTINE UPDSPBAD(KM,KFIELD,POA,PSPEC,KFLDPTR) INM = IASM0+((ITMAX+2-JN)-KM)*2 POA(JN,IR) = PSPEC(IFLD,INM) POA(JN,II) = PSPEC(IFLD,INM+1) - PSPEC(IFLD,INM) = 0.0_JPRB - PSPEC(IFLD,INM+1) = 0.0_JPRB + PSPEC(IFLD,INM) = 0.0_JPRC + PSPEC(IFLD,INM+1) = 0.0_JPRC ENDDO ENDDO ELSE @@ -147,8 +149,8 @@ SUBROUTINE UPDSPBAD(KM,KFIELD,POA,PSPEC,KFLDPTR) II = IR+1 POA(JN,IR) = PSPEC(JFLD,INM) POA(JN,II) = PSPEC(JFLD,INM+1) - PSPEC(JFLD,INM) = 0.0_JPRB - PSPEC(JFLD,INM+1) = 0.0_JPRB + PSPEC(JFLD,INM) = 0.0_JPRC + PSPEC(JFLD,INM+1) = 0.0_JPRC ENDDO ENDDO ENDIF diff --git a/src/trans/internal/uvtvd_mod.F90 b/src/trans/internal/uvtvd_mod.F90 index 9aa0c3a1..0c71f894 100644 --- a/src/trans/internal/uvtvd_mod.F90 +++ b/src/trans/internal/uvtvd_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE UVTVD_MOD CONTAINS SUBROUTINE UVTVD(KM,KFIELD,PEPSNM,PU,PV,PVOR,PDIV) @@ -58,6 +59,7 @@ SUBROUTINE UVTVD(KM,KFIELD,PEPSNM,PU,PV,PVOR,PDIV) ! ------------------------------------------------------------------ USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE TPM_DIM ,ONLY : R USE TPM_FIELDS ,ONLY : F @@ -95,8 +97,8 @@ SUBROUTINE UVTVD(KM,KFIELD,PEPSNM,PU,PV,PVOR,PDIV) IN = F%NLTN(KM-1) DO J=1,2*KFIELD - PU(IN,J) = 0.0_JPRB - PV(IN,J) = 0.0_JPRB + PU(IN,J) = 0.0_JPRC + PV(IN,J) = 0.0_JPRC ENDDO !* 1.2 COMPUTE VORTICITY AND DIVERGENCE. diff --git a/src/trans/internal/uvtvdad_mod.F90 b/src/trans/internal/uvtvdad_mod.F90 index 7ae4bb8e..2d6b9cc5 100644 --- a/src/trans/internal/uvtvdad_mod.F90 +++ b/src/trans/internal/uvtvdad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE UVTVDAD_MOD CONTAINS SUBROUTINE UVTVDAD(KM,KFIELD,PEPSNM,PU,PV,PVOR,PDIV) diff --git a/src/trans/internal/vd2uv_ctl_mod.F90 b/src/trans/internal/vd2uv_ctl_mod.F90 index 2adaa541..c403e78e 100644 --- a/src/trans/internal/vd2uv_ctl_mod.F90 +++ b/src/trans/internal/vd2uv_ctl_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE VD2UV_CTL_MOD CONTAINS SUBROUTINE VD2UV_CTL(KF_UV,PSPVOR,PSPDIV,PU,PV) diff --git a/src/trans/internal/vd2uv_mod.F90 b/src/trans/internal/vd2uv_mod.F90 index 6b95f86c..ee4923d4 100644 --- a/src/trans/internal/vd2uv_mod.F90 +++ b/src/trans/internal/vd2uv_mod.F90 @@ -8,11 +8,13 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE VD2UV_MOD CONTAINS SUBROUTINE VD2UV(KM,KMLOC,KF_UV,KLEI2,PSPVOR,PSPDIV,PU,PV) USE PARKIND1 ,ONLY : JPIM ,JPRB +USE PARKIND1, ONLY : JPRC => JPRB USE YOMHOOK ,ONLY : LHOOK, DR_HOOK, JPHOOK USE TPM_CONSTANTS @@ -130,7 +132,7 @@ SUBROUTINE VD2UV(KM,KMLOC,KF_UV,KLEI2,PSPVOR,PSPDIV,PU,PV) & ZIA(:,IUL:IUU),ZIA(:,IVL:IVU)) ILCM = R%NSMAX+1-KM IOFF = D%NASM0(KM) - ZA_R = 1.0_JPRB/RA + ZA_R = 1.0_JPRC/RA DO J=1,ILCM INM = IOFF+(ILCM-J)*2 DO JFLD=1,KF_UV diff --git a/src/trans/internal/vdtuv_mod.F90 b/src/trans/internal/vdtuv_mod.F90 index bd840a7c..171b069c 100644 --- a/src/trans/internal/vdtuv_mod.F90 +++ b/src/trans/internal/vdtuv_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE VDTUV_MOD CONTAINS SUBROUTINE VDTUV(KM,KFIELD,PEPSNM,PVOR,PDIV,PU,PV) diff --git a/src/trans/internal/vdtuvad_mod.F90 b/src/trans/internal/vdtuvad_mod.F90 index 88589f02..68df5e94 100644 --- a/src/trans/internal/vdtuvad_mod.F90 +++ b/src/trans/internal/vdtuvad_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE VDTUVAD_MOD CONTAINS SUBROUTINE VDTUVAD(KM,KFIELD,PEPSNM,PVOR,PDIV,PU,PV) diff --git a/src/trans/internal/write_legpol_mod.F90 b/src/trans/internal/write_legpol_mod.F90 index ea17f839..50abda7c 100644 --- a/src/trans/internal/write_legpol_mod.F90 +++ b/src/trans/internal/write_legpol_mod.F90 @@ -8,6 +8,7 @@ ! nor does it submit to any jurisdiction. ! +#include "renames.inc" MODULE WRITE_LEGPOL_MOD CONTAINS SUBROUTINE WRITE_LEGPOL