91 |
#endif |
#endif |
92 |
#endif |
#endif |
93 |
|
|
94 |
#if (defined (ALLOW_SEAICE) && defined (USE_QSW)) |
if (QSW_underice) then |
95 |
c if using Qsw and seaice, then ice fraction is already |
c if using Qsw and seaice/thsice or coupled, then ice |
96 |
c taken into account |
c fraction is already taken into account |
97 |
lit=lit |
lit=lit |
98 |
#else |
else |
99 |
#if (defined (ALLOW_THSICE) && defined (USE_QSW)) |
lit=lit*(1. _d 0 - FIce(i,j,bi,bj)) |
100 |
c if using Qsw and seaice, then ice fraction is already |
endif |
101 |
c taken into account |
c |
|
lit=lit |
|
|
#else |
|
|
lit=lit*(1. _d 0 - FIce(i,j,bi,bj)) |
|
|
#endif |
|
|
#endif |
|
102 |
DO k=1,nlev |
DO k=1,nlev |
103 |
C$TAF STORE lit = bio_export |
C$TAF STORE lit = bio_export |
104 |
atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0) |
atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0) |