/[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.22 by mlosch, Thu Oct 8 08:18:21 2009 UTC revision 1.23 by mlosch, Thu Oct 22 12:35:51 2009 UTC
# Line 157  C--   heimbach@mit.edu 11-Jan-2001 Line 157  C--   heimbach@mit.edu 11-Jan-2001
157  #endif  #endif
158    
159  #ifdef ALLOW_SEAICE  #ifdef ALLOW_SEAICE
160        _RL adarea(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adarea  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
161        common /adseaice_dynvars_1/ adarea        _RL adheff  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
162  c        _RL adhsnow (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
163        _RL adheff(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL aduice  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
164        _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL advice  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
165        common /adseaice_trans/ adheff, adhsnow        common /adseaice_dynvars_1/
166  # ifdef SEAICE_ALLOW_DYNAMICS       &     adarea, adheff, adhsnow, aduice, advice
       _RL aduice(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
       _RL advice(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  
       common /adseaice_dynvars_2/ aduice, advice  
 # endif  
167  #endif  #endif
168    
169  #ifdef ALLOW_DEPTH_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22