/[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.99 by jmc, Thu Aug 23 19:08:26 2007 UTC revision 1.100 by jmc, Mon Oct 22 13:12:45 2007 UTC
# Line 427  C     ycoord :: varying parameters. Line 427  C     ycoord :: varying parameters.
427        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
428        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
429       &                    SQUEEZE_RIGHT, myThid )       &                    SQUEEZE_RIGHT, myThid )
       CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =',  
      &'   /* Run starting timestep number  */')  
       CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =',  
      &'   /* Number of timesteps */')  
430        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltaTmom =',        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltaTmom =',
431       &'   /* Momentum equation timestep ( s ) */')       &'   /* Momentum equation timestep ( s ) */')
432        CALL WRITE_0D_R8( deltaTfreesurf,INDEX_NONE,'deltaTfreesurf =',        CALL WRITE_0D_R8( deltaTfreesurf,INDEX_NONE,'deltaTfreesurf =',
# Line 466  C     ycoord :: varying parameters. Line 462  C     ycoord :: varying parameters.
462        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',
463       &'   /* Normalised CD coupling parameter */')       &'   /* Normalised CD coupling parameter */')
464        ENDIF        ENDIF
465          I = ILNBLNK(pickupSuff)
466          IF ( I.GT.0 ) THEN
467            CALL WRITE_0D_C( pickupSuff, 0, INDEX_NONE,
468         & 'pickupSuff =', ' /* Suffix of pickup-file to restart from */')
469          ENDIF
470          CALL WRITE_0D_L( pickupStrictlyMatch, INDEX_NONE,
471         & 'pickupStrictlyMatch=',
472         & ' /* stop if pickup do not strictly match */')
473          CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =',
474         &'   /* Run starting timestep number  */')
475          CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =',
476         &'   /* Number of timesteps */')
477        CALL WRITE_0D_R8( baseTime, INDEX_NONE,'baseTime =',        CALL WRITE_0D_R8( baseTime, INDEX_NONE,'baseTime =',
478       &'   /* Model base time ( s ). */')       &'   /* Model base time ( s ). */')
479        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',
Legend:
Removed from v.1.99  
changed lines
  Added in v.1.100
  ViewVC Help
Powered by ViewVC 1.1.22