/[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.19 by jmc, Mon Oct 8 23:50:53 2007 UTC revision 1.21 by gforget, Fri May 30 02:47:50 2008 UTC
# Line 102  C--   heimbach@mit.edu 11-Jan-2001 Line 102  C--   heimbach@mit.edu 11-Jan-2001
102       &                       adkapgm       &                       adkapgm
103        _RL  adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)        _RL  adkapgm (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
104  #endif  #endif
105    #ifdef ALLOW_KAPREDI_CONTROL
106          COMMON /ADDYNVARS_KAPREDI/
107         &                       adkapredi
108          _RL  adkapredi (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
109    #endif
110  #ifdef ALLOW_BOTTOMDRAG_CONTROL  #ifdef ALLOW_BOTTOMDRAG_CONTROL
111        COMMON /ADDYNVARS_BOTTOMDRAG/        COMMON /ADDYNVARS_BOTTOMDRAG/
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    
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22