File indexing completed on 2018-03-02 18:43:05 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
aa076db465 Ed H*0001
0002 LOGICAL regridisON
0003 LOGICAL regrid_MNC
0004 LOGICAL regrid_MDSIO
0005 COMMON /REGRID_PACKAGE/
0006 & regridisON, regrid_MNC, regrid_MDSIO
0007
0008
0009
0010
0011 INTEGER regrid_ngrids
0012 COMMON /REGRID_PARAM_I/
0013 & regrid_ngrids
0014
0015
0016 CHARACTER*(MAX_LEN_FNAM) regrid_fbname_in(REGRID_NGRID_MAX)
0017 CHARACTER*(MAX_LEN_FNAM) regrid_fbname_out(REGRID_NGRID_MAX)
0018 COMMON /REGRID_CHAR/
0019 & regrid_fbname_in, regrid_fbname_out
0020
0021
0022
0023
0024 _RL regrid_amat(REGRID_NELEM_MAX,nSx,nSy)
0025 COMMON /REGRID_RL/
0026 & regrid_amat
0027
0028
0029 INTEGER regrid_ibeg(REGRID_NGRID_MAX,nSx,nSy)
0030 INTEGER regrid_iend(REGRID_NGRID_MAX,nSx,nSy)
0031 INTEGER regrid_nout(REGRID_NGRID_MAX)
0032 INTEGER regrid_i_loc(REGRID_NELEM_MAX,nSx,nSy)
0033 INTEGER regrid_j_loc(REGRID_NELEM_MAX,nSx,nSy)
0034 INTEGER regrid_i_out(REGRID_NELEM_MAX,nSx,nSy)
0035 COMMON /REGRID_RL/
0036 & regrid_ibeg, regrid_iend, regrid_nout,
0037 & regrid_i_loc, regrid_j_loc,
0038 & regrid_i_out
0039
0040
0041
0042
0043