/[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.10 by benw, Tue May 19 14:30:15 2015 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         &      Tlimave,
145         &      Ilimave,AP_C_ave,HP_C_ave,
146         &      Nlimave,AP_N_ave,HP_N_ave,
147    #ifdef PQUOTA
148         &      Plimave,AP_P_ave,HP_P_ave,
149    #endif
150    #ifdef FQUOTA
151         &      Flimave,AP_F_ave,HP_F_ave,
152    #endif
153    #endif
154  c ANNA_TAVE  c ANNA_TAVE
155  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
156       &      Pchlave,       &      Pchlave,
# Line 119  c ANNA_TAVE Line 158  c ANNA_TAVE
158  #ifdef DAR_DIAG_ACDOM  #ifdef DAR_DIAG_ACDOM
159       &      aCDOMave,       &      aCDOMave,
160  #endif  #endif
161    #ifdef DAR_DIAG_PARW
162         &      chl2cave,
163    #endif
164    #ifdef DAR_DIAG_EK
165         &      Ekave, EkoverEave, acclimave,
166    #endif
167  c ANNA end TAVE  c ANNA end TAVE
168  #ifdef DAR_DIAG_RSTAR  #ifdef DAR_DIAG_RSTAR
169       &      Rstarave, RNstarave,       &      Rstarave, RNstarave,
# Line 142  c Line 187  c
187         _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)
188         _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)
189         _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)
190    #ifdef QUOTA_DIAG_LIMIT
191    c Carbon
192           _RL  AP_C_ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
193           _RL  HP_C_ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
194    c Nitrogen
195           _RL  AP_N_ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
196           _RL  HP_N_ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
197           _RL  Nlimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
198    c Phosphorus
199    #ifdef PQUOTA
200           _RL  AP_P_ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
201           _RL  HP_P_ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
202           _RL  Plimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
203    #endif
204    c Iron
205    #ifdef FQUOTA
206           _RL  AP_F_ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
207           _RL  HP_F_ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
208           _RL  Flimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
209    #endif
210    c Light
211           _RL  Ilimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,npmax)
212    c Temperature
213           _RL  Tlimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy)
214    #endif
215  c ANNA_TAVE  c ANNA_TAVE
216  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
217         _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 219  c ANNA_TAVE
219  #ifdef DAR_DIAG_ACDOM  #ifdef DAR_DIAG_ACDOM
220         _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)
221  #endif  #endif
222    #ifdef DAR_DIAG_PARW
223           _RL  chl2cave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
224    #endif
225    #ifdef DAR_DIAG_EK
226           _RL  Ekave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
227           _RL  EkoverEave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
228           _RL  acclimave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax)
229    #endif
230  c ANNA end TAVE  c ANNA end TAVE
231  #ifdef DAR_DIAG_RSTAR  #ifdef DAR_DIAG_RSTAR
232         _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 247  c ANNA end TAVE
247         _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)
248  #endif  #endif
249  #endif  #endif
250         _RL  DAR_timeave(nSx,nSy,nR)         _RL  DAR_timeave(nSx,nSy)
251    
252  #ifdef CHECK_CONS  #ifdef CHECK_CONS
253        COMMON /DARWIN_CHECK_CONS/        COMMON /DARWIN_CHECK_CONS/
254       &      DAR_cons_unit1, DAR_cons_unit2,       &      DAR_cons_unitC, DAR_cons_unitN,
255       &      DAR_cons_unit3, DAR_cons_unit4,       &      DAR_cons_unitP, DAR_cons_unitF,
256       &      DAR_cons_unit5, DAR_cons_unit6,       &      DAR_cons_unitS, DAR_cons_unitA,
257       &      DAR_cons_unit7       &      DAR_cons_unitO
258         INTEGER DAR_cons_unit1         INTEGER DAR_cons_unitC
259         INTEGER DAR_cons_unit2         INTEGER DAR_cons_unitN
260         INTEGER DAR_cons_unit3         INTEGER DAR_cons_unitP
261         INTEGER DAR_cons_unit4         INTEGER DAR_cons_unitF
262         INTEGER DAR_cons_unit5         INTEGER DAR_cons_unitS
263         INTEGER DAR_cons_unit6         INTEGER DAR_cons_unitA
264         INTEGER DAR_cons_unit7         INTEGER DAR_cons_unitO
265    #endif
266    
267    #ifdef CALC_RATE_TOTALS
268          COMMON /DARWIN_RATE_TOT/
269         &      DAR_ratetot_unit, DAR_fluxtot_unit
270           INTEGER DAR_ratetot_unit
271           INTEGER DAR_fluxtot_unit
272  #endif  #endif
273    
274  #ifdef ALLOW_PAR_DAY  #ifdef ALLOW_PAR_DAY
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22