/[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.3 by jahn, Thu Aug 9 21:18:53 2012 UTC revision 1.4 by jahn, Thu Aug 23 21:48:24 2012 UTC
# Line 24  C oasim_es :: spectral diffuse downwelli Line 24  C oasim_es :: spectral diffuse downwelli
24    
25        COMMON /SPECTRAL_OUPUT/        COMMON /SPECTRAL_OUPUT/
26  #ifdef DAR_DIAG_IRR  #ifdef DAR_DIAG_IRR
27       &      Edave,Esave,Euave,Eutave,       &      Edave,Esave,Euave,Estave,Eutave,
28  #endif  #endif
29  #ifdef DAR_DIAG_IRR_AMPS  #ifdef DAR_DIAG_IRR_AMPS
30       &      c1ave,c2ave,       &      amp1ave,amp2ave,
31  #endif  #endif
32  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
33       &      aave,       &      aave,
# Line 47  C oasim_es :: spectral diffuse downwelli Line 47  C oasim_es :: spectral diffuse downwelli
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)
48         _RL  Esave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  Esave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
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  Estave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
51         _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)
52  #endif  #endif
53  #ifdef DAR_DIAG_IRR_AMPS  #ifdef DAR_DIAG_IRR_AMPS
54         _RL  c1ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  amp1ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
55         _RL  c2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)         _RL  amp2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
56  #endif  #endif
57  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
58         _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)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22