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 UTC8be8fc53ab 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-|--+----|
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |
|