SURFEX v7.3
General documentation of Surfex
|
00001 C Jan-2011 P. Marguinaud Interface to thread-safe FA 00002 SUBROUTINE FARPAR(KREP, CDPREF, CDSUFF, KCODPA, KNUM ) 00003 USE FA_MOD, ONLY : FA_COM_DEFAULT, 00004 S FA_COM_DEFAULT_INIT, 00005 S NEW_FA_DEFAULT 00006 IMPLICIT NONE 00007 INTEGER KREP, KNUM 00008 INTEGER KCODPA(KNUM,6) 00009 CHARACTER (LEN=*) CDPREF(KNUM), CDSUFF(KNUM) 00010 IF (.NOT. FA_COM_DEFAULT_INIT) CALL NEW_FA_DEFAULT () 00011 CALL FARPAR_MT (FA_COM_DEFAULT, KREP, CDPREF, CDSUFF, 00012 S KCODPA, KNUM ) 00013 END SUBROUTINE 00014