/[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.21 by gforget, Fri May 30 02:47:50 2008 UTC revision 1.22 by mlosch, Thu Oct 8 08:18:21 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,3,nsx,nsy)        _RL adarea(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
161        common /adseaice_dynvars_1/ adarea        common /adseaice_dynvars_1/ adarea
162  c  c
163        _RL adheff(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)        _RL adheff(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
164        _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)        _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
165        common /adseaice_trans/ adheff, adhsnow        common /adseaice_trans/ adheff, adhsnow
166  # ifdef SEAICE_ALLOW_DYNAMICS  # ifdef SEAICE_ALLOW_DYNAMICS
167        _RL aduice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)        _RL aduice(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
168        _RL advice(1-olx:snx+olx,1-oly:sny+oly,3,nsx,nsy)        _RL advice(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
169        common /adseaice_dynvars_2/ aduice, advice        common /adseaice_dynvars_2/ aduice, advice
170  # endif  # endif
171  #endif  #endif
Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22