/[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.4 by jahn, Thu Aug 23 21:48:24 2012 UTC revision 1.5 by stephd, Tue Oct 23 17:55:30 2012 UTC
# Line 23  C oasim_es :: spectral diffuse downwelli Line 23  C oasim_es :: spectral diffuse downwelli
23  #endif  #endif
24    
25        COMMON /SPECTRAL_OUPUT/        COMMON /SPECTRAL_OUPUT/
26    #ifdef DAR_DIAG_PARW
27         &      PARwave,
28    #endif
29  #ifdef DAR_DIAG_IRR  #ifdef DAR_DIAG_IRR
30       &      Edave,Esave,Euave,Estave,Eutave,       &      Edave,Esave,Euave,Estave,Eutave,
31  #endif  #endif
# Line 41  C oasim_es :: spectral diffuse downwelli Line 44  C oasim_es :: spectral diffuse downwelli
44       &      btpartave,       &      btpartave,
45       &      bbpartave,       &      bbpartave,
46  #endif  #endif
47    #ifdef DAR_DIAG_EK
48         &      Ek_nlave,
49         &      EkoverE_nlave,
50    #endif
51       &      rmudave       &      rmudave
52    
53    #ifdef DAR_DIAG_PARW
54           _RL  PARwave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,tlam)
55    #endif
56    
57  #ifdef DAR_DIAG_IRR  #ifdef DAR_DIAG_IRR
58         _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)
59         _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)
# Line 66  C oasim_es :: spectral diffuse downwelli Line 77  C oasim_es :: spectral diffuse downwelli
77         _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)
78         _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)
79  #endif  #endif
80    #ifdef DAR_DIAG_EK
81           _RL  Ek_nlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,npmax,
82         &              tlam)
83           _RL  EkoverE_nlave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nR,nSx, nSy,
84         &                   npmax,tlam)
85    #endif
86         _RL  rmudave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)         _RL  rmudave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
87    
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22