SURFEX v7.3
General documentation of Surfex
|
00001 C Jan-2011 P. Marguinaud Interface to thread-safe FA 00002 SUBROUTINE FAIXLA 00003 USE FA_MOD, ONLY : FA_COM_DEFAULT, 00004 S FA_COM_DEFAULT_INIT, 00005 S NEW_FA_DEFAULT 00006 IMPLICIT NONE 00007 IF (.NOT. FA_COM_DEFAULT_INIT) CALL NEW_FA_DEFAULT () 00008 CALL FAIXLA_MT (FA_COM_DEFAULT) 00009 END SUBROUTINE 00010