74 |
#endif |
#endif |
75 |
DO j=jmin,jmax |
DO j=jmin,jmax |
76 |
DO i=imin,imax |
DO i=imin,imax |
77 |
C Fortran-90 |
cph: following init assumes nlev=nr |
78 |
CRG C$TAF INIT bio_export = static, nlev |
cph: set in dic_init_fixed.F (ALLOW_AUTODIFF) |
79 |
|
C$TAF INIT bio_export = static, nr |
80 |
C FORTRAN-77 dynamic memory uses adstore adresto |
C FORTRAN-77 dynamic memory uses adstore adresto |
81 |
CRG C$TAF INIT bio_export = memory |
CRG C$TAF INIT bio_export = memory |
|
C FORTRAN-77 with know max of nlev |
|
|
C$TAF INIT bio_export = static, 10 |
|
82 |
#ifdef READ_PAR |
#ifdef READ_PAR |
83 |
lit=PAR(i,j,bi,bj) |
lit=PAR(i,j,bi,bj) |
84 |
#elif (defined USE_QSW) |
#elif (defined USE_QSW) |