Hello-
I wrote the following blockof code to specify albedo (basically a ratio of shortwave radiation reflected from earth/ocean surface). I am unfamiliar with the syntax and I was hoping someone could take a look and make sure the syntax is correct. Thanks so much!
if (flux_albav) then
do n=1,nloc_o
For n=1,nloc
If (lats .lt. -20 .and. lats .gt. -40 .and. lons .lt. 360 .and. lons .gt. 330)
then
Anidr=0.15
Avsdr=0.15
Anidf=0.15
Avsdf=0.15
Elseif (lats .lt. -20 .and. lats .gt. -40 .and lons .lt. 105 .and. lons .gt. 55)
then
Anidr=0.15
Avsdr=0.15
Anidf=0.15
Avsdf=0.15
Elseif (lats .gt. -15 .and. lats .lt. -40 .and. lons .lt. 280 .and. lons .gt. 190)
then
Anidr=0.15
Avsdr=0.15
Anidf=0.15
Avsdf=0.15
Else
anidr = albdir
avsdr = albdir
anidf = albdif
avsdf = albdif
End if
I wrote the following blockof code to specify albedo (basically a ratio of shortwave radiation reflected from earth/ocean surface). I am unfamiliar with the syntax and I was hoping someone could take a look and make sure the syntax is correct. Thanks so much!
if (flux_albav) then
do n=1,nloc_o
For n=1,nloc
If (lats .lt. -20 .and. lats .gt. -40 .and. lons .lt. 360 .and. lons .gt. 330)
then
Anidr=0.15
Avsdr=0.15
Anidf=0.15
Avsdf=0.15
Elseif (lats .lt. -20 .and. lats .gt. -40 .and lons .lt. 105 .and. lons .gt. 55)
then
Anidr=0.15
Avsdr=0.15
Anidf=0.15
Avsdf=0.15
Elseif (lats .gt. -15 .and. lats .lt. -40 .and. lons .lt. 280 .and. lons .gt. 190)
then
Anidr=0.15
Avsdr=0.15
Anidf=0.15
Avsdf=0.15
Else
anidr = albdir
avsdr = albdir
anidf = albdif
avsdf = albdif
End if