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

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

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

revision 1.72 by jmc, Wed Apr 6 18:25:31 2005 UTC revision 1.73 by jmc, Fri Apr 15 14:02:08 2005 UTC
# Line 372  C     zcoord :: Line 372  C     zcoord ::
372       &'   /* Convective adjustment interval ( s ) */')       &'   /* Convective adjustment interval ( s ) */')
373        CALL WRITE_0D_L( forcing_In_AB,INDEX_NONE,'forcing_In_AB =',        CALL WRITE_0D_L( forcing_In_AB,INDEX_NONE,'forcing_In_AB =',
374       &'   /* put T,S Forcing in Adams-Bash. stepping */')       &'   /* put T,S Forcing in Adams-Bash. stepping */')
375        CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =',        CALL WRITE_0D_R8( abEps, INDEX_NONE,'abEps =',
376       &'   /* Adams-Bashforth stabilizing weight */')       &'   /* Adams-Bashforth-2 stabilizing weight */')
377    #ifdef ALLOW_ADAMSBASHFORTH_3
378          CALL WRITE_0D_R8( alph_AB, INDEX_NONE,'alph_AB =',
379         &'   /* Adams-Bashforth-3 primary factor */')
380          CALL WRITE_0D_R8( beta_AB, INDEX_NONE,'beta_AB =',
381         &'   /* Adams-Bashforth-3 secondary factor */')
382          CALL WRITE_0D_L( startFromPickupAB2, INDEX_NONE,
383         & 'startFromPickupAB2=',' /* start from AB-2 pickup */')
384    #endif
385        IF (useCDscheme) THEN        IF (useCDscheme) THEN
386        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',
387       &'   /* CD coupling time-scale ( s ) */')       &'   /* CD coupling time-scale ( s ) */')
Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73
  ViewVC Help
Powered by ViewVC 1.1.22