sucst_ifsaux.F90

Go to the documentation of this file.

SUBROUTINE sucst_ifsaux

!**** *SUCST_IFSAUX * - Routine to initialize the constants of the model.

!     Purpose.
!     --------
!           Initialize and print the common YOMCST_IFSAUX
!           Should be consistent with the content of arp/setup/sucst.F90
!           Do not use currently with LDYNCORE=T, RPLRADI /=1

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

!        Explicit arguments :
!        --------------------
!        none

!        Implicit arguments :
!        --------------------
!        COMMON YOMCST_IFSAUX

!     Method.
!     -------
!        See documentation

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

!     Reference.
!     ----------
!        ECMWF Research Department documentation of the IFS

!     Author.
!     -------
!        Mats Hamrud and Philippe Courtier  *ECMWF*

!     Modifications.
!     --------------
!        Original : 87-10-15
!        K. Yessad (Jun 2009): IFSAUX version
!     ------------------------------------------------------------------

USE parkind1  ,ONLY : jpim     ,jprb
USE yomhook   ,ONLY : lhook,   dr_hook

USE yomcst_ifsaux, ONLY : xrpi     ,xra

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

IMPLICIT NONE

REAL(KIND=JPRB) :: ZXRPLRADI
REAL(KIND=JPRB) :: ZHOOK_HANDLE

!      -----------------------------------------------------------------
IF (lhook) CALL dr_hook('SUCST_IFSAUX',0,zhook_handle)
!      -----------------------------------------------------------------

!*       1.    DEFINE FUNDAMENTAL CONSTANTS.
!              -----------------------------

xrpi=2.0_jprb*asin(1.0_jprb)

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

!*       2.    DEFINE GEOIDE.
!              --------------

zxrplradi=1.0_jprb
xra=6371229._jprb*zxrplradi

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

IF (lhook) CALL dr_hook('SUCST_IFSAUX',1,zhook_handle)
END SUBROUTINE sucst_ifsaux