SUBROUTINE ETRANS_INQ4PY(KRETURNCODE, KSIZEI, KSIZEJ, KPHYSICALSIZEI, KPHYSICALSIZEJ, & &KTRUNCX, KTRUNCY, KNUMMAXRESOL, PDELTAX, PDELTAY, & &KGPTOT, KSPEC) ! ** PURPOSE ! Simplified wrapper to ETRANS_INQ ! ! ** DUMMY ARGUMENTS ! KSIZEI, KSIZEJ: size of grid-point field (with extension zone) ! KPHYSICALSIZEI, KPHYSICALSIZEJ: size of physical part of grid-point field ! KTRUNCX, KTRUNCY: troncatures ! KNUMMAXRESOL: maximum number of troncatures handled ! PDELTAX: x resolution ! PDELTAY: y resolution ! KGPTOT: number of gridpoints ! KSPEC: number of spectral coefficients ! ! ** AUTHOR ! 9 April 2014, S. Riette ! ! ** MODIFICATIONS ! 6 Jan., S. Riette: PDELTAX and PDELTAY added ! ! I. Dummy arguments declaration IMPLICIT NONE INTEGER(KIND=8), INTENT(OUT) :: KRETURNCODE INTEGER(KIND=8), INTENT(IN) :: KSIZEI, KSIZEJ INTEGER(KIND=8), INTENT(IN) :: KPHYSICALSIZEI, KPHYSICALSIZEJ INTEGER(KIND=8), INTENT(IN) :: KTRUNCX, KTRUNCY INTEGER(KIND=8), INTENT(IN) :: KNUMMAXRESOL REAL(KIND=8), INTENT(IN) :: PDELTAX REAL(KIND=8), INTENT(IN) :: PDELTAY INTEGER(KIND=8), INTENT(OUT) :: KGPTOT INTEGER(KIND=8), INTENT(OUT) :: KSPEC ! ! II. Local variables declaration INTEGER, DIMENSION(0:KTRUNCX) :: IESM0 INTEGER :: ISIZEI, ISIZEJ, & & IPHYSICALSIZEI, IPHYSICALSIZEJ, & & ITRUNCX, ITRUNCY, & & INUMMAXRESOL LOGICAL :: LLSTOP INTEGER :: IIDENTRESOL INTEGER, DIMENSION(1) :: ILOEN INTEGER :: IGPTOT, ISPEC #include "etrans_inq.h" ISIZEI=KSIZEI ISIZEJ=KSIZEJ IPHYSICALSIZEI=KPHYSICALSIZEI IPHYSICALSIZEJ=KPHYSICALSIZEJ ITRUNCX=KTRUNCX ITRUNCY=KTRUNCY INUMMAXRESOL=KNUMMAXRESOL ! III. Setup CALL SPEC_SETUP4PY(KRETURNCODE, ISIZEI, ISIZEJ, IPHYSICALSIZEI, IPHYSICALSIZEJ, & &ITRUNCX, ITRUNCY, INUMMAXRESOL, ILOEN, .TRUE., 1, & &PDELTAX, PDELTAY, IIDENTRESOL, LLSTOP) IF (.NOT. LLSTOP) THEN CALL ETRANS_INQ(KRESOL=IIDENTRESOL, KGPTOT=IGPTOT, KSPEC=ISPEC, KESM0=IESM0) KGPTOT=IGPTOT KSPEC=ISPEC ENDIF ! END SUBROUTINE ETRANS_INQ4PY