SURFEX v7.3
General documentation of Surfex
|
00001 C Jan-2011 P. Marguinaud Interface to thread-safe FA 00002 SUBROUTINE FADECO(KREP, KNUMER, CDPREF, KNIVAU, CDSUFF, 00003 S LDCOSP, CDNOMA, KLNOMA, KVALCO, KLONGD, 00004 S PCHAMP ) 00005 USE FA_MOD, ONLY : FA_COM_DEFAULT, 00006 S FA_COM_DEFAULT_INIT, 00007 S NEW_FA_DEFAULT 00008 IMPLICIT NONE 00009 #include "precision.h" 00010 INTEGER KREP, KNUMER, KNIVAU, KLNOMA, KLONGD 00011 REAL (KIND=JPDBLR) PCHAMP (*) 00012 INTEGER (KIND=JPDBLE) KVALCO(*) 00013 LOGICAL LDCOSP 00014 CHARACTER CDPREF*(*), CDSUFF*(*), CDNOMA*(*) 00015 IF (.NOT. FA_COM_DEFAULT_INIT) CALL NEW_FA_DEFAULT () 00016 CALL FADECO_MT (FA_COM_DEFAULT, KREP, KNUMER, CDPREF, KNIVAU, 00017 S CDSUFF, LDCOSP, CDNOMA, KLNOMA, KVALCO, KLONGD, 00018 S PCHAMP ) 00019 END SUBROUTINE 00020