1 ! these define the various loop range variables 2 ! that were defined in module_MPP. Defined as macros 3 ! here to allow thread-safety/tile callability 4 5 #define MY_IS(A,B) max(ids+(A),its-(B)) 6 #define MY_IE(A,B) min(ide-(A),ite+(B)) 7 #define MY_JS(A,B) max(jds+(A),jts-(B)) 8 #define MY_JE(A,B) min(jde-(A),jte+(B)) 9