| File |
Line number |
Procedure |
Code |
|
./pkg/dic/bio_export.F |
108 |
BIO_EXPORT |
lit(i,j)=lit(i,j)*exp(-atten) |
|
./pkg/dic/bio_export.F |
112 |
BIO_EXPORT |
IF (lit(i,j).LT.0. _d 0.OR.lit(i,j).GT.350. _d 0) THEN |
|
./pkg/dic/bio_export.F |
113 |
BIO_EXPORT |
print*,'QQ lit',i,j,lit(i,j) |
|
./pkg/dic/bio_export.F |
119 |
BIO_EXPORT |
lit(i,j)=max(0. _d 0,lit(i,j)) |
|
./pkg/dic/bio_export.F |
148 |
BIO_EXPORT |
& lit(i,j)/(lit(i,j)+lit0)*maskC(i,j,k,bi,bj)* |
|
./pkg/dic/bio_export.F |
60 |
BIO_EXPORT |
_RL lit (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/dic/bio_export.F |
86 |
BIO_EXPORT |
lit(i,j)=PAR(i,j,bi,bj) |
|
./pkg/dic/bio_export.F |
88 |
BIO_EXPORT |
lit(i,j)=-parfrac*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/bio_export.F |
90 |
BIO_EXPORT |
lit(i,j)=sfac(j) |
|
./pkg/dic/bio_export.F |
96 |
BIO_EXPORT |
lit(i,j)=lit(i,j)*(1. _d 0 - FIce(i,j,bi,bj)) |