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

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

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

revision 1.7 by jmc, Tue Aug 5 22:02:23 2008 UTC revision 1.8 by heimbach, Fri Feb 13 21:56:48 2009 UTC
# Line 175  C- note (useEBM): needs modifications to Line 175  C- note (useEBM): needs modifications to
175          CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid )          CALL EXTERNAL_FIELDS_LOAD( myTime, myIter, myThid )
176          CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid)          CALL TIMER_STOP ('EXTERNAL_FLDS_LOAD [LOAD_FLDS_DRIVER]',myThid)
177  #ifdef NONLIN_FRSURF  #ifdef NONLIN_FRSURF
178  CADJ STORE SST    = comlev1, key = ikey_dynamics  CADJ STORE SST    = comlev1, key = ikey_dynamics, kind = isbyte
179  CADJ STORE SSS    = comlev1, key = ikey_dynamics  CADJ STORE SSS    = comlev1, key = ikey_dynamics, kind = isbyte
180  # ifdef SHORTWAVE_HEATING  # ifdef SHORTWAVE_HEATING
181  CADJ STORE Qsw    = comlev1, key = ikey_dynamics  CADJ STORE Qsw    = comlev1, key = ikey_dynamics, kind = isbyte
182  # endif  # endif
183  #endif  #endif
184        ENDIF        ENDIF
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22