Oasis3 4.0.2
Functions/Subroutines
discendo.f File Reference

Go to the source code of this file.

Functions/Subroutines

INTEGER(kind=ip_intwp_p) FINDLON (VAL, TABLEAU, NBELEM, TMP)
INTEGER(kind=ip_intwp_p) CHERCHE (VAL, TABLEAU, NBELEM)
subroutine CHKXTRAP (PX, PY, NPTS, NI, NJ)
subroutine DGAUSS (N, ROOTS, KASE)
subroutine GAUSS (NRACP, RACP, PG, SIA, RAD, PGSSIN2, SINM1, SINM2, SIN2)
subroutine GDW2LLW (SPDO, PSIO, XLON, LI, LJ, GRTYP, IG1, IG2, IG3, IG4)
subroutine GGGDINT (ZO, PX, PY, NPTS, AY, CY, Z, I1, I2, J1, J2)
subroutine GGLL2GD (X, Y, XLAT, XLON, NPTS, NI, NJ, HEM, LROOTS)
program __discendo.f__
subroutine IGSCINT (ZO, LI, LJ, XLAT, XLON, ZI, NI, NJ, GRTYP, GRREF, IG1, IG2, IG3, IG4, SYM, AX, AY, VECFLG)
subroutine IGUVINT (SPDO, PSIO, LI, LJ, XLAT, XLON, UI, VI, NI, NJ, GRTYP, GRREF, IG1, IG2, IG3, IG4, SWS, AX, AY)
subroutine IRGDINT (ZO, PX, PY, NPTS, AX, AY, CX, CY, Z, I1, I2, J1, J2)
subroutine LL2IGD (PX, PY, XLAT, XLON, NPTS, NI, NJ, GRTYP, GRREF, IG1, IG2, IG3, IG4, SYM, AX, AY)
subroutine LL2RGD (PX, PY, XLAT, XLON, NPTS, NI, NJ, GRTYP, IG1, IG2, IG3, IG4, SYM)
subroutine LLLL2GD (X, Y, DLAT, DLON, NPTS, XLAT0, XLON0, DELLAT, DELLON)
subroutine MODULE (U, V, LI, LJ)
subroutine NWTNCOF (CX, CY, AX, AY, I1, I2, J1, J2)
subroutine POLRINT (ZO, XLAT, XLON, LILJ, ZI, NI, NJ, I1, I2, J1, J2, GRTYP, IG1, IG2, IG3, IG4, VECTEUR)
subroutine QQQALOC (XLAT, XLON, LI, LJ, I1, I2, J1, J2)
subroutine QQQCHK (XLAT, XLON, LILJ)
LOGICAL QQQCMP (XLAT, XLON, LILJ, NI, NJ, GRTYP, IG1, IG2, IG3, IG4, XORSUM)
subroutine QQQGLAT (NJ, HEM)
subroutine QQQKEEP (LILJ, NI, NJ, GRTYP, IG1, IG2, IG3, IG4, XORSUM)
subroutine QQQXTRAP (ZO, PX, PY, NPTS, Z, I1, I2, J1, J2)
subroutine RGDINT (ZO, PX, PY, NPTS, Z, I1, I2, J1, J2)
subroutine RGFREE ()
subroutine RGLL2GD (SPDO, PSIO, XLON, LI, LJ, GRTYP, IG1, IG2, IG3, IG4)
subroutine RGOPTC (OP, VAL, FLAG)
subroutine RGOPTI (OP, VAL, FLAG)
subroutine RGOPTR (OP, VAL, FLAG)
subroutine VLLFXY (DLAT, DLON, X, Y, NI, NJ, D60, DGRW, PI, PJ, NHEM)
subroutine VXYFLL (X, Y, DLAT, DLON, NPTS, D60, DGRW, PI, PJ, NHEM)
INTEGER(kind=ip_intwp_p) XORCALC (ILAT, ILON, LILJ)
subroutine XPNAXEG (NEWAXEX, NEWAXEY, I1, I2, J1, J2, NI, NJ, HEM)
subroutine XPNAXEZ (NEWAXEX, NEWAXEY, I1, I2, J1, J2, AX, AY, NI, NJ)
subroutine XPNAXEY (NEWAXEX, NEWAXEY, I1, I2, J1, J2, AX, AY, NI, NJ)
subroutine XPNCOF (I1, I2, J1, J2, NI, NJ, GRTYP, GRREF, IG1, IG2, IG3, IG4, SYM, AX, AY)
subroutine XPNGD (ZOUT, I1, I2, J1, J2, ZI, NI, NJ, GRTYP, IG1, IG2, IG3, IG4, SYM, VECT)
subroutine LLFXY (DLAT, DLON, X, Y, D60, DGRW, NHEM)
subroutine XYFLL (X, Y, DLAT, DLON, D60, DGRW, NHEM)
subroutine ORDLEG (SBX, COA, IR)
LOGICAL VALIDE (NOM, ICHK, MIN, MAX)
subroutine PERMUT (Z, NI, NJ)
subroutine CIGAXG (CGTYP, XG1, XG2, XG3, XG4, IG1, IG2, IG3, IG4)
subroutine CXGAIG (CGTYP, IG1, IG2, IG3, IG4, XG1, XG2, XG3, XG4)

