/[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.40 by jmc, Mon Mar 17 17:10:42 2003 UTC revision 1.41 by jmc, Thu Apr 17 13:16:23 2003 UTC
# Line 260  CEOP Line 260  CEOP
260       & 'saltForcing  =', '  /* Salinity forcing on/off flag */')       & 'saltForcing  =', '  /* Salinity forcing on/off flag */')
261        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,
262       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')
263          CALL WRITE_0D_L( useCDscheme,  INDEX_NONE,
264         & 'useCDscheme =', '  /* CD scheme on/off flag */')
265          CALL WRITE_0D_L( useJamartWetPoints,  INDEX_NONE,
266         & 'useJamartWetPoints=',' /* Coriolis WetPoints method flag */')
267        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
268        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
269       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
# Line 307  CEOP Line 311  CEOP
311       &'   /* put T,S Forcing in Adams-Bash. stepping */')       &'   /* put T,S Forcing in Adams-Bash. stepping */')
312        CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =',        CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =',
313       &'   /* Adams-Bashforth stabilizing weight */')       &'   /* Adams-Bashforth stabilizing weight */')
314          IF (useCDscheme) THEN
315        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',
316       &'   /* CD coupling time-scale ( s ) */')       &'   /* CD coupling time-scale ( s ) */')
317        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',
318       &'   /* Normalised CD coupling parameter */')       &'   /* Normalised CD coupling parameter */')
319          ENDIF
320        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',
321       &'   /* Run start time ( s ). */')       &'   /* Run start time ( s ). */')
322        CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =',        CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =',
Legend:
Removed from v.1.40  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22