/[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.10 by stephd, Tue Nov 28 21:16:02 2006 UTC revision 1.11 by stephd, Tue May 1 22:51:12 2007 UTC
# Line 25  C !USES: =============================== Line 25  C !USES: ===============================
25  #include "GRID.h"  #include "GRID.h"
26  #include "DIC_ABIOTIC.h"  #include "DIC_ABIOTIC.h"
27  #include "DIC_BIOTIC.h"  #include "DIC_BIOTIC.h"
28    #ifdef PAR_FROMSW
29    #include "FFIELDS.h"
30    #endif
31    
32  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
33  C  myThid               :: thread number  C  myThid               :: thread number
# Line 63  CEOP Line 66  CEOP
66    
67    
68  #ifndef READ_PAR  #ifndef READ_PAR
69    #ifndef PAR_FROMSW
70          call insol(myTime,sfac,bj)          call insol(myTime,sfac,bj)
71  #endif  #endif
72    #endif
73          DO j=jmin,jmax          DO j=jmin,jmax
74           DO i=imin,imax           DO i=imin,imax
75  C Fortran-90  C Fortran-90
# Line 76  C$TAF INIT bio_export = static, 10 Line 81  C$TAF INIT bio_export = static, 10
81  #ifdef READ_PAR  #ifdef READ_PAR
82             lit=PAR(i,j,bi,bj)             lit=PAR(i,j,bi,bj)
83  #else  #else
84    #ifdef PAR_FROMSW
85               lit=-0.4*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj)
86    #else
87             lit=sfac(j)             lit=sfac(j)
88  #endif  #endif
89    #endif
90             DO k=1,nlev             DO k=1,nlev
91  C$TAF STORE lit = bio_export  C$TAF STORE lit = bio_export
92               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.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22