Function Documentation

program __discendo.f__ ( )

Definition at line 760 of file discendo.f.

INTEGER (kind=ip_intwp_p) CHERCHE ( REAL(kind=ip_realwp_p)  VAL,
REAL(kind=ip_realwp_p),dimension(nbelem)  TABLEAU,
INTEGER (kind=ip_intwp_p)  NBELEM 
)

Definition at line 76 of file discendo.f.

subroutine CHKXTRAP ( REAL(kind=ip_realwp_p),dimension(npts)  PX,
REAL(kind=ip_realwp_p),dimension(npts)  PY,
INTEGER (kind=ip_intwp_p)  NPTS,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ 
)

Definition at line 100 of file discendo.f.

Referenced by LL2IGD(), and LL2RGD().

Here is the caller graph for this function:

subroutine CIGAXG ( CHARACTER*1  CGTYP,
  XG1,
  XG2,
  XG3,
  XG4,
  IG1,
  IG2,
  IG3,
  IG4 
)

Definition at line 3468 of file discendo.f.

References XYFLL().

Referenced by GDW2LLW(), LL2IGD(), LL2RGD(), and RGLL2GD().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine CXGAIG ( CHARACTER * 1  CGTYP,
  IG1,
  IG2,
  IG3,
  IG4,
  XG1,
  XG2,
  XG3,
  XG4 
)

Definition at line 3567 of file discendo.f.

References LLFXY().

Here is the call graph for this function:

subroutine DGAUSS (   N,
REAL(kind=ip_realwp_p),dimension(*)  ROOTS,
  KASE 
)

Definition at line 152 of file discendo.f.

References ORDLEG(), and T.

Referenced by QQQGLAT().

Here is the call graph for this function:

Here is the caller graph for this function:

INTEGER (kind=ip_intwp_p) FINDLON ( REAL(kind=ip_realwp_p)  VAL,
REAL(kind=ip_realwp_p),dimension(nbelem)  TABLEAU,
INTEGER (kind=ip_intwp_p)  NBELEM,
REAL(kind=ip_realwp_p)  TMP 
)

Definition at line 33 of file discendo.f.

subroutine GAUSS (   NRACP,
,dimension(1),dimension  RACP,
,dimension(1),dimension  PG,
,dimension(1),dimension  SIA,
,dimension(1),dimension  RAD,
,dimension(1),dimension  PGSSIN2,
,dimension(1),dimension  SINM1,
,dimension(1),dimension  SINM2,
,dimension(1),dimension  SIN2 
)

Definition at line 283 of file discendo.f.

References ORDLEG().

Here is the call graph for this function:

subroutine GDW2LLW ( REAL(kind=ip_realwp_p),dimension(li,lj)  SPDO,
REAL(kind=ip_realwp_p),dimension(li,lj)  PSIO,
REAL(kind=ip_realwp_p),dimension(li,lj)  XLON,
INTEGER (kind=ip_intwp_p)  LI,
INTEGER (kind=ip_intwp_p)  LJ,
CHARACTER*1  GRTYP,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4 
)

Definition at line 395 of file discendo.f.

References CIGAXG().

