Back to home page

MITgcm

 
 

    


File indexing completed on 2018-03-02 18:43:08 UTC

view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
8be8fc53ab Jean*0001 C     !ROUTINE: RW_MFLDS.h
                0002 C     !INTERFACE:
                0003 C     include "RW_MFLDS.h"
                0004 C     !DESCRIPTION:
                0005 C     \bv
                0006 C     *==========================================================*
                0007 C     | RW_MFLDS.h
                0008 C     | o Variables used for reading Multi-Fields files (+ meta-file)
                0009 C     *==========================================================*
                0010 C     | This block allows to shared information across threads
                0011 C     |  and between READ_MFLDS subroutines
                0012 C     *==========================================================*
                0013 C     \ev
                0014 
                0015 C     sizFldList :: dimension of field-list arrays
                0016       INTEGER  sizFldList
                0017       PARAMETER( sizFldList = 100 )
                0018 
                0019 C--   COMMON / RW_MFLDS_I / Integer valued MFLDS variables.
                0020 C     thirdDim  :: 3rd dimension of fields in current MFLDS file
                0021 C     nFl3D     :: Number of 3-D fields in current MFLDS file
                0022 C     nFlds     :: Number of fields (3D+2D) in current MFLDS file
                0023 C     nMissFld  :: Number of missing fields (attempted to read but not found)
                0024       COMMON / RW_MFLDS_I /
                0025      &        thirdDim, nFl3D, nFlds, nMissFld
                0026 
                0027       INTEGER thirdDim
                0028       INTEGER nFl3D
                0029       INTEGER nFlds
                0030       INTEGER nMissFld
                0031 
                0032 C--   COMMON / RW_MFLDS_C / Character valued MFLDS variables.
                0033 C     mFldsFile :: current MFLDS file name
                0034 C     fldList   :: list of fields in current MFLDS file
                0035 C     fldMiss   :: list of missing fields (attempted to read but not found)
                0036       COMMON / RW_MFLDS_C /
                0037      &        mFldsFile, fldList, fldMiss
                0038       CHARACTER*(MAX_LEN_FNAM) mFldsFile
                0039       CHARACTER*(8) fldList(sizFldList)
                0040       CHARACTER*(8) fldMiss(sizFldList)
                0041 
                0042 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|