/[MITgcm]/MITgcm_contrib/torge/itd/code/seaice_summary.F
ViewVC logotype

Diff of /MITgcm_contrib/torge/itd/code/seaice_summary.F

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

revision 1.1 by dimitri, Fri Apr 27 22:22:17 2012 UTC revision 1.2 by dimitri, Fri Apr 27 22:25:23 2012 UTC
# Line 378  c Line 378  c
378        CALL WRITE_0D_L ( SEAICEheatConsFix,  INDEX_NONE,        CALL WRITE_0D_L ( SEAICEheatConsFix,  INDEX_NONE,
379       & 'SEAICEheatConsFix  =',       & 'SEAICEheatConsFix  =',
380       & ' /* accound for ocn<->seaice advect. heat flux */')       & ' /* accound for ocn<->seaice advect. heat flux */')
381    CToM<<<
382    #ifdef SEAICE_ITD
383          CALL WRITE_0D_I (SEAICE_multDim,INDEX_NONE,'nITD              ='
384         & , ' /* number of ice thickness categories */')
385    #else
386    CToM>>>      
387        CALL WRITE_0D_I (SEAICE_multDim,INDEX_NONE,'SEAICE_multDim    ='        CALL WRITE_0D_I (SEAICE_multDim,INDEX_NONE,'SEAICE_multDim    ='
388       & , ' /* number of ice categories (1 or 7) */')       & , ' /* number of ice categories (1 or 7) */')
389    CToM<<<
390    #endif
391    CToM>>>      
392        CALL WRITE_0D_I ( IMAX_TICE,         INDEX_NONE,        CALL WRITE_0D_I ( IMAX_TICE,         INDEX_NONE,
393       & 'IMAX_TICE         =', ' /* iterations for ice surface temp */')       & 'IMAX_TICE         =', ' /* iterations for ice surface temp */')
394        CALL WRITE_0D_I ( postSolvTempIter,  INDEX_NONE,        CALL WRITE_0D_I ( postSolvTempIter,  INDEX_NONE,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22