1 MODULE corner 2 3 4 Use param 5 Use param1 6 7 8 ! 9 ! IJK indices of corner cells 10 INTEGER IJK_CORN (MAX_NCORN) 11 ! 12 ! Number of corner cells 13 INTEGER NCORN 14 15 16 END MODULE corner 17