pro GetImageBounds, ModelChosen, LatMin, LatMax, LongMin, LongMax LatMin = 0 LatMax = 0 LongMin = 0 LongMax = 0 ; print*, " > 1. obs (Hulme) 2. ECHam4-OPYC3" ; print*, " > 3. HadCM2 4. HadCM3" ; print*, " > 5. CGCM1 6. CSIRO" ; print*, " > 7. CCSR-NIES 8. ECHam3-LSG" ; print*, " > 9. GFDL 10. NCAR-CGCM" ; print*, " > 11. NCAR-PCM3 12. 0.5" ; print*, " > 13. 10' Europe 14. 0.5 Europe" ; print*, " > 15. 10' ATEAM 16. ReGrid x 2" ; print*, " > 17. 10' Britain 18. Richard Jones" ; print*, " > 19. h2grid(=Had2) 20. 5km NatGrid" ; print, " > 21. 5km NG cut 22. 5.0 degrees" ; print, " > 23. 2.5 degrees" if (ModelChosen EQ 3) then begin LatMin = -90.00 LatMax = 90.00 LongMin = -180.00 LongMax = 176.25 endif else if (ModelChosen EQ 4) then begin LatMin = -90.00 LatMax = 90.00 LongMin = -180.00 LongMax = 176.25 endif else if (ModelChosen EQ 12) then begin LatMin = -90.00 LatMax = 89.50 LongMin = -180.00 LongMax = 179.50 endif else if (ModelChosen EQ 13) then begin LatMin = 30.00 LatMax = 82.17 LongMin = -20.00 LongMax = 60.00 endif else if (ModelChosen EQ 14) then begin LatMin = 30.00 LatMax = 83.00 LongMin = -20.00 LongMax = 60.00 endif else if (ModelChosen EQ 15) then begin LatMin = 34.00 LatMax = 72.00 LongMin = -11.00 LongMax = 32.00 endif else if (ModelChosen EQ 16) then begin LatMin = -89.375 LatMax = 89.375 LongMin = -180.000 LongMax = 178.125 endif else if (ModelChosen EQ 17) then begin LatMin = 49.000 LatMax = 61.000 LongMin = -11.000 LongMax = 2.333 endif else if (ModelChosen EQ 18) then begin LatMin = -90.000 LatMax = 90.000 LongMin = -180.000 LongMax = 177.500 endif else if (ModelChosen EQ 19) then begin LatMin = -90.00 LatMax = 90.00 LongMin = -180.00 LongMax = 176.25 endif else if (ModelChosen EQ 20) then begin LatMin = 47.82 LatMax = 61.02 LongMin = -10.02 LongMax = 3.56 endif else if (ModelChosen EQ 22) then begin LatMin = -90.00 LatMax = 87.50 LongMin = -180.00 LongMax = 177.50 endif else begin print, " > ##### ERROR: GetImageBounds: no model, gonna crash soon #####" endelse end