/[MITgcm]/MITgcm/pkg/autodiff/g_common.h
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/g_common.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by heimbach, Thu Mar 6 23:47:46 2003 UTC revision 1.3 by heimbach, Wed Feb 9 21:20:43 2005 UTC
# Line 1  Line 1 
1    C--   These common blocks are extracted from the
2    C--   automatically created tangent linear code.
3    C--   You need to make sure that they are up-to-date
4    C--   (i.e. in right order), and customize them
5    C--   accordingly.
6    C--
7    C--   heimbach@mit.edu 11-Jan-2001
8    
9  #ifdef ALLOW_AUTODIFF_MONITOR  #ifdef ALLOW_AUTODIFF_MONITOR
10    
    These lines are uncommented on purpose to provoke  
    a model crash. You need to customize this header file  
    to your problem.  
    These common blocks are extracted from the  
    automatically created tangent linear code.  
    You need to make sure that they are up-to-date  
    (i.e. in right order), and customize them  
    accordingly.  
   
    heimbach@mit.edu 11-Jan-2001  
   
11        common /g_dynvars_r/        common /g_dynvars_r/
12       &                     g_etan,       &                     g_etan,
13       &                     g_uvel, g_vvel, g_wvel,       &                     g_uvel, g_vvel, g_wvel,
# Line 33  Line 29 
29        _RL g_vvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_vvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
30        _RL g_wvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_wvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
31    
32    #ifdef ALLOW_CD_CODE
33        common /g_dynvars_cd/        common /g_dynvars_cd/
34       &                      g_uveld, g_vveld,       &                      g_uveld, g_vveld,
35       &                      g_etanm1,       &                      g_etanm1,
# Line 45  Line 42 
42        _RL g_vnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_vnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
43        _RL g_gucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_gucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
44        _RL g_gvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)        _RL g_gvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
45    #endif
 cph      common /g_tr1_r/  
 cph     &                 g_tr1, g_gtr1, g_gtr1nm1  
 cph      _RL g_gtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
 cph      _RL g_gtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
 cph      _RL g_tr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)  
46    
47        common /g_ffields/        common /g_ffields/
48       &                   g_fu, g_fv       &                   g_fu, g_fv
# Line 63  cph     &                 , g_sst, g_sss Line 55  cph     &                 , g_sst, g_sss
55  cph      _RL g_sst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  cph      _RL g_sst(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
56  cph      _RL g_sss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)  cph      _RL g_sss(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
57    
58  #endif /* ALLOW_AUTODIFF_MONITOR */  #ifdef ALLOW_EXF
59          _RL g_hflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
60          _RL g_sflux(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
61          common /g_exf_hsflux_r/ g_hflux, g_sflux
62          _RL g_ustress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
63          _RL g_vstress(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
64          common /g_exf_stress_r/ g_ustress, g_vstress
65    # ifdef ALLOW_ATEMP
66          _RL g_atemp     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
67          _RL g_aqh       (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
68          _RL g_lwflux    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
69          _RL g_precip    (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
70          common /g_exf_atm_temp_r/ g_atemp, g_aqh, g_lwflux, g_precip
71    # endif
72    # ifdef ALLOW_ATM_WIND
73          _RL g_uwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
74          _RL g_vwind     (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
75          common /g_exf_atm_wind_r/ g_uwind, g_vwind
76    # endif
77    #endif
78    
79    #endif ALLOW_AUTODIFF_MONITOR
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22