/[MITgcm]/MITgcm/pkg/dic/bio_export.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/bio_export.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by stephd, Thu Aug 25 22:32:44 2005 UTC revision 1.8 by stephd, Thu Oct 13 16:25:12 2005 UTC
# Line 56  C  i,j,k                  :: loop indice Line 56  C  i,j,k                  :: loop indice
56        _RL sfac(1-OLy:sNy+OLy)        _RL sfac(1-OLy:sNy+OLy)
57        _RL lit, atten        _RL lit, atten
58  CEOP  CEOP
59    #ifndef READ_PAR
60          call insol(myTime,sfac,bj)          call insol(myTime,sfac,bj)
61    #endif
62          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
63           DO i=1-OLx,sNx+OLx           DO i=1-OLx,sNx+OLx
64  C Fortran-90  C Fortran-90
# Line 65  C FORTRAN-77 dynamic memory uses adstore Line 67  C FORTRAN-77 dynamic memory uses adstore
67  CRG C$TAF INIT bio_export = memory  CRG C$TAF INIT bio_export = memory
68  C FORTRAN-77 with know max of nlev  C FORTRAN-77 with know max of nlev
69  C$TAF INIT bio_export = static, 10  C$TAF INIT bio_export = static, 10
70    #ifdef READ_PAR
71               lit=PAR(i,j,bi,bj)
72    #else
73             lit=sfac(j)             lit=sfac(j)
74    #endif
75             DO k=1,nlev             DO k=1,nlev
76  C$TAF STORE lit = bio_export  C$TAF STORE lit = bio_export
77               atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5)               atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22