Referenced by IGUVINT().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine GGGDINT ( REAL(kind=ip_realwp_p),dimension(npts)  ZO,
REAL(kind=ip_realwp_p),dimension(npts)  PX,
REAL(kind=ip_realwp_p),dimension(npts)  PY,
INTEGER (kind=ip_intwp_p)  NPTS,
REAL(kind=ip_realwp_p),dimension(j1:j2)  AY,
REAL(kind=ip_realwp_p),dimension(j1:j2,6)  CY,
REAL(kind=ip_realwp_p),dimension(i1:i2,j1:j2)  Z,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2 
)

Definition at line 533 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine GGLL2GD ( REAL(kind=ip_realwp_p),dimension(npts)  X,
REAL(kind=ip_realwp_p),dimension(npts)  Y,
REAL(kind=ip_realwp_p),dimension(npts)  XLAT,
REAL(kind=ip_realwp_p),dimension(npts)  XLON,
INTEGER (kind=ip_intwp_p)  NPTS,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
INTEGER (kind=ip_intwp_p)  HEM,
REAL(kind=ip_realwp_p),dimension(nj)  LROOTS 
)

Definition at line 666 of file discendo.f.

Referenced by LL2RGD().

Here is the caller graph for this function:

subroutine IGSCINT ( REAL(kind=ip_realwp_p),dimension(li,lj)  ZO,
INTEGER (kind=ip_intwp_p)  LI,
INTEGER (kind=ip_intwp_p)  LJ,
REAL(kind=ip_realwp_p),dimension(li,lj)  XLAT,
REAL(kind=ip_realwp_p),dimension(li,lj)  XLON,
REAL(kind=ip_realwp_p),dimension(ni,nj)  ZI,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
CHARACTER*1  GRTYP,
CHARACTER*1  GRREF,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
LOGICAL  SYM,
REAL(kind=ip_realwp_p),dimension(ni)  AX,
REAL(kind=ip_realwp_p),dimension(nj)  AY,
CHARACTER*6  VECFLG 
)

Definition at line 800 of file discendo.f.

References GGGDINT(), IRGDINT(), LL2IGD(), LL2RGD(), NWTNCOF(), POLRINT(), QQQALOC(), QQQCHK(), QQQGLAT(), QQQKEEP(), QQQXTRAP(), RGDINT(), RGFREE(), RGOPTI(), XPNAXEG(), XPNAXEY(), XPNAXEZ(), XPNCOF(), and XPNGD().

Referenced by IGUVINT().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine IGUVINT ( REAL(kind=ip_realwp_p),dimension(li,lj)  SPDO,
REAL(kind=ip_realwp_p),dimension(li,lj)  PSIO,
INTEGER (kind=ip_intwp_p)  LI,
INTEGER (kind=ip_intwp_p)  LJ,
REAL(kind=ip_realwp_p),dimension(li,lj)  XLAT,
REAL(kind=ip_realwp_p),dimension(li,lj)  XLON,
REAL(kind=ip_realwp_p),dimension(ni,nj)  UI,
REAL(kind=ip_realwp_p),dimension(ni,nj)  VI,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
CHARACTER*1  GRTYP,
CHARACTER*1  GRREF,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
LOGICAL  SWS,
REAL(kind=ip_realwp_p),dimension(ni)  AX,
REAL(kind=ip_realwp_p),dimension(nj)  AY 
)

Definition at line 1007 of file discendo.f.

References GDW2LLW(), IGSCINT(), MODULE(), and RGOPTI().

Here is the call graph for this function:

subroutine IRGDINT ( REAL(kind=ip_realwp_p),dimension(npts)  ZO,
REAL(kind=ip_realwp_p),dimension(npts)  PX,
REAL(kind=ip_realwp_p),dimension(npts)  PY,
INTEGER (kind=ip_intwp_p)  NPTS,
REAL(kind=ip_realwp_p),dimension(i1:i2)  AX,
REAL(kind=ip_realwp_p),dimension(j1:j2)  AY,
REAL(kind=ip_realwp_p),dimension(i1:i2,6)  CX,
REAL(kind=ip_realwp_p),dimension(j1:j2,6)  CY,
REAL(kind=ip_realwp_p),dimension(i1:i2,j1:j2)  Z,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2 
)

