R/area_isoparalitoral.R

Defines functions area_isoparalitoral

Documented in area_isoparalitoral

area_isoparalitoral <- function(dist_costa,latitude)
{
  areaISO <- rep(NA, length(dist_costa))
  dc      <- rep(NA, length(dist_costa))
  lat     <- rep(NA, length(dist_costa))
  
  dc[dist_costa<=10] <- 10
  dc[dist_costa>10&dist_costa<=20] <- 20
  dc[dist_costa>20&dist_costa<=30] <- 30
  dc[dist_costa>30&dist_costa<=40] <- 40
  dc[dist_costa>40&dist_costa<=50] <- 50
  dc[dist_costa>50&dist_costa<=60] <- 60
  dc[dist_costa>60&dist_costa<=70] <- 70
  dc[dist_costa>70&dist_costa<=80] <- 80
  dc[dist_costa>80&dist_costa<=90] <- 90
  dc[dist_costa>90&dist_costa<=100] <- 100
  dc[dist_costa>100&dist_costa<=110] <- 110
  dc[dist_costa>110&dist_costa<=120] <- 120
  dc[dist_costa>120&dist_costa<=130] <- 130
  dc[dist_costa>130&dist_costa<=140] <- 140
  dc[dist_costa>140&dist_costa<=150] <- 150
  dc[dist_costa>150&dist_costa<=160] <- 160
  dc[dist_costa>160&dist_costa<=170] <- 170
  dc[dist_costa>170&dist_costa<=180] <- 180
  dc[dist_costa>180&dist_costa<=190] <- 190
  dc[dist_costa>190&dist_costa<=200] <- 200
  #
  lat[latitude> -3.5] <- 3
  lat[latitude<= -3.5 & latitude> -4] <- 3.5
  lat[latitude<= -4   & latitude> -4.5] <- 4
  lat[latitude <= -4.5 & latitude> -5] <- 4.5
  lat[latitude <= -5   & latitude> -5.5] <- 5
  lat[latitude <= -5.5 & latitude> -6] <- 5.5
  lat[latitude <= -6   & latitude> -6.5] <- 6
  lat[latitude <= -6.5 & latitude> -7] <- 6.5
  lat[latitude <= -7   & latitude> -7.5] <- 7
  lat[latitude <= -7.5 & latitude> -8] <- 7.5
  lat[latitude <= -8   & latitude> -8.5] <- 8
  lat[latitude <= -8.5 & latitude> -9] <- 8.5
  lat[latitude <= -9   & latitude> -9.5] <- 9
  lat[latitude <= -9.5 & latitude> -10] <- 9.5
  lat[latitude <= -10  & latitude> -10.5] <- 10
  lat[latitude <= -10.5 & latitude> -11] <- 10.5
  lat[latitude <= -11   & latitude> -11.5] <- 11
  lat[latitude <= -11.5 & latitude> -12] <- 11.5
  lat[latitude <= -12   & latitude> -12.5] <- 12
  lat[latitude <= -12.5 & latitude> -13] <- 12.5
  lat[latitude <= -13   & latitude> -13.5] <- 13
  lat[latitude <= -13.5 & latitude> -14] <- 13.5
  lat[latitude <= -14   & latitude> -14.5] <- 14
  lat[latitude <= -14.5 & latitude> -15] <- 14.5
  lat[latitude <= -15   & latitude> -15.5] <- 15
  lat[latitude <= -15.5 & latitude> -16] <- 15.5
  lat[latitude <= -16   & latitude> -16.5] <- 16
  lat[latitude <= -16.5 & latitude> -17] <- 16.5
  lat[latitude <= -17   & latitude> -17.5] <- 17
  lat[latitude <= -17.5 & latitude> -18] <- 17.5
  lat[latitude <= -18   & latitude> -18.5] <- 18
  lat[latitude <= -18.5  & latitude> -19] <- 18.5
  #
  areaISO[dc==10&lat==3] <- 1030
  areaISO[dc==20&lat==3] <- 2030
  areaISO[dc==30&lat==3] <- 3030
  areaISO[dc==40&lat==3] <- 4030
  areaISO[dc==50&lat==3] <- 5030
  areaISO[dc==60&lat==3] <- 6030
  areaISO[dc==70&lat==3] <- 7030
  areaISO[dc==80&lat==3] <- 8030
  areaISO[dc==90&lat==3] <- 9030
  areaISO[dc==100&lat==3] <- 10030
  areaISO[dc==110&lat==3] <- 11030
  areaISO[dc==120&lat==3] <- 12030
  areaISO[dc==130&lat==3] <- 13030
  areaISO[dc==140&lat==3] <- 14030
  areaISO[dc==150&lat==3] <- 15030
  areaISO[dc==160&lat==3] <- 16030
  areaISO[dc==170&lat==3] <- 17030
  areaISO[dc==180&lat==3] <- 18030
  areaISO[dc==190&lat==3] <- 19030
  areaISO[dc==200&lat==3] <- 20030
  areaISO[dc==10&lat==3.5] <- 1033
  areaISO[dc==20&lat==3.5] <- 2033
  areaISO[dc==30&lat==3.5] <- 3033
  areaISO[dc==40&lat==3.5] <- 4033
  areaISO[dc==50&lat==3.5] <- 5033
  areaISO[dc==60&lat==3.5] <- 6033
  areaISO[dc==70&lat==3.5] <- 7033
  areaISO[dc==80&lat==3.5] <- 8033
  areaISO[dc==90&lat==3.5] <- 9033
  areaISO[dc==100&lat==3.5] <- 10033
  areaISO[dc==110&lat==3.5] <- 11033
  areaISO[dc==120&lat==3.5] <- 12033
  areaISO[dc==130&lat==3.5] <- 13033
  areaISO[dc==140&lat==3.5] <- 14033
  areaISO[dc==150&lat==3.5] <- 15033
  areaISO[dc==160&lat==3.5] <- 16033
  areaISO[dc==170&lat==3.5] <- 17033
  areaISO[dc==180&lat==3.5] <- 18033
  areaISO[dc==190&lat==3.5] <- 19033
  areaISO[dc==200&lat==3.5] <- 20033
  areaISO[dc==10&lat==4] <- 1040
  areaISO[dc==20&lat==4] <- 2040
  areaISO[dc==30&lat==4] <- 3040
  areaISO[dc==40&lat==4] <- 4040
  areaISO[dc==50&lat==4] <- 5040
  areaISO[dc==60&lat==4] <- 6040
  areaISO[dc==70&lat==4] <- 7040
  areaISO[dc==80&lat==4] <- 8040
  areaISO[dc==90&lat==4] <- 9040
  areaISO[dc==100&lat==4] <- 10040
  areaISO[dc==110&lat==4] <- 11040
  areaISO[dc==120&lat==4] <- 12040
  areaISO[dc==130&lat==4] <- 13040
  areaISO[dc==140&lat==4] <- 14040
  areaISO[dc==150&lat==4] <- 15040
  areaISO[dc==160&lat==4] <- 16040
  areaISO[dc==170&lat==4] <- 17040
  areaISO[dc==180&lat==4] <- 18040
  areaISO[dc==190&lat==4] <- 19040
  areaISO[dc==200&lat==4] <- 20040
  areaISO[dc==10&lat==4.5] <- 1043
  areaISO[dc==20&lat==4.5] <- 2043
  areaISO[dc==30&lat==4.5] <- 3043
  areaISO[dc==40&lat==4.5] <- 4043
  areaISO[dc==50&lat==4.5] <- 5043
  areaISO[dc==60&lat==4.5] <- 6043
  areaISO[dc==70&lat==4.5] <- 7043
  areaISO[dc==80&lat==4.5] <- 8043
  areaISO[dc==90&lat==4.5] <- 9043
  areaISO[dc==100&lat==4.5] <- 10043
  areaISO[dc==110&lat==4.5] <- 11043
  areaISO[dc==120&lat==4.5] <- 12043
  areaISO[dc==130&lat==4.5] <- 13043
  areaISO[dc==140&lat==4.5] <- 14043
  areaISO[dc==150&lat==4.5] <- 15043
  areaISO[dc==160&lat==4.5] <- 16043
  areaISO[dc==170&lat==4.5] <- 17043
  areaISO[dc==180&lat==4.5] <- 18043
  areaISO[dc==190&lat==4.5] <- 19043
  areaISO[dc==200&lat==4.5] <- 20043
  areaISO[dc==10&lat==5] <- 1050
  areaISO[dc==20&lat==5] <- 2050
  areaISO[dc==30&lat==5] <- 3050
  areaISO[dc==40&lat==5] <- 4050
  areaISO[dc==50&lat==5] <- 5050
  areaISO[dc==60&lat==5] <- 6050
  areaISO[dc==70&lat==5] <- 7050
  areaISO[dc==80&lat==5] <- 8050
  areaISO[dc==90&lat==5] <- 9050
  areaISO[dc==100&lat==5] <- 10050
  areaISO[dc==110&lat==5] <- 11050
  areaISO[dc==120&lat==5] <- 12050
  areaISO[dc==130&lat==5] <- 13050
  areaISO[dc==140&lat==5] <- 14050
  areaISO[dc==150&lat==5] <- 15050
  areaISO[dc==160&lat==5] <- 16050
  areaISO[dc==170&lat==5] <- 17050
  areaISO[dc==180&lat==5] <- 18050
  areaISO[dc==190&lat==5] <- 19050
  areaISO[dc==200&lat==5] <- 20050
  areaISO[dc==10&lat==5.5] <- 1053
  areaISO[dc==20&lat==5.5] <- 2053
  areaISO[dc==30&lat==5.5] <- 3053
  areaISO[dc==40&lat==5.5] <- 4053
  areaISO[dc==50&lat==5.5] <- 5053
  areaISO[dc==60&lat==5.5] <- 6053
  areaISO[dc==70&lat==5.5] <- 7053
  areaISO[dc==80&lat==5.5] <- 8053
  areaISO[dc==90&lat==5.5] <- 9053
  areaISO[dc==100&lat==5.5] <- 10053
  areaISO[dc==110&lat==5.5] <- 11053
  areaISO[dc==120&lat==5.5] <- 12053
  areaISO[dc==130&lat==5.5] <- 13053
  areaISO[dc==140&lat==5.5] <- 14053
  areaISO[dc==150&lat==5.5] <- 15053
  areaISO[dc==160&lat==5.5] <- 16053
  areaISO[dc==170&lat==5.5] <- 17053
  areaISO[dc==180&lat==5.5] <- 18053
  areaISO[dc==190&lat==5.5] <- 19053
  areaISO[dc==200&lat==5.5] <- 20053
  areaISO[dc==10&lat==6] <- 1060
  areaISO[dc==20&lat==6] <- 2060
  areaISO[dc==30&lat==6] <- 3060
  areaISO[dc==40&lat==6] <- 4060
  areaISO[dc==50&lat==6] <- 5060
  areaISO[dc==60&lat==6] <- 6060
  areaISO[dc==70&lat==6] <- 7060
  areaISO[dc==80&lat==6] <- 8060
  areaISO[dc==90&lat==6] <- 9060
  areaISO[dc==100&lat==6] <- 10060
  areaISO[dc==110&lat==6] <- 11060
  areaISO[dc==120&lat==6] <- 12060
  areaISO[dc==130&lat==6] <- 13060
  areaISO[dc==140&lat==6] <- 14060
  areaISO[dc==150&lat==6] <- 15060
  areaISO[dc==160&lat==6] <- 16060
  areaISO[dc==170&lat==6] <- 17060
  areaISO[dc==180&lat==6] <- 18060
  areaISO[dc==190&lat==6] <- 19060
  areaISO[dc==200&lat==6] <- 20060
  areaISO[dc==10&lat==6.5] <- 1063
  areaISO[dc==20&lat==6.5] <- 2063
  areaISO[dc==30&lat==6.5] <- 3063
  areaISO[dc==40&lat==6.5] <- 4063
  areaISO[dc==50&lat==6.5] <- 5063
  areaISO[dc==60&lat==6.5] <- 6063
  areaISO[dc==70&lat==6.5] <- 7063
  areaISO[dc==80&lat==6.5] <- 8063
  areaISO[dc==90&lat==6.5] <- 9063
  areaISO[dc==100&lat==6.5] <- 10063
  areaISO[dc==110&lat==6.5] <- 11063
  areaISO[dc==120&lat==6.5] <- 12063
  areaISO[dc==130&lat==6.5] <- 13063
  areaISO[dc==140&lat==6.5] <- 14063
  areaISO[dc==150&lat==6.5] <- 15063
  areaISO[dc==160&lat==6.5] <- 16063
  areaISO[dc==170&lat==6.5] <- 17063
  areaISO[dc==180&lat==6.5] <- 18063
  areaISO[dc==190&lat==6.5] <- 19063
  areaISO[dc==200&lat==6.5] <- 20063
  areaISO[dc==10&lat==7] <- 1070
  areaISO[dc==20&lat==7] <- 2070
  areaISO[dc==30&lat==7] <- 3070
  areaISO[dc==40&lat==7] <- 4070
  areaISO[dc==50&lat==7] <- 5070
  areaISO[dc==60&lat==7] <- 6070
  areaISO[dc==70&lat==7] <- 7070
  areaISO[dc==80&lat==7] <- 8070
  areaISO[dc==90&lat==7] <- 9070
  areaISO[dc==100&lat==7] <- 10070
  areaISO[dc==110&lat==7] <- 11070
  areaISO[dc==120&lat==7] <- 12070
  areaISO[dc==130&lat==7] <- 13070
  areaISO[dc==140&lat==7] <- 14070
  areaISO[dc==150&lat==7] <- 15070
  areaISO[dc==160&lat==7] <- 16070
  areaISO[dc==170&lat==7] <- 17070
  areaISO[dc==180&lat==7] <- 18070
  areaISO[dc==190&lat==7] <- 19070
  areaISO[dc==200&lat==7] <- 20070
  areaISO[dc==10&lat==7.5] <- 1073
  areaISO[dc==20&lat==7.5] <- 2073
  areaISO[dc==30&lat==7.5] <- 3073
  areaISO[dc==40&lat==7.5] <- 4073
  areaISO[dc==50&lat==7.5] <- 5073
  areaISO[dc==60&lat==7.5] <- 6073
  areaISO[dc==70&lat==7.5] <- 7073
  areaISO[dc==80&lat==7.5] <- 8073
  areaISO[dc==90&lat==7.5] <- 9073
  areaISO[dc==100&lat==7.5] <- 10073
  areaISO[dc==110&lat==7.5] <- 11073
  areaISO[dc==120&lat==7.5] <- 12073
  areaISO[dc==130&lat==7.5] <- 13073
  areaISO[dc==140&lat==7.5] <- 14073
  areaISO[dc==150&lat==7.5] <- 15073
  areaISO[dc==160&lat==7.5] <- 16073
  areaISO[dc==170&lat==7.5] <- 17073
  areaISO[dc==180&lat==7.5] <- 18073
  areaISO[dc==190&lat==7.5] <- 19073
  areaISO[dc==200&lat==7.5] <- 20073
  areaISO[dc==10&lat==8] <- 1080
  areaISO[dc==20&lat==8] <- 2080
  areaISO[dc==30&lat==8] <- 3080
  areaISO[dc==40&lat==8] <- 4080
  areaISO[dc==50&lat==8] <- 5080
  areaISO[dc==60&lat==8] <- 6080
  areaISO[dc==70&lat==8] <- 7080
  areaISO[dc==80&lat==8] <- 8080
  areaISO[dc==90&lat==8] <- 9080
  areaISO[dc==100&lat==8] <- 10080
  areaISO[dc==110&lat==8] <- 11080
  areaISO[dc==120&lat==8] <- 12080
  areaISO[dc==130&lat==8] <- 13080
  areaISO[dc==140&lat==8] <- 14080
  areaISO[dc==150&lat==8] <- 15080
  areaISO[dc==160&lat==8] <- 16080
  areaISO[dc==170&lat==8] <- 17080
  areaISO[dc==180&lat==8] <- 18080
  areaISO[dc==190&lat==8] <- 19080
  areaISO[dc==200&lat==8] <- 20080
  areaISO[dc==10&lat==8.5] <- 1083
  areaISO[dc==20&lat==8.5] <- 2083
  areaISO[dc==30&lat==8.5] <- 3083
  areaISO[dc==40&lat==8.5] <- 4083
  areaISO[dc==50&lat==8.5] <- 5083
  areaISO[dc==60&lat==8.5] <- 6083
  areaISO[dc==70&lat==8.5] <- 7083
  areaISO[dc==80&lat==8.5] <- 8083
  areaISO[dc==90&lat==8.5] <- 9083
  areaISO[dc==100&lat==8.5] <- 10083
  areaISO[dc==110&lat==8.5] <- 11083
  areaISO[dc==120&lat==8.5] <- 12083
  areaISO[dc==130&lat==8.5] <- 13083
  areaISO[dc==140&lat==8.5] <- 14083
  areaISO[dc==150&lat==8.5] <- 15083
  areaISO[dc==160&lat==8.5] <- 16083
  areaISO[dc==170&lat==8.5] <- 17083
  areaISO[dc==180&lat==8.5] <- 18083
  areaISO[dc==190&lat==8.5] <- 19083
  areaISO[dc==200&lat==8.5] <- 20083
  areaISO[dc==10&lat==9] <- 1090
  areaISO[dc==20&lat==9] <- 2090
  areaISO[dc==30&lat==9] <- 3090
  areaISO[dc==40&lat==9] <- 4090
  areaISO[dc==50&lat==9] <- 5090
  areaISO[dc==60&lat==9] <- 6090
  areaISO[dc==70&lat==9] <- 7090
  areaISO[dc==80&lat==9] <- 8090
  areaISO[dc==90&lat==9] <- 9090
  areaISO[dc==100&lat==9] <- 10090
  areaISO[dc==110&lat==9] <- 11090
  areaISO[dc==120&lat==9] <- 12090
  areaISO[dc==130&lat==9] <- 13090
  areaISO[dc==140&lat==9] <- 14090
  areaISO[dc==150&lat==9] <- 15090
  areaISO[dc==160&lat==9] <- 16090
  areaISO[dc==170&lat==9] <- 17090
  areaISO[dc==180&lat==9] <- 18090
  areaISO[dc==190&lat==9] <- 19090
  areaISO[dc==200&lat==9] <- 20090
  areaISO[dc==10&lat==9.5] <- 1093
  areaISO[dc==20&lat==9.5] <- 2093
  areaISO[dc==30&lat==9.5] <- 3093
  areaISO[dc==40&lat==9.5] <- 4093
  areaISO[dc==50&lat==9.5] <- 5093
  areaISO[dc==60&lat==9.5] <- 6093
  areaISO[dc==70&lat==9.5] <- 7093
  areaISO[dc==80&lat==9.5] <- 8093
  areaISO[dc==90&lat==9.5] <- 9093
  areaISO[dc==100&lat==9.5] <- 10093
  areaISO[dc==110&lat==9.5] <- 11093
  areaISO[dc==120&lat==9.5] <- 12093
  areaISO[dc==130&lat==9.5] <- 13093
  areaISO[dc==140&lat==9.5] <- 14093
  areaISO[dc==150&lat==9.5] <- 15093
  areaISO[dc==160&lat==9.5] <- 16093
  areaISO[dc==170&lat==9.5] <- 17093
  areaISO[dc==180&lat==9.5] <- 18093
  areaISO[dc==190&lat==9.5] <- 19093
  areaISO[dc==200&lat==9.5] <- 20093
  areaISO[dc==10&lat==10] <- 1100
  areaISO[dc==20&lat==10] <- 2100
  areaISO[dc==30&lat==10] <- 3100
  areaISO[dc==40&lat==10] <- 4100
  areaISO[dc==50&lat==10] <- 5100
  areaISO[dc==60&lat==10] <- 6100
  areaISO[dc==70&lat==10] <- 7100
  areaISO[dc==80&lat==10] <- 8100
  areaISO[dc==90&lat==10] <- 9100
  areaISO[dc==100&lat==10] <- 10100
  areaISO[dc==110&lat==10] <- 11100
  areaISO[dc==120&lat==10] <- 12100
  areaISO[dc==130&lat==10] <- 13100
  areaISO[dc==140&lat==10] <- 14100
  areaISO[dc==150&lat==10] <- 15100
  areaISO[dc==160&lat==10] <- 16100
  areaISO[dc==170&lat==10] <- 17100
  areaISO[dc==180&lat==10] <- 18100
  areaISO[dc==190&lat==10] <- 19100
  areaISO[dc==200&lat==10] <- 20100
  areaISO[dc==10&lat==10.5] <- 1103
  areaISO[dc==20&lat==10.5] <- 2103
  areaISO[dc==30&lat==10.5] <- 3103
  areaISO[dc==40&lat==10.5] <- 4103
  areaISO[dc==50&lat==10.5] <- 5103
  areaISO[dc==60&lat==10.5] <- 6103
  areaISO[dc==70&lat==10.5] <- 7103
  areaISO[dc==80&lat==10.5] <- 8103
  areaISO[dc==90&lat==10.5] <- 9103
  areaISO[dc==100&lat==10.5] <- 10103
  areaISO[dc==110&lat==10.5] <- 11103
  areaISO[dc==120&lat==10.5] <- 12103
  areaISO[dc==130&lat==10.5] <- 13103
  areaISO[dc==140&lat==10.5] <- 14103
  areaISO[dc==150&lat==10.5] <- 15103
  areaISO[dc==160&lat==10.5] <- 16103
  areaISO[dc==170&lat==10.5] <- 17103
  areaISO[dc==180&lat==10.5] <- 18103
  areaISO[dc==190&lat==10.5] <- 19103
  areaISO[dc==200&lat==10.5] <- 20103
  areaISO[dc==10&lat==11] <- 1110
  areaISO[dc==20&lat==11] <- 2110
  areaISO[dc==30&lat==11] <- 3110
  areaISO[dc==40&lat==11] <- 4110
  areaISO[dc==50&lat==11] <- 5110
  areaISO[dc==60&lat==11] <- 6110
  areaISO[dc==70&lat==11] <- 7110
  areaISO[dc==80&lat==11] <- 8110
  areaISO[dc==90&lat==11] <- 9110
  areaISO[dc==100&lat==11] <- 10110
  areaISO[dc==110&lat==11] <- 11110
  areaISO[dc==120&lat==11] <- 12110
  areaISO[dc==130&lat==11] <- 13110
  areaISO[dc==140&lat==11] <- 14110
  areaISO[dc==150&lat==11] <- 15110
  areaISO[dc==160&lat==11] <- 16110
  areaISO[dc==170&lat==11] <- 17110
  areaISO[dc==180&lat==11] <- 18110
  areaISO[dc==190&lat==11] <- 19110
  areaISO[dc==200&lat==11] <- 20110
  areaISO[dc==10&lat==11.5] <- 1113
  areaISO[dc==20&lat==11.5] <- 2113
  areaISO[dc==30&lat==11.5] <- 3113
  areaISO[dc==40&lat==11.5] <- 4113
  areaISO[dc==50&lat==11.5] <- 5113
  areaISO[dc==60&lat==11.5] <- 6113
  areaISO[dc==70&lat==11.5] <- 7113
  areaISO[dc==80&lat==11.5] <- 8113
  areaISO[dc==90&lat==11.5] <- 9113
  areaISO[dc==100&lat==11.5] <- 10113
  areaISO[dc==110&lat==11.5] <- 11113
  areaISO[dc==120&lat==11.5] <- 12113
  areaISO[dc==130&lat==11.5] <- 13113
  areaISO[dc==140&lat==11.5] <- 14113
  areaISO[dc==150&lat==11.5] <- 15113
  areaISO[dc==160&lat==11.5] <- 16113
  areaISO[dc==170&lat==11.5] <- 17113
  areaISO[dc==180&lat==11.5] <- 18113
  areaISO[dc==190&lat==11.5] <- 19113
  areaISO[dc==200&lat==11.5] <- 20113
  areaISO[dc==10&lat==12] <- 1120
  areaISO[dc==20&lat==12] <- 2120
  areaISO[dc==30&lat==12] <- 3120
  areaISO[dc==40&lat==12] <- 4120
  areaISO[dc==50&lat==12] <- 5120
  areaISO[dc==60&lat==12] <- 6120
  areaISO[dc==70&lat==12] <- 7120
  areaISO[dc==80&lat==12] <- 8120
  areaISO[dc==90&lat==12] <- 9120
  areaISO[dc==100&lat==12] <- 10120
  areaISO[dc==110&lat==12] <- 11120
  areaISO[dc==120&lat==12] <- 12120
  areaISO[dc==130&lat==12] <- 13120
  areaISO[dc==140&lat==12] <- 14120
  areaISO[dc==150&lat==12] <- 15120
  areaISO[dc==160&lat==12] <- 16120
  areaISO[dc==170&lat==12] <- 17120
  areaISO[dc==180&lat==12] <- 18120
  areaISO[dc==190&lat==12] <- 19120
  areaISO[dc==200&lat==12] <- 20120
  areaISO[dc==10&lat==12.5] <- 1123
  areaISO[dc==20&lat==12.5] <- 2123
  areaISO[dc==30&lat==12.5] <- 3123
  areaISO[dc==40&lat==12.5] <- 4123
  areaISO[dc==50&lat==12.5] <- 5123
  areaISO[dc==60&lat==12.5] <- 6123
  areaISO[dc==70&lat==12.5] <- 7123
  areaISO[dc==80&lat==12.5] <- 8123
  areaISO[dc==90&lat==12.5] <- 9123
  areaISO[dc==100&lat==12.5] <- 10123
  areaISO[dc==110&lat==12.5] <- 11123
  areaISO[dc==120&lat==12.5] <- 12123
  areaISO[dc==130&lat==12.5] <- 13123
  areaISO[dc==140&lat==12.5] <- 14123
  areaISO[dc==150&lat==12.5] <- 15123
  areaISO[dc==160&lat==12.5] <- 16123
  areaISO[dc==170&lat==12.5] <- 17123
  areaISO[dc==180&lat==12.5] <- 18123
  areaISO[dc==190&lat==12.5] <- 19123
  areaISO[dc==200&lat==12.5] <- 20123
  areaISO[dc==10&lat==13] <- 1130
  areaISO[dc==20&lat==13] <- 2130
  areaISO[dc==30&lat==13] <- 3130
  areaISO[dc==40&lat==13] <- 4130
  areaISO[dc==50&lat==13] <- 5130
  areaISO[dc==60&lat==13] <- 6123
  areaISO[dc==70&lat==13] <- 7123
  areaISO[dc==80&lat==13] <- 8123
  areaISO[dc==90&lat==13] <- 9123
  areaISO[dc==100&lat==13] <- 10130
  areaISO[dc==110&lat==13] <- 11130
  areaISO[dc==120&lat==13] <- 12130
  areaISO[dc==130&lat==13] <- 13130
  areaISO[dc==140&lat==13] <- 14130
  areaISO[dc==150&lat==13] <- 15130
  areaISO[dc==160&lat==13] <- 16130
  areaISO[dc==170&lat==13] <- 17130
  areaISO[dc==180&lat==13] <- 18130
  areaISO[dc==190&lat==13] <- 19130
  areaISO[dc==200&lat==13] <- 20130
  areaISO[dc==10&lat==13.5] <- 1133
  areaISO[dc==20&lat==13.5] <- 2133
  areaISO[dc==30&lat==13.5] <- 3133
  areaISO[dc==40&lat==13.5] <- 4133
  areaISO[dc==50&lat==13.5] <- 5133
  areaISO[dc==60&lat==13.5] <- 6133
  areaISO[dc==70&lat==13.5] <- 7133
  areaISO[dc==80&lat==13.5] <- 8133
  areaISO[dc==90&lat==13.5] <- 9133
  areaISO[dc==100&lat==13.5] <- 10133
  areaISO[dc==110&lat==13.5] <- 11133
  areaISO[dc==120&lat==13.5] <- 12133
  areaISO[dc==130&lat==13.5] <- 13133
  areaISO[dc==140&lat==13.5] <- 14133
  areaISO[dc==150&lat==13.5] <- 15133
  areaISO[dc==160&lat==13.5] <- 16133
  areaISO[dc==170&lat==13.5] <- 17133
  areaISO[dc==180&lat==13.5] <- 18133
  areaISO[dc==190&lat==13.5] <- 19133
  areaISO[dc==200&lat==13.5] <- 20133
  areaISO[dc==10&lat==14] <- 1140
  areaISO[dc==20&lat==14] <- 2140
  areaISO[dc==30&lat==14] <- 3140
  areaISO[dc==40&lat==14] <- 4140
  areaISO[dc==50&lat==14] <- 5140
  areaISO[dc==60&lat==14] <- 6140
  areaISO[dc==70&lat==14] <- 7140
  areaISO[dc==80&lat==14] <- 8140
  areaISO[dc==90&lat==14] <- 9140
  areaISO[dc==100&lat==14] <- 10140
  areaISO[dc==110&lat==14] <- 11140
  areaISO[dc==120&lat==14] <- 12140
  areaISO[dc==130&lat==14] <- 13140
  areaISO[dc==140&lat==14] <- 14140
  areaISO[dc==150&lat==14] <- 15140
  areaISO[dc==160&lat==14] <- 16140
  areaISO[dc==170&lat==14] <- 17140
  areaISO[dc==180&lat==14] <- 18140
  areaISO[dc==190&lat==14] <- 19140
  areaISO[dc==200&lat==14] <- 20140
  areaISO[dc==10&lat==14.5] <- 1143
  areaISO[dc==20&lat==14.5] <- 2143
  areaISO[dc==30&lat==14.5] <- 3143
  areaISO[dc==40&lat==14.5] <- 4143
  areaISO[dc==50&lat==14.5] <- 5143
  areaISO[dc==60&lat==14.5] <- 6143
  areaISO[dc==70&lat==14.5] <- 7143
  areaISO[dc==80&lat==14.5] <- 8143
  areaISO[dc==90&lat==14.5] <- 9143
  areaISO[dc==100&lat==14.5] <- 10143
  areaISO[dc==110&lat==14.5] <- 11143
  areaISO[dc==120&lat==14.5] <- 12143
  areaISO[dc==130&lat==14.5] <- 13143
  areaISO[dc==140&lat==14.5] <- 14143
  areaISO[dc==150&lat==14.5] <- 15143
  areaISO[dc==160&lat==14.5] <- 16143
  areaISO[dc==170&lat==14.5] <- 17143
  areaISO[dc==180&lat==14.5] <- 18143
  areaISO[dc==190&lat==14.5] <- 19143
  areaISO[dc==200&lat==14.5] <- 20143
  areaISO[dc==10&lat==15] <- 1150
  areaISO[dc==20&lat==15] <- 2150
  areaISO[dc==30&lat==15] <- 3150
  areaISO[dc==40&lat==15] <- 4150
  areaISO[dc==50&lat==15] <- 5150
  areaISO[dc==60&lat==15] <- 6150
  areaISO[dc==70&lat==15] <- 7150
  areaISO[dc==80&lat==15] <- 8150
  areaISO[dc==90&lat==15] <- 9150
  areaISO[dc==100&lat==15] <- 10150
  areaISO[dc==110&lat==15] <- 11150
  areaISO[dc==120&lat==15] <- 12150
  areaISO[dc==130&lat==15] <- 13150
  areaISO[dc==140&lat==15] <- 14150
  areaISO[dc==150&lat==15] <- 15150
  areaISO[dc==160&lat==15] <- 16150
  areaISO[dc==170&lat==15] <- 17150
  areaISO[dc==180&lat==15] <- 18150
  areaISO[dc==190&lat==15] <- 19150
  areaISO[dc==200&lat==15] <- 20150
  areaISO[dc==10&lat==15.5] <- 1153
  areaISO[dc==20&lat==15.5] <- 2153
  areaISO[dc==30&lat==15.5] <- 3153
  areaISO[dc==40&lat==15.5] <- 4153
  areaISO[dc==50&lat==15.5] <- 5153
  areaISO[dc==60&lat==15.5] <- 6153
  areaISO[dc==70&lat==15.5] <- 7153
  areaISO[dc==80&lat==15.5] <- 8153
  areaISO[dc==90&lat==15.5] <- 9153
  areaISO[dc==100&lat==15.5] <- 10153
  areaISO[dc==110&lat==15.5] <- 11153
  areaISO[dc==120&lat==15.5] <- 12153
  areaISO[dc==130&lat==15.5] <- 13153
  areaISO[dc==140&lat==15.5] <- 14153
  areaISO[dc==150&lat==15.5] <- 15153
  areaISO[dc==160&lat==15.5] <- 16153
  areaISO[dc==170&lat==15.5] <- 17153
  areaISO[dc==180&lat==15.5] <- 18153
  areaISO[dc==190&lat==15.5] <- 19153
  areaISO[dc==200&lat==15.5] <- 20153
  areaISO[dc==10&lat==16] <- 1160
  areaISO[dc==20&lat==16] <- 2160
  areaISO[dc==30&lat==16] <- 3160
  areaISO[dc==40&lat==16] <- 4160
  areaISO[dc==50&lat==16] <- 5160
  areaISO[dc==60&lat==16] <- 6160
  areaISO[dc==70&lat==16] <- 7160
  areaISO[dc==80&lat==16] <- 8160
  areaISO[dc==90&lat==16] <- 9160
  areaISO[dc==100&lat==16] <- 10160
  areaISO[dc==110&lat==16] <- 11160
  areaISO[dc==120&lat==16] <- 12160
  areaISO[dc==130&lat==16] <- 13160
  areaISO[dc==140&lat==16] <- 14160
  areaISO[dc==150&lat==16] <- 15160
  areaISO[dc==160&lat==16] <- 16160
  areaISO[dc==170&lat==16] <- 17160
  areaISO[dc==180&lat==16] <- 18160
  areaISO[dc==190&lat==16] <- 19160
  areaISO[dc==200&lat==16] <- 20160
  areaISO[dc==10&lat==16.5] <- 1163
  areaISO[dc==20&lat==16.5] <- 2163
  areaISO[dc==30&lat==16.5] <- 3163
  areaISO[dc==40&lat==16.5] <- 4163
  areaISO[dc==50&lat==16.5] <- 5163
  areaISO[dc==60&lat==16.5] <- 6163
  areaISO[dc==70&lat==16.5] <- 7163
  areaISO[dc==80&lat==16.5] <- 8163
  areaISO[dc==90&lat==16.5] <- 9163
  areaISO[dc==100&lat==16.5] <- 10163
  areaISO[dc==110&lat==16.5] <- 11163
  areaISO[dc==120&lat==16.5] <- 12163
  areaISO[dc==130&lat==16.5] <- 13163
  areaISO[dc==140&lat==16.5] <- 14163
  areaISO[dc==150&lat==16.5] <- 15163
  areaISO[dc==160&lat==16.5] <- 16163
  areaISO[dc==170&lat==16.5] <- 17163
  areaISO[dc==180&lat==16.5] <- 18163
  areaISO[dc==190&lat==16.5] <- 19163
  areaISO[dc==200&lat==16.5] <- 20163
  areaISO[dc==10&lat==17] <- 1170
  areaISO[dc==20&lat==17] <- 2170
  areaISO[dc==30&lat==17] <- 3170
  areaISO[dc==40&lat==17] <- 4170
  areaISO[dc==50&lat==17] <- 5170
  areaISO[dc==60&lat==17] <- 6170
  areaISO[dc==70&lat==17] <- 7170
  areaISO[dc==80&lat==17] <- 8170
  areaISO[dc==90&lat==17] <- 9170
  areaISO[dc==100&lat==17] <- 10170
  areaISO[dc==110&lat==17] <- 11170
  areaISO[dc==120&lat==17] <- 12170
  areaISO[dc==130&lat==17] <- 13170
  areaISO[dc==140&lat==17] <- 14170
  areaISO[dc==150&lat==17] <- 15170
  areaISO[dc==160&lat==17] <- 16170
  areaISO[dc==170&lat==17] <- 17170
  areaISO[dc==180&lat==17] <- 18170
  areaISO[dc==190&lat==17] <- 19170
  areaISO[dc==200&lat==17] <- 20170
  areaISO[dc==10&lat==17.5] <- 1173
  areaISO[dc==20&lat==17.5] <- 2173
  areaISO[dc==30&lat==17.5] <- 3173
  areaISO[dc==40&lat==17.5] <- 4173
  areaISO[dc==50&lat==17.5] <- 5173
  areaISO[dc==60&lat==17.5] <- 6173
  areaISO[dc==70&lat==17.5] <- 7173
  areaISO[dc==80&lat==17.5] <- 8173
  areaISO[dc==90&lat==17.5] <- 9173
  areaISO[dc==100&lat==17.5] <- 10173
  areaISO[dc==110&lat==17.5] <- 11173
  areaISO[dc==120&lat==17.5] <- 12173
  areaISO[dc==130&lat==17.5] <- 13173
  areaISO[dc==140&lat==17.5] <- 14173
  areaISO[dc==150&lat==17.5] <- 15173
  areaISO[dc==160&lat==17.5] <- 16173
  areaISO[dc==170&lat==17.5] <- 17173
  areaISO[dc==180&lat==17.5] <- 18173
  areaISO[dc==190&lat==17.5] <- 19173
  areaISO[dc==200&lat==17.5] <- 20173
  areaISO[dc==10&lat==18] <- 1180
  areaISO[dc==20&lat==18] <- 2180
  areaISO[dc==30&lat==18] <- 3180
  areaISO[dc==40&lat==18] <- 4180
  areaISO[dc==50&lat==18] <- 5180
  areaISO[dc==60&lat==18] <- 6180
  areaISO[dc==70&lat==18] <- 7180
  areaISO[dc==80&lat==18] <- 8180
  areaISO[dc==90&lat==18] <- 9180
  areaISO[dc==100&lat==18] <- 10180
  areaISO[dc==110&lat==18] <- 11180
  areaISO[dc==120&lat==18] <- 12180
  areaISO[dc==130&lat==18] <- 13180
  areaISO[dc==140&lat==18] <- 14180
  areaISO[dc==150&lat==18] <- 15180
  areaISO[dc==160&lat==18] <- 16180
  areaISO[dc==170&lat==18] <- 17180
  areaISO[dc==180&lat==18] <- 18180
  areaISO[dc==190&lat==18] <- 19180
  areaISO[dc==200&lat==18] <- 20180
  areaISO[dc==10&lat==18.5] <- 1183
  areaISO[dc==20&lat==18.5] <- 2183
  areaISO[dc==30&lat==18.5] <- 3183
  areaISO[dc==40&lat==18.5] <- 4183
  areaISO[dc==50&lat==18.5] <- 5183
  areaISO[dc==60&lat==18.5] <- 6183
  areaISO[dc==70&lat==18.5] <- 7183
  areaISO[dc==80&lat==18.5] <- 8183
  areaISO[dc==90&lat==18.5] <- 9183
  areaISO[dc==100&lat==18.5] <- 10183
  areaISO[dc==110&lat==18.5] <- 11183
  areaISO[dc==120&lat==18.5] <- 12183
  areaISO[dc==130&lat==18.5] <- 13183
  areaISO[dc==140&lat==18.5] <- 14183
  areaISO[dc==150&lat==18.5] <- 15183
  areaISO[dc==160&lat==18.5] <- 16183
  areaISO[dc==170&lat==18.5] <- 17183
  areaISO[dc==180&lat==18.5] <- 18183
  areaISO[dc==190&lat==18.5] <- 19183
  areaISO[dc==200&lat==18.5] <- 20183
  
  dc   <- as.numeric(dc)
  lat  <- as.numeric(lat)
  area <- as.numeric(areaISO)
  out  <- data.frame(dc,lat,area)
  
  return(out)
  
}
PabloMBooster/fenix documentation built on Oct. 21, 2023, 8:22 p.m.