/[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.3 by heimbach, Mon Oct 22 20:14:13 2012 UTC
# Line 132  C--  Seaice-Dynamics parameters Line 132  C--  Seaice-Dynamics parameters
132        CALL WRITE_0D_L ( SEAICEuseFREEDRIFT, INDEX_NONE,        CALL WRITE_0D_L ( SEAICEuseFREEDRIFT, INDEX_NONE,
133       & 'SEAICEuseFREEDRIFT =', ' /* use free drift solution */')       & 'SEAICEuseFREEDRIFT =', ' /* use free drift solution */')
134  #endif /* SEAICE_ALLOW_FREEDRIFT */  #endif /* SEAICE_ALLOW_FREEDRIFT */
       CALL WRITE_0D_RL( SEAICE_tauAreaObsRelax,INDEX_NONE,  
      & 'SEAICE_tauAreaObsRelax=',  
      & ' /* relaxation timescale of sea-ice concentration */')  
135        CALL WRITE_0D_RL( OCEAN_drag        ,INDEX_NONE,        CALL WRITE_0D_RL( OCEAN_drag        ,INDEX_NONE,
136       & 'OCEAN_drag        =', ' /* air-ocean drag coefficient */')       & 'OCEAN_drag        =', ' /* air-ocean drag coefficient */')
137        CALL WRITE_0D_RL( SEAICE_drag       ,INDEX_NONE,        CALL WRITE_0D_RL( SEAICE_drag       ,INDEX_NONE,
# Line 145  C--  Seaice-Dynamics parameters Line 142  C--  Seaice-Dynamics parameters
142       & 'SEAICE_waterDrag  =', ' /* water-ice drag * density */')       & 'SEAICE_waterDrag  =', ' /* water-ice drag * density */')
143        CALL WRITE_0D_RL( SEAICE_waterDrag_south  ,INDEX_NONE,        CALL WRITE_0D_RL( SEAICE_waterDrag_south  ,INDEX_NONE,
144       & 'SEAICE_waterDrag_south =', ' /* Southern Ocean waterDrag */')       & 'SEAICE_waterDrag_south =', ' /* Southern Ocean waterDrag */')
145          CALL WRITE_0D_L ( SEAICEuseTILT, INDEX_NONE,
146         & 'SEAICEuseTILT     =', ' /* include surface tilt in dyna. */')
147        CALL WRITE_0D_L ( SEAICEuseTEM, INDEX_NONE,        CALL WRITE_0D_L ( SEAICEuseTEM, INDEX_NONE,
148       & 'SEAICEuseTEM      =', ' /* use truncated ellipse rheology */')       & 'SEAICEuseTEM      =', ' /* use truncated ellipse rheology */')
149        CALL WRITE_0D_RL( SEAICE_strength   ,INDEX_NONE,        CALL WRITE_0D_RL( SEAICE_strength   ,INDEX_NONE,
150       & 'SEAICE_strength   =', ' /* sea-ice strength Pstar */')       & 'SEAICE_strength   =', ' /* sea-ice strength Pstar */')
151          CALL WRITE_0D_RL( SEAICEpresH0   ,INDEX_NONE,
152         & 'SEAICEpresH0   =', ' /* sea-ice strength Heff threshold */')
153           CALL WRITE_0D_I ( SEAICEpresPow0,    INDEX_NONE,
154         & 'SEAICEpresPow0 =', ' /* exponent for Heff<SEAICEpresH0 */')
155           CALL WRITE_0D_I ( SEAICEpresPow1,    INDEX_NONE,
156         & 'SEAICEpresPow1 =', ' /* exponent for Heff>SEAICEpresH0 */')
157        CALL WRITE_0D_RL( SEAICE_zetaMin  ,INDEX_NONE,        CALL WRITE_0D_RL( SEAICE_zetaMin  ,INDEX_NONE,
158       & 'SEAICE_zetaMin    =', ' /* lower bound for viscosity */')       & 'SEAICE_zetaMin    =', ' /* lower bound for viscosity */')
159        CALL WRITE_0D_RL( SEAICE_eccen,INDEX_NONE,'SEAICE_eccen    =',        CALL WRITE_0D_RL( SEAICE_eccen,INDEX_NONE,'SEAICE_eccen    =',
# Line 276  c Line 281  c
281        CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )        CALL PRINT_MESSAGE( msgBuf, ioUnit, SQUEEZE_RIGHT, myThid )
282        CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid )        CALL PRINT_MESSAGE(endList, ioUnit, SQUEEZE_RIGHT, myThid )
283  c  c
284    #ifdef EXF_ALLOW_SEAICE_RELAX
285          CALL WRITE_0D_RL( SEAICE_tauAreaObsRelax,INDEX_NONE,
286         & 'SEAICE_tauAreaObsRelax=',
287         & ' /* relaxation timescale of sea-ice concentration */')
288    #endif
289    c
290        CALL WRITE_0D_RL( HO                ,INDEX_NONE,        CALL WRITE_0D_RL( HO                ,INDEX_NONE,
291       & 'HO                =', ' /* nominal thickness of new ice */')       & 'HO                =', ' /* nominal thickness of new ice */')
292        CALL WRITE_0D_RL( HO_south          ,INDEX_NONE,        CALL WRITE_0D_RL( HO_south          ,INDEX_NONE,
# Line 378  c Line 389  c
389        CALL WRITE_0D_L ( SEAICEheatConsFix,  INDEX_NONE,        CALL WRITE_0D_L ( SEAICEheatConsFix,  INDEX_NONE,
390       & 'SEAICEheatConsFix  =',       & 'SEAICEheatConsFix  =',
391       & ' /* accound for ocn<->seaice advect. heat flux */')       & ' /* accound for ocn<->seaice advect. heat flux */')
392    CToM<<<
393    #ifdef SEAICE_ITD
394          CALL WRITE_0D_I (SEAICE_multDim,INDEX_NONE,'nITD              ='
395         & , ' /* number of ice thickness categories */')
396    #else
397    CToM>>>      
398        CALL WRITE_0D_I (SEAICE_multDim,INDEX_NONE,'SEAICE_multDim    ='        CALL WRITE_0D_I (SEAICE_multDim,INDEX_NONE,'SEAICE_multDim    ='
399       & , ' /* number of ice categories (1 or 7) */')       & , ' /* number of ice categories (1 or 7) */')
400    CToM<<<
401    #endif
402    CToM>>>
403        CALL WRITE_0D_I ( IMAX_TICE,         INDEX_NONE,        CALL WRITE_0D_I ( IMAX_TICE,         INDEX_NONE,
404       & 'IMAX_TICE         =', ' /* iterations for ice surface temp */')       & 'IMAX_TICE         =', ' /* iterations for ice surface temp */')
405        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.3
  ViewVC Help
Powered by ViewVC 1.1.22