Definition at line 1086 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine LL2IGD ( REAL(kind=ip_realwp_p),dimension(npts)  PX,
REAL(kind=ip_realwp_p),dimension(npts)  PY,
REAL(kind=ip_realwp_p),dimension(npts)  XLAT,
REAL(kind=ip_realwp_p),dimension(npts)  XLON,
INTEGER (kind=ip_intwp_p)  NPTS,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
CHARACTER*1  GRTYP,
CHARACTER*1  GRREF,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
LOGICAL  SYM,
REAL(kind=ip_realwp_p),dimension(ni)  AX,
REAL(kind=ip_realwp_p),dimension(nj)  AY 
)

Definition at line 1268 of file discendo.f.

References CHKXTRAP(), CIGAXG(), LLLL2GD(), PERMUT(), and VXYFLL().

Referenced by IGSCINT().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine LL2RGD ( REAL(kind=ip_realwp_p),dimension(npts)  PX,
REAL(kind=ip_realwp_p),dimension(npts)  PY,
REAL(kind=ip_realwp_p),dimension(npts)  XLAT,
REAL(kind=ip_realwp_p),dimension(npts)  XLON,
INTEGER (kind=ip_intwp_p)  NPTS,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
CHARACTER*1  GRTYP,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
LOGICAL  SYM 
)

Definition at line 1332 of file discendo.f.

References CHKXTRAP(), CIGAXG(), GGLL2GD(), LLLL2GD(), PERMUT(), QQQGLAT(), and VXYFLL().

Referenced by IGSCINT().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine LLFXY (   DLAT,
  DLON,
  X,
  Y,
  D60,
  DGRW,
  NHEM 
)

Definition at line 3214 of file discendo.f.

Referenced by CXGAIG().

Here is the caller graph for this function:

subroutine LLLL2GD ( REAL(kind=ip_realwp_p),dimension(npts)  X,
REAL(kind=ip_realwp_p),dimension(npts)  Y,
REAL(kind=ip_realwp_p),dimension(npts)  DLAT,
REAL(kind=ip_realwp_p),dimension(npts)  DLON,
INTEGER (kind=ip_intwp_p)  NPTS,
REAL(kind=ip_realwp_p)  XLAT0,
REAL(kind=ip_realwp_p)  XLON0,
REAL(kind=ip_realwp_p)  DELLAT,
REAL(kind=ip_realwp_p)  DELLON 
)

Definition at line 1458 of file discendo.f.

Referenced by LL2IGD(), and LL2RGD().

Here is the caller graph for this function:

subroutine MODULE ( REAL(kind=ip_realwp_p),dimension(li,lj)  U,
REAL(kind=ip_realwp_p),dimension(li,lj)  V,
INTEGER (kind=ip_intwp_p)  LI,
INTEGER (kind=ip_intwp_p)  LJ 
)

Definition at line 1477 of file discendo.f.

Referenced by IGUVINT().

Here is the caller graph for this function:

subroutine NWTNCOF ( REAL(kind=ip_realwp_p),dimension(i1:i2,6)  CX,
REAL(kind=ip_realwp_p),dimension(j1:j2,6)  CY,
REAL(kind=ip_realwp_p),dimension(i1:i2)  AX,
REAL(kind=ip_realwp_p),dimension(j1:j2)  AY,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2 
)

Definition at line 1491 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine ORDLEG (   SBX,
  COA,
  IR 
)

Definition at line 3341 of file discendo.f.

Referenced by DGAUSS(), and GAUSS().

Here is the caller graph for this function:

subroutine PERMUT ( REAL(kind=ip_realwp_p),dimension(ni,nj)  Z,
  NI,
  NJ 
)

Definition at line 3434 of file discendo.f.

References T.

Referenced by LL2IGD(), LL2RGD(), and XPNGD().

Here is the caller graph for this function:

subroutine POLRINT ( REAL(kind=ip_realwp_p),dimension(lilj)  ZO,
REAL(kind=ip_realwp_p),dimension(lilj)  XLAT,
REAL(kind=ip_realwp_p),dimension(lilj)  XLON,
INTEGER (kind=ip_intwp_p)  LILJ,
REAL(kind=ip_realwp_p),dimension(i1:i2,j1:j2)  ZI,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2,
CHARACTER*1  GRTYP,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
LOGICAL  VECTEUR 
)

