Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:39:42 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
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-|--+----|