fa_limits.F90

Go to the documentation of this file.

! Oct-2012 P. Marguinaud 64b LFI
! Jan-2011 P. Marguinaud Thread-safe FA
SUBROUTINE fa_limits_fort                               &
&                       (fa, kpxpah,kpxind,kpxgeo,kpxniv)
USE fa_mod, ONLY : fa_com
USE parkind1, ONLY : jprb
USE yomhook , ONLY : lhook, dr_hook
USE lfi_precision
IMPLICIT NONE

! -----
! Purpose:
!   Returns limits necessary for proper dimensioning of FA fields
!   (arrays entering subroutine FACIES). It was created because
!   of two reasons:
!
!   1) Subroutine FALIMU does not provide all needed limits.
!
!   2) Direct use of parameters JPX* from include "facomp.h" would
!   be more convenient (no need to define interface arrays as
!   allocatable). But since this include contains CPP directives,
!   its use in external utilities might give wrong numbers with
!   improper compile options. Moreover, include is written
!   in fixed form and cannot be inserted into free form source.
!
! Created:
!   25-Jun-2010, J. Masek
!
! Modified:
!
! -----

TYPE(fa_com) :: FA
INTEGER (KIND=JPLIKB) :: KPXPAH,KPXIND,KPXGEO,KPXNIV

kpxpah=fa%JPXPAH
kpxind=fa%JPXIND
kpxgeo=fa%JPXGEO
kpxniv=fa%JPXNIV

END SUBROUTINE fa_limits_fort



! Oct-2012 P. Marguinaud 64b LFI
SUBROUTINE fa_limits64                     &
&           (kpxpah, kpxind, kpxgeo, kpxniv)
USE fa_mod, ONLY : fa => fa_com_default, &
&                   fa_com_default_init,  &
&                   new_fa_default
USE lfi_precision
IMPLICIT NONE
! Arguments
INTEGER (KIND=JPLIKB)  KPXPAH                                 !   OUT
INTEGER (KIND=JPLIKB)  KPXIND                                 !   OUT
INTEGER (KIND=JPLIKB)  KPXGEO                                 !   OUT
INTEGER (KIND=JPLIKB)  KPXNIV                                 !   OUT

IF (.NOT. fa_com_default_init) CALL new_fa_default ()

CALL fa_limits_fort                            &
&           (fa, kpxpah, kpxind, kpxgeo, kpxniv)

END SUBROUTINE fa_limits64

SUBROUTINE fa_limits                       &
&           (kpxpah, kpxind, kpxgeo, kpxniv)
USE fa_mod, ONLY : fa => fa_com_default, &
&                   fa_com_default_init,  &
&                   new_fa_default
USE lfi_precision
IMPLICIT NONE
! Arguments
INTEGER (KIND=JPLIKM)  KPXPAH                                 !   OUT
INTEGER (KIND=JPLIKM)  KPXIND                                 !   OUT
INTEGER (KIND=JPLIKM)  KPXGEO                                 !   OUT
INTEGER (KIND=JPLIKM)  KPXNIV                                 !   OUT

IF (.NOT. fa_com_default_init) CALL new_fa_default ()

CALL fa_limits_mt                              &
&           (fa, kpxpah, kpxind, kpxgeo, kpxniv)

END SUBROUTINE fa_limits

SUBROUTINE fa_limits_mt                        &
&           (fa, kpxpah, kpxind, kpxgeo, kpxniv)
USE fa_mod, ONLY : fa_com
USE lfi_precision
IMPLICIT NONE
! Arguments
type(fa_com)          fa                                     ! INOUT
INTEGER (KIND=JPLIKM)  KPXPAH                                 !   OUT
INTEGER (KIND=JPLIKM)  KPXIND                                 !   OUT
INTEGER (KIND=JPLIKM)  KPXGEO                                 !   OUT
INTEGER (KIND=JPLIKM)  KPXNIV                                 !   OUT
! Local integers
INTEGER (KIND=JPLIKB)  IPXPAH                                 !   OUT
INTEGER (KIND=JPLIKB)  IPXIND                                 !   OUT
INTEGER (KIND=JPLIKB)  IPXGEO                                 !   OUT
INTEGER (KIND=JPLIKB)  IPXNIV                                 !   OUT
! Convert arguments


CALL fa_limits_fort                            &
&           (fa, ipxpah, ipxind, ipxgeo, ipxniv)

kpxpah     = int(    ipxpah, jplikm)
kpxind     = int(    ipxind, jplikm)
kpxgeo     = int(    ipxgeo, jplikm)
kpxniv     = int(    ipxniv, jplikm)

END SUBROUTINE fa_limits_mt

!INTF KPXPAH          OUT 
!INTF KPXIND          OUT 
!INTF KPXGEO          OUT 
!INTF KPXNIV          OUT