Definition at line 1539 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine QQQALOC ( REAL(kind=ip_realwp_p),dimension(li,lj)  XLAT,
REAL(kind=ip_realwp_p),dimension(li,lj)  XLON,
INTEGER (kind=ip_intwp_p)  LI,
INTEGER (kind=ip_intwp_p)  LJ,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2 
)

Definition at line 1643 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine QQQCHK ( REAL(kind=ip_realwp_p),dimension(lilj)  XLAT,
REAL(kind=ip_realwp_p),dimension(lilj)  XLON,
INTEGER (kind=ip_intwp_p)  LILJ 
)

Definition at line 1681 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

LOGICAL QQQCMP ( REAL(kind=ip_realwp_p),dimension(lilj)  XLAT,
REAL(kind=ip_realwp_p),dimension(lilj)  XLON,
INTEGER (kind=ip_intwp_p)  LILJ,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
CHARACTER*1  GRTYP,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
INTEGER (kind=ip_intwp_p)  XORSUM 
)

Definition at line 1763 of file discendo.f.

subroutine QQQGLAT ( INTEGER (kind=ip_intwp_p)  NJ,
INTEGER (kind=ip_intwp_p)  HEM 
)

Definition at line 1834 of file discendo.f.

References DGAUSS().

Referenced by IGSCINT(), and LL2RGD().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine QQQKEEP ( INTEGER (kind=ip_intwp_p)  LILJ,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
CHARACTER*1  GRTYP,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
INTEGER (kind=ip_intwp_p)  XORSUM 
)

Definition at line 1905 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine QQQXTRAP ( REAL(kind=ip_realwp_p),dimension(npts)  ZO,
REAL(kind=ip_realwp_p),dimension(npts)  PX,
REAL(kind=ip_realwp_p),dimension(npts)  PY,
INTEGER (kind=ip_intwp_p)  NPTS,
REAL(kind=ip_realwp_p),dimension(i1:i2,j1:j2)  Z,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2 
)

Definition at line 1940 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine RGDINT ( REAL(kind=ip_realwp_p),dimension(npts)  ZO,
REAL(kind=ip_realwp_p),dimension(npts)  PX,
REAL(kind=ip_realwp_p),dimension(npts)  PY,
INTEGER (kind=ip_intwp_p)  NPTS,
REAL(kind=ip_realwp_p),dimension(i1:i2,j1:j2)  Z,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2 
)

Definition at line 2016 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine RGFREE ( )

Definition at line 2111 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine RGLL2GD ( REAL(kind=ip_realwp_p),dimension(li,lj)  SPDO,
REAL(kind=ip_realwp_p),dimension(li,lj)  PSIO,
REAL(kind=ip_realwp_p),dimension(li,lj)  XLON,
INTEGER (kind=ip_intwp_p)  LI,
INTEGER (kind=ip_intwp_p)  LJ,
CHARACTER*1  GRTYP,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4 
)

Definition at line 2198 of file discendo.f.

References CIGAXG().

Here is the call graph for this function:

subroutine RGOPTC ( CHARACTER *(*)  OP,
CHARACTER *(*)  VAL,
LOGICAL  FLAG 
)

Definition at line 2296 of file discendo.f.

subroutine RGOPTI ( CHARACTER *(*)  OP,
INTEGER (kind=ip_intwp_p)  VAL,
LOGICAL  FLAG 
)

Definition at line 2451 of file discendo.f.

Referenced by IGSCINT(), and IGUVINT().

Here is the caller graph for this function:

subroutine RGOPTR ( CHARACTER *(*)  OP,
REAL(kind=ip_realwp_p)  VAL,
LOGICAL  FLAG 
)

Definition at line 2520 of file discendo.f.

LOGICAL VALIDE (   NOM,
  ICHK,
  MIN,
  MAX 
)

Definition at line 3407 of file discendo.f.

subroutine VLLFXY ( REAL(kind=ip_realwp_p),dimension(ni,nj)  DLAT,
REAL(kind=ip_realwp_p),dimension(ni,nj)  DLON,
REAL(kind=ip_realwp_p),dimension(ni,nj)  X,
REAL(kind=ip_realwp_p),dimension(ni,nj)  Y,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
REAL(kind=ip_realwp_p)  D60,
REAL(kind=ip_realwp_p)  DGRW,
REAL(kind=ip_realwp_p)  PI,
REAL(kind=ip_realwp_p)  PJ,
INTEGER (kind=ip_intwp_p)  NHEM 
)

