46 |
call insol(myTime,sfac,bj) |
call insol(myTime,sfac,bj) |
47 |
DO j=1-OLy,sNy+OLy |
DO j=1-OLy,sNy+OLy |
48 |
DO i=1-OLx,sNx+OLx |
DO i=1-OLx,sNx+OLx |
49 |
|
C Fortran-90 |
50 |
|
CRG C$TAF INIT bio_export = static, nlev |
51 |
|
C FORTRAN-77 dynamic memory uses adstore adresto |
52 |
|
CRG C$TAF INIT bio_export = memory |
53 |
|
C FORTRAN-77 with know max of nlev |
54 |
|
C$TAF INIT bio_export = static, 10 |
55 |
lit=sfac(j) |
lit=sfac(j) |
56 |
DO k=1,nlev |
DO k=1,nlev |
57 |
|
C$TAF STORE lit = bio_export |
58 |
atten=(k0*delz(k)*.5) |
atten=(k0*delz(k)*.5) |
59 |
if (k.gt.1) atten=(k0*delz(k-1)*.5) |
if (k.gt.1) atten=(k0*delz(k-1)*.5) |
60 |
lit=lit*exp(-atten)*(1.d0-Fice(i,j,bi,bj)) |
lit=lit*exp(-atten)*(1.d0-Fice(i,j,bi,bj)) |