/[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.38 by jmc, Fri Jan 24 18:26:53 2003 UTC revision 1.41 by jmc, Thu Apr 17 13:16:23 2003 UTC
# Line 163  CEOP Line 163  CEOP
163       &'   /* Gravitational acceleration ( m/s^2 ) */')       &'   /* Gravitational acceleration ( m/s^2 ) */')
164        CALL WRITE_0D_R8( gBaro,   INDEX_NONE,'gBaro =',        CALL WRITE_0D_R8( gBaro,   INDEX_NONE,'gBaro =',
165       &'   /* Barotropic gravity ( m/s^2 ) */')       &'   /* Barotropic gravity ( m/s^2 ) */')
166          CALL WRITE_0D_R8(rotationPeriod,INDEX_NONE,'rotationPeriod =',
167         &'   /* Rotation Period ( s ) */')
168          CALL WRITE_0D_R8( omega,   INDEX_NONE,'omega =',
169         &'   /* Angular velocity ( rad/s ) */')
170        CALL WRITE_0D_R8( f0,      INDEX_NONE,'f0 =',        CALL WRITE_0D_R8( f0,      INDEX_NONE,'f0 =',
171       &'   /* Reference coriolis parameter ( 1/s ) */')       &'   /* Reference coriolis parameter ( 1/s ) */')
172        CALL WRITE_0D_R8( beta,    INDEX_NONE,'beta =',        CALL WRITE_0D_R8( beta,    INDEX_NONE,'beta =',
# Line 204  CEOP Line 208  CEOP
208        CALL WRITE_0D_I( select_rStar, INDEX_NONE,        CALL WRITE_0D_I( select_rStar, INDEX_NONE,
209       &'select_rStar =',       &'select_rStar =',
210       &'   /* r* Coordinate options (not yet implemented)*/')       &'   /* r* Coordinate options (not yet implemented)*/')
       CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,  
      &                    SQUEEZE_RIGHT , 1)  
211        CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE,        CALL WRITE_0D_L( useRealFreshWaterFlux, INDEX_NONE,
212       &'useRealFreshWaterFlux =',       &'useRealFreshWaterFlux =',
213       &'   /* Real Fresh Water Flux on/off flag*/')       &'   /* Real Fresh Water Flux on/off flag*/')
# Line 258  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 305  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.38  
changed lines
  Added in v.1.41
  ViewVC Help
Powered by ViewVC 1.1.22