SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/LIB/XRD38/LFI/lfirac.F Source File

Go to the documentation of this file.

00001 C Jan-2011 P. Marguinaud Interface to thread-safe LFI
00002       SUBROUTINE LFIRAC ( KNOMAR, KNALPI, KCLE, KINDIC, KNBVAL )
00003       USE LFIMOD, ONLY : LFICOM_DEFAULT,
00004      S                   LFICOM_DEFAULT_INIT,
00005      S                   NEW_LFI_DEFAULT
00006       IMPLICIT NONE
00007 #ifndef f77
00008 #include "precision.h"
00009       INTEGER (KIND=JPDBLE) KNOMAR (LFICOM_DEFAULT%JPNMPN,
00010      S                              LFICOM_DEFAULT%JPNAPX),
00011      S                      KCLE (LFICOM_DEFAULT%JPNMPN)
00012 #else
00013       INTEGER KNOMAR (LFICOM_DEFAULT%JPNMPN,LFICOM_DEFAULT%JPNAPX), 
00014      S        KCLE (LFICOM_DEFAULT%JPNMPN)
00015 #endif
00016       INTEGER KNALPI, KNBVAL, KINDIC (LFICOM_DEFAULT%JPNAPX)
00017       IF (.NOT. LFICOM_DEFAULT_INIT) CALL NEW_LFI_DEFAULT ()
00018       CALL LFIRAC_MT (LFICOM_DEFAULT, KNOMAR, KNALPI, 
00019      S                KCLE, KINDIC, KNBVAL )
00020       END SUBROUTINE
00021