/[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.22 by dfer, Fri Apr 4 21:32:36 2008 UTC revision 1.26 by jmc, Sun Apr 11 22:03:53 2010 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "DIC_OPTIONS.h"  #include "DIC_OPTIONS.h"
 #include "GCHEM_OPTIONS.h"  
5    
6  CBOP  CBOP
7  C !ROUTINE: BIO_EXPORT  C !ROUTINE: BIO_EXPORT
# Line 61  C  i,j,k                  :: loop indice Line 60  C  i,j,k                  :: loop indice
60        _RL sfac(1-OLy:sNy+OLy)        _RL sfac(1-OLy:sNy+OLy)
61        _RL lit, atten        _RL lit, atten
62        _RL nutlimit        _RL nutlimit
63        _RL tmpfe, tmppo4        _RL tmppo4
64    #ifdef ALLOW_FE
65          _RL tmpfe
66    #endif
67  #ifdef AD_SAFE  #ifdef AD_SAFE
68        _RL thx, thy, theps        _RL thx, thy, theps
69  #endif  #endif
# Line 70  CEOP Line 72  CEOP
72    
73  #ifndef READ_PAR  #ifndef READ_PAR
74  #ifndef USE_QSW  #ifndef USE_QSW
75          call insol(myTime,sfac,bj)          CALL INSOL(myTime,sfac,bi,bj,myThid)
76  #endif  #endif
77  #endif  #endif
78          DO j=jmin,jmax          DO j=jmin,jmax
79           DO i=imin,imax           DO i=imin,imax
80  C Fortran-90  cph: following init assumes nlev=nr
81  CRG C$TAF INIT bio_export = static, nlev  cph: set in dic_init_fixed.F (ALLOW_AUTODIFF)
82    C$TAF INIT bio_export = static, nr
83  C FORTRAN-77 dynamic memory uses adstore adresto  C FORTRAN-77 dynamic memory uses adstore adresto
84  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  
85  #ifdef READ_PAR  #ifdef READ_PAR
86             lit=PAR(i,j,bi,bj)             lit=PAR(i,j,bi,bj)
87  #elif (defined USE_QSW)  #elif (defined USE_QSW)
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22