/[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.36 by jmc, Fri Dec 29 00:20:12 2006 UTC revision 1.37 by heimbach, Sat Jan 6 22:30:17 2007 UTC
# Line 146  C     theta is dumped or time-averaged. Line 146  C     theta is dumped or time-averaged.
146  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
147  CADJ STORE atemp,aqh,precip    = comlev1, key = ikey_dynamics  CADJ STORE atemp,aqh,precip    = comlev1, key = ikey_dynamics
148  CADJ STORE swdown,lwdown       = comlev1, key = ikey_dynamics  CADJ STORE swdown,lwdown       = comlev1, key = ikey_dynamics
149  cphCADJ STORE theta               = comlev1, key = ikey_dynamics  CADJ STORE theta               = comlev1, key = ikey_dynamics
150  cph# ifdef EXF_READ_EVAP  cph# ifdef EXF_READ_EVAP
151  CADJ STORE evap                = comlev1, key = ikey_dynamics  CADJ STORE evap                = comlev1, key = ikey_dynamics
152  cph# endif  cph# endif
# Line 155  CADJ STORE uvel,vvel           = comlev1 Line 155  CADJ STORE uvel,vvel           = comlev1
155  cph# endif  cph# endif
156  # ifdef SEAICE_CGRID  # ifdef SEAICE_CGRID
157  CADJ STORE fu, fv              = comlev1, key = ikey_dynamics  CADJ STORE fu, fv              = comlev1, key = ikey_dynamics
 CADJ STORE siceload            = comlev1, key = ikey_dynamics  
158  CADJ STORE seaicemasku         = comlev1, key = ikey_dynamics  CADJ STORE seaicemasku         = comlev1, key = ikey_dynamics
159  CADJ STORE seaicemaskv         = comlev1, key = ikey_dynamics  CADJ STORE seaicemaskv         = comlev1, key = ikey_dynamics
160    #  ifdef ATMOSPHERIC_LOADING
161    CADJ STORE siceload            = comlev1, key = ikey_dynamics
162    #  endif
163  # endif  # endif
164  #endif  #endif
165  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22