/[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.20 by gforget, Sat Feb 2 02:35:26 2008 UTC revision 1.22 by mlosch, Thu Oct 8 08:18:21 2009 UTC
# Line 112  C--   heimbach@mit.edu 11-Jan-2001 Line 112  C--   heimbach@mit.edu 11-Jan-2001
112       &                adbottomdragfld       &                adbottomdragfld
113        _RL  adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL  adbottomdragfld (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
114  #endif  #endif
115  #if (defined (ALLOW_EDTAUX_CONTROL) || defined (ALLOW_EDTAUY_CONTROL))  #ifdef ALLOW_EDDYPSI_CONTROL
116        double precision adeddytaux(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,        double precision adeddypsix(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
117       $nsy)       $nsy)
118        double precision adeddytauy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,        double precision adeddypsiy(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,
119       $nsy)       $nsy)
120        common /adedtauffields/ adeddytaux, adeddytauy        common /adeddypsiffields/ adeddypsix, adeddypsiy
121    
122  #endif  #endif
123    
# 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.20  
changed lines
  Added in v.1.22
  ViewVC Help
Powered by ViewVC 1.1.22