/[MITgcm]/MITgcm/model/src/do_oceanic_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_oceanic_phys.F

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

revision 1.33 by heimbach, Wed Nov 8 16:01:04 2006 UTC revision 1.34 by heimbach, Thu Dec 14 22:31:18 2006 UTC
# Line 144  C     under sea-ice may not be "exactly" Line 144  C     under sea-ice may not be "exactly"
144  C     theta is dumped or time-averaged.  C     theta is dumped or time-averaged.
145        IF ( useSEAICE ) THEN        IF ( useSEAICE ) THEN
146  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
147  CADJ STORE fu, fv              = comlev1, key = ikey_dynamics  CADJ STORE atemp,aqh,precip    = comlev1, key = ikey_dynamics
148  CADJ STORE qnet,qsw            = comlev1, key = ikey_dynamics  CADJ STORE swdown,lwdown       = comlev1, key = ikey_dynamics
149  CADJ STORE aqh,precip,swdown   = comlev1, key = ikey_dynamics  cphCADJ STORE theta               = comlev1, key = ikey_dynamics
150  CADJ STORE theta               = comlev1, key = ikey_dynamics  cph# ifdef EXF_READ_EVAP
 # ifdef EXF_READ_EVAP  
151  CADJ STORE evap                = comlev1, key = ikey_dynamics  CADJ STORE evap                = comlev1, key = ikey_dynamics
152  # endif  cph# endif
153  cph# ifdef SEAICE_ALLOW_DYNAMICS  cph# ifdef SEAICE_ALLOW_DYNAMICS
154  CADJ STORE uvel,vvel           = comlev1, key = ikey_dynamics  CADJ STORE uvel,vvel           = comlev1, key = ikey_dynamics
155  cph# endif  cph# endif
156    # ifdef SEAICE_CGRID
157    CADJ STORE fu, fv              = comlev1, key = ikey_dynamics
158    CADJ STORE siceload            = comlev1, key = ikey_dynamics
159    CADJ STORE seaicemasku         = comlev1, key = ikey_dynamics
160    CADJ STORE seaicemaskv         = comlev1, key = ikey_dynamics
161    # endif
162  #endif  #endif
163  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
164          IF ( debugLevel .GE. debLevB )          IF ( debugLevel .GE. debLevB )
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22