SURFEX v7.3
General documentation of Surfex
|
00001 C Jan-2011 P. Marguinaud Interface to thread-safe FA 00002 SUBROUTINE FAIS2F(KREP, KRANG ) 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, KRANG 00008 IF (.NOT. FA_COM_DEFAULT_INIT) CALL NEW_FA_DEFAULT () 00009 CALL FAIS2F_MT (FA_COM_DEFAULT, KREP, KRANG ) 00010 END SUBROUTINE 00011