pkg/embed_files/embed_files_init.F

0ee646bca5 Ed H*0001 #include "EMBED_FILES_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP 0
                0005 C     !ROUTINE: EMBED_FILES_INIT
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE EMBED_FILES_INIT( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     The functionality for the embed_files package is very simple, so
                0012 C     all this "initialization" routine needs to do is call the C
                0013 C     routine which writes whatever files have been embedded.
                0014
                0015 C     !USES:
                0016 #include "SIZE.h"
                0017 #include "EEPARAMS.h"
                0018 #include "EESUPPORT.h"
                0019
                0020 C     !INPUT PARAMETERS:
                0021       integer myThid
                0022 CEOP
                0023
                0024 C     !LOCAL VARIABLES:
                0025
                0026       _BEGIN_MASTER( myThid )
                0027
                0028 #ifdef ALLOW_USE_MPI
                0029       IF ( mpiMyId.EQ.0 ) THEN
                0030 #endif
                0031
                0032         CALL embdec
                0033
                0034 #ifdef ALLOW_USE_MPI
                0035       ENDIF
                0036 #endif
                0037
                0038       _END_MASTER( myThid )
                0039
                0040       RETURN
                0041       END
                0042
                0043 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|