C $Header: /u/gcmpack/MITgcm/pkg/rw/RW_MFLDS.h,v 1.1 2007/10/22 13:20:07 jmc Exp $ C $Name: $ C !ROUTINE: RW_MFLDS.h C !INTERFACE: C include "RW_MFLDS.h" C !DESCRIPTION: C \bv C *==========================================================* C | RW_MFLDS.h C | o Variables used for reading Multi-Fields files (+ meta-file) C *==========================================================* C | This block allows to shared information across threads C | and between READ_MFLDS subroutines C *==========================================================* C \ev C sizFldList :: dimension of field-list arrays INTEGER sizFldList PARAMETER( sizFldList = 100 ) C-- COMMON / RW_MFLDS_I / Integer valued MFLDS variables. C thirdDim :: 3rd dimension of fields in current MFLDS file C nFl3D :: Number of 3-D fields in current MFLDS file C nFlds :: Number of fields (3D+2D) in current MFLDS file C nMissFld :: Number of missing fields (attempted to read but not found) COMMON / RW_MFLDS_I / & thirdDim, nFl3D, nFlds, nMissFld INTEGER thirdDim INTEGER nFl3D INTEGER nFlds INTEGER nMissFld C-- COMMON / RW_MFLDS_C / Character valued MFLDS variables. C mFldsFile :: current MFLDS file name C fldList :: list of fields in current MFLDS file C fldMiss :: list of missing fields (attempted to read but not found) COMMON / RW_MFLDS_C / & mFldsFile, fldList, fldMiss CHARACTER*(MAX_LEN_FNAM) mFldsFile CHARACTER*(8) fldList(sizFldList) CHARACTER*(8) fldMiss(sizFldList) C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|