--- MITgcm/pkg/dic/bio_export.F	2006/11/28 21:16:02	1.10
+++ MITgcm/pkg/dic/bio_export.F	2007/05/01 22:51:12	1.11
@@ -25,6 +25,9 @@
 #include "GRID.h"
 #include "DIC_ABIOTIC.h"
 #include "DIC_BIOTIC.h"
+#ifdef PAR_FROMSW
+#include "FFIELDS.h"
+#endif
 
 C !INPUT PARAMETERS: ===================================================
 C  myThid               :: thread number
@@ -63,8 +66,10 @@
 
 
 #ifndef READ_PAR
+#ifndef PAR_FROMSW
         call insol(myTime,sfac,bj)
 #endif
+#endif
         DO j=jmin,jmax
          DO i=imin,imax
 C Fortran-90
@@ -76,8 +81,12 @@
 #ifdef READ_PAR
            lit=PAR(i,j,bi,bj)
 #else
+#ifdef PAR_FROMSW
+           lit=-0.4*Qsw(i,j,bi,bj)*maskC(i,j,1,bi,bj)
+#else
            lit=sfac(j)
 #endif
+#endif
            DO k=1,nlev
 C$TAF STORE lit = bio_export
              atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5)