/[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.2 by jahn, Mon Jul 30 15:21:51 2012 UTC
# Line 24  C oasim_es :: spectral diffuse downwelli Line 24  C oasim_es :: spectral diffuse downwelli
24  #ifdef DAR_DIAG_IRR  #ifdef DAR_DIAG_IRR
25       &      Edave,Esave,Euave,Eutave,       &      Edave,Esave,Euave,Eutave,
26  #endif  #endif
27    #ifdef DAR_DIAG_IRR_AMPS
28         &      c1ave,c2ave,
29    #endif
30  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
31       &      aave,       &      aave,
32  #endif  #endif
# Line 36  C oasim_es :: spectral diffuse downwelli Line 39  C oasim_es :: spectral diffuse downwelli
39       &      btpartave,       &      btpartave,
40       &      bbpartave,       &      bbpartave,
41  #endif  #endif
42       &      spectral_output_dummy       &      rmudave
43    
44  #ifdef DAR_DIAG_IRR  #ifdef DAR_DIAG_IRR
45         _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 47  C oasim_es :: spectral diffuse downwelli
47         _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)
48         _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)
49  #endif  #endif
50    #ifdef DAR_DIAG_IRR_AMPS
51           _RL  c1ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
52           _RL  c2ave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx,nSy,tlam)
53    #endif
54  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
55         _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)
56  #endif  #endif
# Line 56  C oasim_es :: spectral diffuse downwelli Line 63  C oasim_es :: spectral diffuse downwelli
63         _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)
64         _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)
65  #endif  #endif
66         _RL  spectral_output_dummy         _RL  rmudave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
67    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22