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

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