Go to the source code of this file.
|
| ! Jan P Marguinaud Interface to thread safe FA SUBROUTINE | _ELLIPS_ (KSMAX, KMSMAX, KNTMP, KMTMP) USE PARKIND1 |
| |
|
| ! Jan P Marguinaud Interface to thread safe FA SUBROUTINE | ONLY |
| |
| ! Jan P Marguinaud Interface to thread safe FA SUBROUTINE DR_HOOK USE LFI_PRECISION IMPLICIT NONE ***ELLIPS ***General routine for computing elliptic truncation ! Purpose ! Computation of zonal and meridional limit wavenumbers within the ellipse | ! Interface |
| |
| ! Jan P Marguinaud Interface to thread safe FA SUBROUTINE DR_HOOK USE LFI_PRECISION IMPLICIT NONE ***ELLIPS ***General routine for computing elliptic truncation ! Purpose ! Computation of zonal and meridional limit wavenumbers within the ellipse treating | NSMAX |
| |
◆ _ELLIPS_()
| ! Jan P Marguinaud Interface to thread safe FA SUBROUTINE _ELLIPS_ |
( |
KSMAX |
, |
|
|
KMSMAX |
, |
|
|
KNTMP |
, |
|
|
KMTMP |
|
|
) |
| |
◆ ! Interface
| ! Jan P Marguinaud Interface to thread safe FA SUBROUTINE DR_HOOK USE LFI_PRECISION IMPLICIT NONE*** ELLIPS*** General routine for computing elliptic truncation ! Purpose ! Computation of zonal and meridional limit wavenumbers within the ellipse ! Interface |
◆ NSMAX
| ! Jan P Marguinaud Interface to thread safe FA SUBROUTINE DR_HOOK USE LFI_PRECISION IMPLICIT NONE*** ELLIPS*** General routine for computing elliptic truncation ! Purpose ! Computation of zonal and meridional limit wavenumbers within the ellipse treating NSMAX |
Initial value:=0 and NMSMAX=0
!
!
INTERFACE SUBROUTINE JPRB IMPLICIT NONE INTEGER(KIND=JPIM)
Definition at line 41 of file ellips.h.
◆ ONLY
| INTERFACE SUBROUTINE ONLY |