Definition at line 2588 of file discendo.f.

subroutine VXYFLL ( REAL(kind=ip_realwp_p),dimension(npts)  X,
REAL(kind=ip_realwp_p),dimension(npts)  Y,
REAL(kind=ip_realwp_p),dimension(npts)  DLAT,
REAL(kind=ip_realwp_p),dimension(npts)  DLON,
INTEGER (kind=ip_intwp_p)  NPTS,
REAL(kind=ip_realwp_p)  D60,
REAL(kind=ip_realwp_p)  DGRW,
REAL(kind=ip_realwp_p)  PI,
REAL(kind=ip_realwp_p)  PJ,
INTEGER (kind=ip_intwp_p)  NHEM 
)

Definition at line 2695 of file discendo.f.

Referenced by LL2IGD(), and LL2RGD().

Here is the caller graph for this function:

INTEGER (kind=ip_intwp_p) XORCALC ( INTEGER (kind=ip_intwp_p),dimension(lilj)  ILAT,
INTEGER (kind=ip_intwp_p),dimension(lilj)  ILON,
INTEGER (kind=ip_intwp_p)  LILJ 
)

Definition at line 2778 of file discendo.f.

subroutine XPNAXEG ( REAL(kind=ip_realwp_p),dimension(i1:i2)  NEWAXEX,
REAL(kind=ip_realwp_p),dimension(j1:j2)  NEWAXEY,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
INTEGER (kind=ip_intwp_p)  HEM 
)

Definition at line 2791 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine XPNAXEY ( REAL(kind=ip_realwp_p),dimension(ni)  NEWAXEX,
REAL(kind=ip_realwp_p),dimension(nj)  NEWAXEY,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2,
REAL(kind=ip_realwp_p),dimension(ni)  AX,
REAL(kind=ip_realwp_p),dimension(nj)  AY,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ 
)

Definition at line 2899 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine XPNAXEZ ( REAL(kind=ip_realwp_p),dimension(i1:i2)  NEWAXEX,
REAL(kind=ip_realwp_p),dimension(j1:j2)  NEWAXEY,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2,
REAL(kind=ip_realwp_p),dimension(ni)  AX,
REAL(kind=ip_realwp_p),dimension(nj)  AY,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ 
)

Definition at line 2870 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine XPNCOF ( INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
CHARACTER*1  GRTYP,
CHARACTER*1  GRREF,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
LOGICAL  SYM,
REAL(kind=ip_realwp_p),dimension(ni)  AX,
REAL(kind=ip_realwp_p),dimension(nj)  AY 
)

Definition at line 2918 of file discendo.f.

Referenced by IGSCINT().

Here is the caller graph for this function:

subroutine XPNGD ( REAL(kind=ip_realwp_p),dimension(i1:i2,j1:j2)  ZOUT,
INTEGER (kind=ip_intwp_p)  I1,
INTEGER (kind=ip_intwp_p)  I2,
INTEGER (kind=ip_intwp_p)  J1,
INTEGER (kind=ip_intwp_p)  J2,
REAL(kind=ip_realwp_p),dimension(ni,nj)  ZI,
INTEGER (kind=ip_intwp_p)  NI,
INTEGER (kind=ip_intwp_p)  NJ,
CHARACTER*1  GRTYP,
INTEGER (kind=ip_intwp_p)  IG1,
INTEGER (kind=ip_intwp_p)  IG2,
INTEGER (kind=ip_intwp_p)  IG3,
INTEGER (kind=ip_intwp_p)  IG4,
LOGICAL  SYM,
LOGICAL  VECT 
)

Definition at line 2983 of file discendo.f.

References PERMUT().

Referenced by IGSCINT().

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine XYFLL (   X,
  Y,
  DLAT,
  DLON,
  D60,
  DGRW,
  NHEM 
)

Definition at line 3285 of file discendo.f.

Referenced by CIGAXG().

Here is the caller graph for this function:

 All Data Structures Namespaces Files Functions Variables Defines