/[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.23 by mlosch, Thu Oct 22 12:35:51 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        _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,3,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,3,nsx,nsy)  
       _RL advice(1-olx:snx+olx,1-oly:sny+oly,3,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.20  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22