Back to home page

MITgcm

 
 

    


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 C     Package flags
                0002       LOGICAL regridisON
                0003       LOGICAL regrid_MNC
                0004       LOGICAL regrid_MDSIO
                0005       COMMON /REGRID_PACKAGE/
                0006      &     regridisON, regrid_MNC, regrid_MDSIO
                0007 
                0008 
                0009 C     =====  Parameters  =====
                0010 C     Integer
                0011       INTEGER regrid_ngrids
                0012       COMMON /REGRID_PARAM_I/
                0013      &     regrid_ngrids
                0014 
                0015 C     Character
                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 C     =====  DATA  =====
                0023 C     Real
                0024       _RL regrid_amat(REGRID_NELEM_MAX,nSx,nSy)
                0025       COMMON /REGRID_RL/
                0026      &     regrid_amat
                0027 
                0028 C     Integer
                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 CEH3 ;;; Local Variables: ***
                0042 CEH3 ;;; mode:fortran ***
                0043 CEH3 ;;; End: ***