/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/DARWIN_IO.h
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/DARWIN_IO.h

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

revision 1.1 by jahn, Wed Apr 13 18:56:23 2011 UTC revision 1.9 by jahn, Fri Dec 27 17:29:00 2013 UTC
# Line 20  C  darwin_phytoabsorbFile    :: file nam Line 20  C  darwin_phytoabsorbFile    :: file nam
20  C  darwin_particleabsorbFile :: file name of particle absorption/scattering spectra  C  darwin_particleabsorbFile :: file name of particle absorption/scattering spectra
21  C  darwin_surfacespecFile    :: file name of spectrum of incident light  C  darwin_surfacespecFile    :: file name of spectrum of incident light
22  C  darwin_acdomFile          :: file name of CDOM absorption spectrum  C  darwin_acdomFile          :: file name of CDOM absorption spectrum
23    C  darwin_PARunits      :: units of data in PAR file; one of Ein/m2/d, uEin/m2/s, W/m2
24    C  darwin_PARFileConv   :: conversion factor from PAR file units to uEin/m2/s
25    C  darwin_W_to_uEins    :: conversion factor from W to uEin/s
26    C  darwin_ironUnits     :: units of data in iron file; one of mol Fe/m2/s, kg dust/m2/s
27    C  darwin_dustFrac      :: fraction of dust by weight that is iron
28  C  darwin_forcingPeriod :: perioDARWIN forcing parameter specific for DARWIN (seconds)  C  darwin_forcingPeriod :: perioDARWIN forcing parameter specific for DARWIN (seconds)
29  C  darwin_forcingCycle  :: perioDARWIN forcing parameter specific for DARWIN (seconds)  C  darwin_forcingCycle  :: perioDARWIN forcing parameter specific for DARWIN (seconds)
30  C  darwin_seed          :: seed for the random number generator  C  darwin_seed          :: seed for the random number generator
# Line 38  C  darwin_seed          :: seed for the Line 43  C  darwin_seed          :: seed for the
43       &        darwin_waterabsorbFile, darwin_phytoabsorbFile,       &        darwin_waterabsorbFile, darwin_phytoabsorbFile,
44       &        darwin_surfacespecFile, darwin_acdomFile,       &        darwin_surfacespecFile, darwin_acdomFile,
45       &        darwin_particleabsorbFile,       &        darwin_particleabsorbFile,
46         &        darwin_PARunits, darwin_ironUnits,
47         &        darwin_PARFileConv, darwin_ironFileConv,
48         &        darwin_dustFrac,
49         &        darwin_W_to_uEins,
50       &        darwin_forcingPeriod, darwin_forcingCycle,       &        darwin_forcingPeriod, darwin_forcingCycle,
51       &        darwin_seed       &        darwin_seed
52    
# Line 60  C  darwin_seed          :: seed for the Line 69  C  darwin_seed          :: seed for the
69        CHARACTER*(MAX_LEN_FNAM) darwin_particleabsorbFile        CHARACTER*(MAX_LEN_FNAM) darwin_particleabsorbFile
70        CHARACTER*(MAX_LEN_FNAM) darwin_surfacespecFile        CHARACTER*(MAX_LEN_FNAM) darwin_surfacespecFile
71        CHARACTER*(MAX_LEN_FNAM) darwin_acdomFile        CHARACTER*(MAX_LEN_FNAM) darwin_acdomFile
72          CHARACTER*(MAX_LEN_FNAM) darwin_PARunits
73          CHARACTER*(MAX_LEN_FNAM) darwin_ironUnits
74    
75        _RL darwin_relaxscale        _RL darwin_relaxscale
76        _RL     darwin_forcingPeriod        _RL     darwin_forcingPeriod
77        _RL     darwin_forcingCycle        _RL     darwin_forcingCycle
78          _RL darwin_PARFileConv
79          _RL darwin_W_to_uEins
80          _RL darwin_ironFileConv
81          _RL darwin_dustFrac
82        INTEGER darwin_seed        INTEGER darwin_seed
83    
84          COMMON/DARWIN_IO_L/
85         &  darwin_useiceFile,
86         &  darwin_useareamask,
87         &  darwin_useiceMask,
88         &  darwin_useAREA,
89         &  darwin_haveIce
90          LOGICAL darwin_useiceFile
91          LOGICAL darwin_useareamask
92          LOGICAL darwin_useiceMask
93          LOGICAL darwin_useAREA
94          LOGICAL darwin_haveIce
95    
96  c INPUT:  c INPUT:
97  c    fice           - ice fraction  c    fice           - ice fraction
98  c    inputFe        - aeolian input of iron  c    inputFe        - aeolian input of iron
# Line 107  c    Nfixave      - average N fixation Line 134  c    Nfixave      - average N fixation
134  c    Zoograzave   - average zooplankton consumption  c    Zoograzave   - average zooplankton consumption
135  c    Parave       - average PAR  c    Parave       - average PAR
136  c    Chlave       - average chlorophyll  c    Chlave       - average chlorophyll
137  c    npzd_timeave  - time for averaging  c    npzd_timeave - time for averaging
138    c    Nlim,Flim,etc- Quota model average limitation factors
139    
140        COMMON /DARWIN_OUPUT/        COMMON /DARWIN_OUPUT/
141       &      PPave, Nfixave, Zoograzave,       &      PPave, Nfixave, Zoograzave,
142       &      PARave, Chlave, Denitave,       &      PARave, Chlave, Denitave,
143    #ifdef QUOTA_DIAG_LIMIT
144         &      Nlimave,Flimave,Ilimave,Tlimave,
145    #endif
146  c ANNA_TAVE  c ANNA_TAVE
147  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
148       &      Pchlave,       &      Pchlave,
# Line 119  c ANNA_TAVE Line 150  c ANNA_TAVE
150  #ifdef DAR_DIAG_ACDOM  #ifdef DAR_DIAG_ACDOM
151       &      aCDOMave,       &      aCDOMave,
152  #endif  #endif
153    #ifdef DAR_DIAG_PARW
154         &      chl2cave,
155    #endif
156    #ifdef DAR_DIAG_EK
157         &      Ekave, EkoverEave, acclimave,
158    #endif
159  c ANNA end TAVE  c ANNA end TAVE
160  #ifdef DAR_DIAG_RSTAR  #ifdef DAR_DIAG_RSTAR
161       &      Rstarave, RNstarave,       &      Rstarave, RNstarave,
# Line 142  c Line 179  c
179         _RL  PARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy)         _RL  PARave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy)
180         _RL  Chlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy)         _RL  Chlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy)
181         _RL  Denitave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy)         _RL  Denitave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy)
182    #ifdef QUOTA_DIAG_LIMIT
183           _RL  Nlimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy, npmax)
184           _RL  Flimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy, npmax)
185           _RL  Ilimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy, npmax)
186           _RL  Tlimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy)
187    #endif
188  c ANNA_TAVE  c ANNA_TAVE
189  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
190         _RL  Pchlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)         _RL  Pchlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
# Line 149  c ANNA_TAVE Line 192  c ANNA_TAVE
192  #ifdef DAR_DIAG_ACDOM  #ifdef DAR_DIAG_ACDOM
193         _RL  aCDOMave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)         _RL  aCDOMave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
194  #endif  #endif
195    #ifdef DAR_DIAG_PARW
196           _RL  chl2cave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
197    #endif
198    #ifdef DAR_DIAG_EK
199           _RL  Ekave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
200           _RL  EkoverEave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
201           _RL  acclimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
202    #endif
203  c ANNA end TAVE  c ANNA end TAVE
204  #ifdef DAR_DIAG_RSTAR  #ifdef DAR_DIAG_RSTAR
205         _RL  Rstarave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)         _RL  Rstarave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
# Line 169  c ANNA end TAVE Line 220  c ANNA end TAVE
220         _RL  NfixPave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)         _RL  NfixPave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
221  #endif  #endif
222  #endif  #endif
223         _RL  DAR_timeave(nSx,nSy,nR)         _RL  DAR_timeave(nSx,nSy)
224    
225  #ifdef CHECK_CONS  #ifdef CHECK_CONS
226        COMMON /DARWIN_CHECK_CONS/        COMMON /DARWIN_CHECK_CONS/
227       &      DAR_cons_unit1, DAR_cons_unit2,       &      DAR_cons_unitC, DAR_cons_unitN,
228       &      DAR_cons_unit3, DAR_cons_unit4,       &      DAR_cons_unitP, DAR_cons_unitF,
229       &      DAR_cons_unit5, DAR_cons_unit6,       &      DAR_cons_unitS, DAR_cons_unitA,
230       &      DAR_cons_unit7       &      DAR_cons_unitO
231         INTEGER DAR_cons_unit1         INTEGER DAR_cons_unitC
232         INTEGER DAR_cons_unit2         INTEGER DAR_cons_unitN
233         INTEGER DAR_cons_unit3         INTEGER DAR_cons_unitP
234         INTEGER DAR_cons_unit4         INTEGER DAR_cons_unitF
235         INTEGER DAR_cons_unit5         INTEGER DAR_cons_unitS
236         INTEGER DAR_cons_unit6         INTEGER DAR_cons_unitA
237         INTEGER DAR_cons_unit7         INTEGER DAR_cons_unitO
238    #endif
239    
240    #ifdef CALC_RATE_TOTALS
241          COMMON /DARWIN_RATE_TOT/
242         &      DAR_ratetot_unit, DAR_fluxtot_unit
243           INTEGER DAR_ratetot_unit
244           INTEGER DAR_fluxtot_unit
245  #endif  #endif
246    
247  #ifdef ALLOW_PAR_DAY  #ifdef ALLOW_PAR_DAY
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22