get_current.F90 Source File


This file depends on

sourcefile~~get_current.f90~2~~EfferentGraph sourcefile~get_current.f90~2 get_current.F90 sourcefile~tpm_gen.f90 tpm_gen.F90 sourcefile~get_current.f90~2->sourcefile~tpm_gen.f90 sourcefile~tpm_geometry.f90 tpm_geometry.F90 sourcefile~get_current.f90~2->sourcefile~tpm_geometry.f90 sourcefile~parkind_ectrans.f90 parkind_ectrans.F90 sourcefile~tpm_gen.f90->sourcefile~parkind_ectrans.f90 sourcefile~tpm_geometry.f90->sourcefile~parkind_ectrans.f90

Source Code

! (C) Copyright 2012- Meteo-France.
! (C) Copyright 2012- ECMWF.
! 
! This software is licensed under the terms of the Apache Licence Version 2.0
! which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
! In applying this licence, ECMWF does not waive the privileges and immunities
! granted to it by virtue of its status as an intergovernmental organisation
! nor does it submit to any jurisdiction.
!

SUBROUTINE GET_CURRENT(KRESOL,LDLAM)

!**** *GET_CURRENT* - Extract current information from the transform package

!     Purpose.
!     --------
!     Interface routine for extracting current information from the T.P.

!**   Interface.
!     ----------
!     CALL GET_CURRENT(...)

!     Explicit arguments : (all optional)
!     -------------------- 
!     KRESOL   - Current resolution
!     LDLAM    -  .T. if the corresponding resolution is LAM, .F. if it is global

!     Method.
!     -------

!     Externals.  None
!     ----------  

!     Author.
!     -------
!        Ryad El Khatib *Meteo-France*

!     Modifications.
!     --------------
!        Original : 24-Aug-2012

!     ------------------------------------------------------------------

USE EC_PARKIND  ,ONLY : JPIM

!ifndef INTERFACE

USE TPM_GEN,      ONLY : NCUR_RESOL
USE TPM_GEOMETRY, ONLY : G

!endif INTERFACE

IMPLICIT NONE

INTEGER(KIND=JPIM)  ,OPTIONAL,INTENT(OUT)  :: KRESOL
LOGICAL             ,OPTIONAL,INTENT(OUT)  :: LDLAM

!ifndef INTERFACE

! Get current resolution
IF (PRESENT(KRESOL)) KRESOL= NCUR_RESOL
IF (PRESENT(LDLAM))  LDLAM = G%LAM 


!endif INTERFACE

END SUBROUTINE GET_CURRENT