1 MODULE corner 2 3 Use param1, only: max_ncorn 4 ! 5 ! IJK indices of corner cells 6 INTEGER IJK_CORN (MAX_NCORN) 7 ! 8 ! Number of corner cells 9 INTEGER NCORN 10 11 END MODULE corner 12