/[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.18 by stephd, Fri Nov 30 17:47:41 2007 UTC revision 1.19 by stephd, Mon Dec 3 20:49:55 2007 UTC
# Line 91  C$TAF INIT bio_export = static, 10 Line 91  C$TAF INIT bio_export = static, 10
91  #endif  #endif
92  #endif  #endif
93    
94  #if (defined (ALLOW_SEAICE) && defined (USE_QSW))             if (QSW_underice) then
95  c if using Qsw and seaice, then ice fraction is already  c if using Qsw and seaice/thsice or coupled, then ice
96  c taken into account  c fraction is already taken into account
97             lit=lit                lit=lit
98  #else             else
99  #if (defined (ALLOW_THSICE) && defined (USE_QSW))                lit=lit*(1. _d 0 - FIce(i,j,bi,bj))
100  c if using Qsw and seaice, then ice fraction is already             endif
101  c taken into account  c
            lit=lit  
 #else  
            lit=lit*(1. _d 0 - FIce(i,j,bi,bj))  
 #endif  
 #endif  
102             DO k=1,nlev             DO k=1,nlev
103  C$TAF STORE lit = bio_export  C$TAF STORE lit = bio_export
104               atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0)               atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0)
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22