/[MITgcm]/MITgcm/pkg/autodiff/adcommon.h
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/adcommon.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.38 by mmazloff, Thu Oct 13 23:04:14 2016 UTC revision 1.39 by jmc, Sat Dec 2 16:46:32 2017 UTC
# Line 14  C--   heimbach@mit.edu 11-Jan-2001 Line 14  C--   heimbach@mit.edu 11-Jan-2001
14       &                     adetan,       &                     adetan,
15       &                     aduvel, advvel, adwvel,       &                     aduvel, advvel, adwvel,
16       &                     adtheta, adsalt,       &                     adtheta, adsalt,
17       &                     adgu, adgv,       &                     adgu, adgv,
18  #ifdef ALLOW_ADAMSBASHFORTH_3  #ifdef ALLOW_ADAMSBASHFORTH_3
19       &                     adgunm, adgvnm, adgtnm, adgsnm       &                     adgunm, adgvnm, adgtnm, adgsnm
20  #else  #else
# Line 75  C--   heimbach@mit.edu 11-Jan-2001 Line 75  C--   heimbach@mit.edu 11-Jan-2001
75        COMMON /adffields_SSS/ adSSS        COMMON /adffields_SSS/ adSSS
76        COMMON /adffields_lambdaThetaClimRelax/ adlambdaThetaClimRelax        COMMON /adffields_lambdaThetaClimRelax/ adlambdaThetaClimRelax
77        COMMON /adffields_lambdaSaltClimRelax/ adlambdaSaltClimRelax        COMMON /adffields_lambdaSaltClimRelax/ adlambdaSaltClimRelax
 #ifdef ATMOSPHERIC_LOADING  
       COMMON /adffields_pload/ adpload  
       COMMON /adffields_sIceLoad/ adsIceLoad  
 #endif  
   
78        _RS  adfu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adfu       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
79        _RS  adfv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adfv       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
80        _RS  adQnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adQnet     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 92  C--   heimbach@mit.edu 11-Jan-2001 Line 87  C--   heimbach@mit.edu 11-Jan-2001
87       &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)       &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
88        _RS  adlambdaSaltClimRelax        _RS  adlambdaSaltClimRelax
89       &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)       &    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
90    
91  #ifdef ATMOSPHERIC_LOADING  #ifdef ATMOSPHERIC_LOADING
92          COMMON /adffields_pload/ adpload
93          COMMON /adffields_sIceLoad/ adsIceLoad
94        _RS  adpload    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adpload    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
95        _RS  adsIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  adsIceLoad (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
96  #endif  #endif
# Line 138  C--   heimbach@mit.edu 11-Jan-2001 Line 136  C--   heimbach@mit.edu 11-Jan-2001
136    
137  # ifdef ALLOW_RUNOFF  # ifdef ALLOW_RUNOFF
138        _RL adrunoff    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adrunoff    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
139        common /adexf_runoff_r/ adrunoff        _RL adrunoff0   (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
140          _RL adrunoff1   (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
141          common /exfl_runoff_r_ad/ adrunoff, adrunoff0, adrunoff1
142  # endif  # endif
143    
144  # ifdef ALLOW_ATM_TEMP  # ifdef ALLOW_ATM_TEMP
145        _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adatemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
146        _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adaqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
147          _RL adhs        (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
148          _RL adhl        (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
149        _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adlwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
150          _RL adevap      (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
151        _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adprecip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
152        common /adexf_atm_temp_r/ adatemp, adaqh, adlwflux,        _RL adsnowprecip(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
153       & adprecip        common /adexf_atm_temp_r/ adatemp, adaqh, adhs, adhl,
154         & adlwflux, adevap, adprecip, adsnowprecip
155  #  ifdef SHORTWAVE_HEATING  #  ifdef SHORTWAVE_HEATING
156        _RL adswflux    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL adswflux    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
157        common /adexf_swflux_r/ adswflux        common /adexf_swflux_r/ adswflux
158  #  endif  #  endif
159  # endif  # endif /* ALLOW_ATM_TEMP */
160    
161        _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL aduwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
162        _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL advwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
# Line 161  C--   heimbach@mit.edu 11-Jan-2001 Line 165  C--   heimbach@mit.edu 11-Jan-2001
165  # ifdef ALLOW_DOWNWARD_RADIATION  # ifdef ALLOW_DOWNWARD_RADIATION
166        _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adswdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
167        _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adlwdown    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
168        common /adexf_rad_down_r/        common /adexf_rad_down_r/ adswdown, adlwdown
      &     adswdown, adlwdown  
169  # endif  # endif
170  # ifdef ALLOW_CLIMSST_RELAXATION  # ifdef ALLOW_CLIMSST_RELAXATION
171        _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adclimsst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
# Line 185  C--   heimbach@mit.edu 11-Jan-2001 Line 188  C--   heimbach@mit.edu 11-Jan-2001
188       &     adarea, adheff, adhsnow, aduice, advice       &     adarea, adheff, adhsnow, aduice, advice
189  # ifdef SEAICE_VARIABLE_SALINITY  # ifdef SEAICE_VARIABLE_SALINITY
190        _RL adhsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL adhsalt (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
191        common /seaice_salinity_r/        common /seaice_salinity_r/ adhsalt
      &     adhsalt  
192  # endif  # endif
193  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
194    
195  #ifdef ALLOW_GGL90  #ifdef ALLOW_GGL90
196        _RL adggl90tke     (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adggl90tke     (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
197        _RL adggl90diffkr  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL adggl90diffkr  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
198        common /adggl90_fields/        common /adggl90_fields/ adggl90tke, adggl90diffkr
      &     adggl90tke, adggl90diffkr  
199  #endif  #endif
200    
201  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39
  ViewVC Help
Powered by ViewVC 1.1.22