darwin3 |
|
|
|
|||
File indexing completed on 2024-12-17 18:34:07 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC67d6b2434f Jean*0001 CBOP 0002 C !ROUTINE: DIAGSTATS_REGIONS.h 0003 C !INTERFACE: 0004 C include "DIAGSTATS_REGIONS.h" 0005 C !DESCRIPTION: 0006 C \bv 0007 C *==========================================================* 0008 C | DIAGSTATS_REGIONS.h 0009 C | o Hold Regions definition variables used for 0010 C | regional statistics diagnostics 0011 C *==========================================================* 0012 C *==========================================================* 0013 C \ev 0014 CEOP 0015 0016 C DIAG_STATS_REGMASK common block: 0017 C diagSt_regMask :: region mask 02e1437ea2 Jean*0018 C diagSt_kRegMsk :: region-mask set-index that identifies the region ca10285501 Jean*0019 C diagSt_vRegMsk :: region identifier value in the region mask 67d6b2434f Jean*0020 C (point i,j belong to region "n" <=> regMask(i,j,kRegMsk(n)) = vRegMsk(n)) 0021 0022 #ifdef DIAGSTATS_REGION_MASK 0023 _RS diagSt_regMask(1-OLx:sNx+Olx,1-Oly:sNy+Oly, 0024 & sizRegMsk,nSx,nSy) 0025 #else 0026 _RS diagSt_regMask(1-Olx:1-Olx,1-Oly:1-Oly,1,nSx,nSy) 0027 c _RS diagSt_regMask(1-OLx:sNx+Olx,1-Oly:sNy+Oly,1,nSx,nSy) 0028 #endif /* DIAGSTATS_REGION_MASK */ 0029 _RS diagSt_vRegMsk(0:nRegions) 0030 INTEGER diagSt_kRegMsk(0:nRegions) 02e1437ea2 Jean*0031 INTEGER nSetRegMskFile, nSetRegMask 67d6b2434f Jean*0032 CHARACTER*(MAX_LEN_FNAM) diagSt_regMaskFile 0033 COMMON / DIAG_STATS_REGMASK / 0034 & diagSt_regMask, 0035 & diagSt_vRegMsk, 02e1437ea2 Jean*0036 & diagSt_kRegMsk, nSetRegMask, 0037 & nSetRegMskFile, diagSt_regMaskFile 67d6b2434f Jean*0038 0039 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/darwinproject/darwin3 by the 2.3.7-MITgcm-0.1 LXR engine. The LXR team |
|