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

Diff of /MITgcm_contrib/darwin2/pkg/darwin/SPECTRAL.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.3 by jahn, Thu Aug 9 21:18:53 2012 UTC
# Line 5  C SPECTRAL.h Line 5  C SPECTRAL.h
5  C description: spectral runtime parameters and fields  C description: spectral runtime parameters and fields
6    
7  C  darwin_waves         :: 'central' wavelengths of wavebands (nm)  C  darwin_waves         :: 'central' wavelengths of wavebands (nm)
8        COMMON/SPECTRAL_PARAMS_R/darwin_waves  C  darwin_wavebands     :: waveband boundaries (nm)
9          COMMON/SPECTRAL_PARAMS_R/darwin_waves, darwin_wavebands
10        _RL darwin_waves(tlam)        _RL darwin_waves(tlam)
11          _RL darwin_wavebands(tlam+1)
12    
13  C WtouEins    :: W to uEin/s conversion factor  C WtouEins    :: W to uEin/s conversion factor
14        COMMON/darwin_oasim/ WtouEins        COMMON/darwin_oasim/ WtouEins
# Line 24  C oasim_es :: spectral diffuse downwelli Line 26  C oasim_es :: spectral diffuse downwelli
26  #ifdef DAR_DIAG_IRR  #ifdef DAR_DIAG_IRR
27       &      Edave,Esave,Euave,Eutave,       &      Edave,Esave,Euave,Eutave,
28  #endif  #endif
29    #ifdef DAR_DIAG_IRR_AMPS
30         &      c1ave,c2ave,
31    #endif
32  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
33       &      aave,       &      aave,
34  #endif  #endif
# Line 36  C oasim_es :: spectral diffuse downwelli Line 41  C oasim_es :: spectral diffuse downwelli
41       &      btpartave,       &      btpartave,
42       &      bbpartave,       &      bbpartave,
43  #endif  #endif
44       &      spectral_output_dummy       &      rmudave
45    
46  #ifdef DAR_DIAG_IRR  #ifdef DAR_DIAG_IRR
47         _RL  Edave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  Edave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
# Line 44  C oasim_es :: spectral diffuse downwelli Line 49  C oasim_es :: spectral diffuse downwelli
49         _RL  Euave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  Euave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
50         _RL  Eutave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  Eutave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
51  #endif  #endif
52    #ifdef DAR_DIAG_IRR_AMPS
53           _RL  c1ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
54           _RL  c2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
55    #endif
56  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
57         _RL  aave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  aave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
58  #endif  #endif
# Line 56  C oasim_es :: spectral diffuse downwelli Line 65  C oasim_es :: spectral diffuse downwelli
65         _RL  bbpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  bbpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
66         _RL  btpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  btpartave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
67  #endif  #endif
68         _RL  spectral_output_dummy         _RL  rmudave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
69    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22