SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/FA/facadi.F Source File

Go to the documentation of this file.
00001 C Jan-2011 P. Marguinaud Interface to thread-safe FA
00002       SUBROUTINE FACADI(KREP, CDNOMC, KTYPTR, PSLAPO, PCLOPO, 
00003      S                    PSLOPO,
00004      S                    PCODIL, KTRONC, KNLATI, KNXLON, KNLOPA,
00005      S                    KNOZPA, PSINLA, KNIVER, PREFER, PAHYBR,
00006      S                    PBHYBR, LDMODC, LDREDF, KPHASE, KRANGC,
00007      S                    KLNOMC, KGARDE )
00008       USE FA_MOD, ONLY : FA_COM_DEFAULT,
00009      S                   FA_COM_DEFAULT_INIT,
00010      S                   NEW_FA_DEFAULT
00011       IMPLICIT NONE
00012 #include "precision.h"
00013       INTEGER KTYPTR, KTRONC, KNLATI, KNXLON, KNIVER, KREP, KPHASE
00014       INTEGER KRANGC, KLNOMC, KGARDE
00015       INTEGER KNLOPA (FA_COM_DEFAULT%JPXPAH), 
00016      S        KNOZPA (FA_COM_DEFAULT%JPXIND)
00017       REAL (KIND=JPDBLR) PSLAPO, PCLOPO, PSLOPO, PCODIL, PREFER
00018       REAL (KIND=JPDBLR) PSINLA (FA_COM_DEFAULT%JPXGEO), 
00019      S                   PAHYBR (0:KNIVER)
00020       REAL (KIND=JPDBLR) PBHYBR (0:KNIVER)
00021       CHARACTER CDNOMC*(*)
00022       LOGICAL LDREDF, LDMODC
00023       IF (.NOT. FA_COM_DEFAULT_INIT) CALL NEW_FA_DEFAULT ()
00024       CALL FACADI_MT (FA_COM_DEFAULT, KREP, CDNOMC, KTYPTR, PSLAPO, 
00025      S                PCLOPO, PSLOPO,
00026      S                PCODIL, KTRONC, KNLATI, KNXLON, KNLOPA,
00027      S                KNOZPA, PSINLA, KNIVER, PREFER, PAHYBR,
00028      S                PBHYBR, LDMODC, LDREDF, KPHASE, KRANGC,
00029      S                KLNOMC, KGARDE )
00030       END SUBROUTINE
00031