! (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