File indexing completed on 2024-03-02 06:10:36 UTC
view on githubraw file Latest commit 5cf43646 on 2024-03-01 18:50:49 UTC
444da61630 Mart*0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
2091ce7ee7 Patr*0016
444da61630 Mart*0017
2091ce7ee7 Patr*0018
0019 integer maxgrdchecks
0020 parameter ( maxgrdchecks = 4000 )
0021
0022 common /grdchkparms_r/
0023 & grdchk_eps
0024 _RL grdchk_eps
0025
b7ff4d81ac Patr*0026 common /grdchkparms_l/
0027 & useCentralDiff
0028 logical useCentralDiff
0029
2091ce7ee7 Patr*0030 common /grdchkparms_i/
0031 & nbeg,
0032 & nend,
0033 & nstep,
78a0e1cce7 Patr*0034 & grdchkvarindex,
f81d465bd0 Patr*0035 & grdchkwhichproc,
0036 & iGloPos,
0037 & jGloPos,
0038 & kGloPos,
3277dbf476 Jean*0039 & iLocTile,
0040 & jLocTile,
ec93986742 Patr*0041 & idep,
0042 & jdep,
f81d465bd0 Patr*0043 & obcsglo,
27067cb768 Patr*0044 & recglo,
0045 & iwetsum
f81d465bd0 Patr*0046
2091ce7ee7 Patr*0047 integer nbeg
0048 integer nend
0049 integer nstep
0050 integer grdchkvarindex
78a0e1cce7 Patr*0051 integer grdchkwhichproc
f81d465bd0 Patr*0052 integer iGloPos
0053 integer jGloPos
0054 integer kGloPos
3277dbf476 Jean*0055 integer iLocTile
0056 integer jLocTile
ec93986742 Patr*0057 integer idep
0058 integer jdep
f81d465bd0 Patr*0059 integer obcsglo
0060 integer recglo
444da61630 Mart*0061 integer iwetsum(nSx,nSy,0:Nr)
2091ce7ee7 Patr*0062
0063 common /grdchk_r/
22f0d78f5f Patr*0064 & fcrmem, fcppmem, fcpmmem,
2091ce7ee7 Patr*0065 & xxmemref, xxmempert,
22f0d78f5f Patr*0066 & gfdmem, adxxmem, ftlxxmem,
0067 & ratioadmem, ratioftlmem
0068 _RL fcrmem ( maxgrdchecks )
0069 _RL fcppmem ( maxgrdchecks )
0070 _RL fcpmmem ( maxgrdchecks )
0071 _RL xxmemref ( maxgrdchecks )
0072 _RL xxmempert ( maxgrdchecks )
0073 _RL gfdmem ( maxgrdchecks )
0074 _RL adxxmem ( maxgrdchecks )
0075 _RL ftlxxmem ( maxgrdchecks )
0076 _RL ratioadmem ( maxgrdchecks )
0077 _RL ratioftlmem ( maxgrdchecks )
2091ce7ee7 Patr*0078
5cf4364659 Mart*0079 common /grdchk_c/ grdchkvarname
0080 character*(MAX_LEN_FNAM) grdchkvarname
0081
2091ce7ee7 Patr*0082 common /grdchk_i/
0083 & ncvarcomp, maxncvarcomps,
0084 & nwettile,
0085 & irecmem,
0086 & bimem, bjmem,
7109a141b2 Patr*0087 & ilocmem,jlocmem,klocmem,iobcsmem,
e4b263335d Patr*0088 & ichkmem, icompmem, itestmem, ierrmem, icglomem
2091ce7ee7 Patr*0089 integer ncvarcomp
0090 integer maxncvarcomps
444da61630 Mart*0091 #ifdef ALLOW_OBCS_CONTROL
0092 integer nwettile( nSx,nSy,Nr,nobcs )
0093 #else
0094 integer nwettile( nSx,nSy,Nr, 1 )
0095 #endif
2091ce7ee7 Patr*0096 integer irecmem ( maxgrdchecks )
0097 integer bjmem ( maxgrdchecks )
0098 integer bimem ( maxgrdchecks )
0099 integer klocmem ( maxgrdchecks )
7109a141b2 Patr*0100 integer iobcsmem( maxgrdchecks )
2091ce7ee7 Patr*0101 integer jlocmem ( maxgrdchecks )
0102 integer ilocmem ( maxgrdchecks )
0103 integer ichkmem ( maxgrdchecks )
0104 integer icompmem( maxgrdchecks )
0105 integer itestmem( maxgrdchecks )
0106 integer ierrmem ( maxgrdchecks )
e4b263335d Patr*0107 integer icglomem( maxgrdchecks )
2091ce7ee7 Patr*0108
7109a141b2 Patr*0109 #ifdef ALLOW_OBCS_CONTROL
31a64ac75a Patr*0110 common /grdchk_obcs_mask_r/
0111 & grdchk_maskxz, grdchk_maskyz
444da61630 Mart*0112 _RL grdchk_maskxz(1-OLx:sNx+OLx,Nr,nSx,nSy,nobcs)
0113 _RL grdchk_maskyz(1-OLy:sNy+OLy,Nr,nSx,nSy,nobcs)
7109a141b2 Patr*0114 #endif
0115
444da61630 Mart*0116
0117
0118