fadecoga.F90

Go to the documentation of this file.

! Oct-2012 P. Marguinaud 64b LFI
SUBROUTINE fadecoga                                             &
&           (pfdata, klenf, kbits, knbit, kb1par, kb2par,       &
&            pvert, klenv, kgrib, kleng, kword, kjlenv, kjlenf, &
&            kcpack, kscalp, kerr, pmin, pmax, ldarpe)
USE lfi_precision
IMPLICIT NONE
! Arguments
INTEGER (KIND=JPLIKB)  KLENF                                  ! IN   
REAL (KIND=JPDBLR)     PFDATA     (klenf)                     !   OUT
INTEGER (KIND=JPLIKB)  KBITS                                  !   OUT
INTEGER (KIND=JPLIKB)  KNBIT                                  ! IN   
INTEGER (KIND=JPLIKB)  KB1PAR     (19)                        !   OUT
INTEGER (KIND=JPLIKB)  KB2PAR     (17)                        !   OUT
INTEGER (KIND=JPLIKB)  KLENV                                  ! IN   
REAL (KIND=JPDBLR)     PVERT      (klenv)                     !   OUT
INTEGER (KIND=JPLIKB)  KLENG                                  ! IN   
INTEGER (KIND=JPLIKB)  KGRIB      (kleng)                     ! IN   
INTEGER (KIND=JPLIKB)  KWORD                                  !   OUT
INTEGER (KIND=JPLIKB)  KJLENV                                 !   OUT
INTEGER (KIND=JPLIKB)  KJLENF                                 !   OUT
INTEGER (KIND=JPLIKB)  KCPACK                                 !   OUT
INTEGER (KIND=JPLIKB)  KSCALP                                 !   OUT
INTEGER (KIND=JPLIKB)  KERR                                   !   OUT
REAL (KIND=JPDBLD)     PMIN                                   ! IN   
REAL (KIND=JPDBLD)     PMAX                                   ! IN   
LOGICAL                LDARPE                                 ! IN   
! Local integers
INTEGER (KIND=JPLIKM)  ILENF                                  ! IN   
INTEGER (KIND=JPLIKM)  IBITS                                  !   OUT
INTEGER (KIND=JPLIKM)  INBIT                                  ! IN   
INTEGER (KIND=JPLIKM)  IB1PAR     (19)                        !   OUT
INTEGER (KIND=JPLIKM)  IB2PAR     (17)                        !   OUT
INTEGER (KIND=JPLIKM)  ILENV                                  ! IN   
INTEGER (KIND=JPLIKM)  ILENG                                  ! IN   
INTEGER (KIND=JPLIKM)  IWORD                                  !   OUT
INTEGER (KIND=JPLIKM)  IJLENV                                 !   OUT
INTEGER (KIND=JPLIKM)  IJLENF                                 !   OUT
INTEGER (KIND=JPLIKM)  ICPACK                                 !   OUT
INTEGER (KIND=JPLIKM)  ISCALP                                 !   OUT
INTEGER (KIND=JPLIKM)  IERR                                   !   OUT
! Local reals
REAL (KIND=JPDBLD)     ZFDATA     (klenf)                     !   OUT
REAL (KIND=JPDBLD)     ZVERT      (klenv)                     !   OUT
! Convert arguments

ilenf      = int(     klenf, jplikm)
inbit      = int(     knbit, jplikm)
ilenv      = int(     klenv, jplikm)
ileng      = int(     kleng, jplikm)

IF (jpdblr == jpdbld) THEN

  CALL decoga                                                     &
  &           (pfdata, ilenf, ibits, inbit, ib1par, ib2par,       &
  &            pvert, ilenv, kgrib, ileng, iword, ijlenv, ijlenf, &
  &            icpack, iscalp, ierr, pmin, pmax, ldarpe)


ELSE

  CALL decoga                                                     &
  &           (zfdata, ilenf, ibits, inbit, ib1par, ib2par,       &
  &            zvert, ilenv, kgrib, ileng, iword, ijlenv, ijlenf, &
  &            icpack, iscalp, ierr, pmin, pmax, ldarpe)

  pfdata = real(zfdata, jpdblr)
  pvert  = real( zvert, jpdblr)

ENDIF


kbits      = int(     ibits, jplikb)
kb1par     = int(    ib1par, jplikb)
kb2par     = int(    ib2par, jplikb)
kword      = int(     iword, jplikb)
kjlenv     = int(    ijlenv, jplikb)
kjlenf     = int(    ijlenf, jplikb)
kcpack     = int(    icpack, jplikb)
kscalp     = int(    iscalp, jplikb)
kerr       = int(      ierr, jplikb)

END SUBROUTINE fadecoga