/[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.36 by adcroft, Thu Oct 10 20:07:37 2002 UTC revision 1.37 by jmc, Tue Dec 10 02:55:47 2002 UTC
# Line 82  CEOP Line 82  CEOP
82        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
83        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
84       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
85          WRITE(msgBuf,'(A,A40)') 'buoyancyRelation = ', buoyancyRelation
86          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
87         &                    SQUEEZE_RIGHT , 1)
88        CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =',        CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =',
89       &'   /* Reference temperature profile ( oC or oK ) */')       &'   /* Reference temperature profile ( oC or oK ) */')
90        CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =',        CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =',
# Line 118  CEOP Line 121  CEOP
121       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
122        CALL WRITE_0D_R8( diffKrS, INDEX_NONE,'diffKrS =',        CALL WRITE_0D_R8( diffKrS, INDEX_NONE,'diffKrS =',
123       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')       &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
124          WRITE(msgBuf,'(2A)') ' Equation of State : eosType = ', eosType
125          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
126         &                    SQUEEZE_RIGHT , 1)
127        CALL WRITE_0D_R8( tAlpha,  INDEX_NONE,'tAlpha =',        CALL WRITE_0D_R8( tAlpha,  INDEX_NONE,'tAlpha =',
128       &'   /* Linear EOS thermal expansion coefficient ( 1/degree ) */')       &'   /* Linear EOS thermal expansion coefficient ( 1/degree ) */')
129        CALL WRITE_0D_R8( sBeta,   INDEX_NONE,'sBeta =',        CALL WRITE_0D_R8( sBeta,   INDEX_NONE,'sBeta =',
# Line 132  CEOP Line 138  CEOP
138       &                    SQUEEZE_RIGHT , 1)       &                    SQUEEZE_RIGHT , 1)
139          ENDDO          ENDDO
140        ENDIF        ENDIF
141          IF ( buoyancyRelation .eq. 'ATMOSPHERIC' ) THEN
142           CALL WRITE_0D_R8( atm_Rd, INDEX_NONE, 'atm_Rd =',
143         & '  /* gas constant for dry air ( J/kg/K ) */')
144          CALL WRITE_0D_R8( atm_Cp, INDEX_NONE, 'atm_Cp =',
145         & '  /* specific heat (Cp) of dry air ( J/kg/K ) */')
146          CALL WRITE_0D_R8( atm_kappa, INDEX_NONE, 'atm_kappa =',
147         & '  /* kappa (=Rd/Cp ) of dry air */')
148          CALL WRITE_0D_R8( atm_Po, INDEX_NONE, 'atm_Po =',
149         & '  /* standard reference pressure ( Pa ) */')
150          CALL WRITE_0D_I( integr_GeoPot, INDEX_NONE, 'integr_GeoPot =',
151         & '  /* select how the geopotential is integrated */')
152          CALL WRITE_0D_I( selectFindRoSurf, INDEX_NONE,
153         & 'selectFindRoSurf=',
154         & '  /* select how Surf.Ref. pressure is defined */')
155          ENDIF
156        CALL WRITE_0D_R8( rhonil,  INDEX_NONE,'rhonil =',        CALL WRITE_0D_R8( rhonil,  INDEX_NONE,'rhonil =',
157       &'   /* Reference density ( kg/m^3 ) */')       &'   /* Reference density ( kg/m^3 ) */')
158        CALL WRITE_0D_R8( rhoConst, INDEX_NONE,'rhoConst =',        CALL WRITE_0D_R8( rhoConst, INDEX_NONE,'rhoConst =',
# Line 267  CEOP Line 288  CEOP
288       &'   /* Number of timesteps */')       &'   /* Number of timesteps */')
289        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltatTmom =',        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltatTmom =',
290       &'   /* Momentum equation timestep ( s ) */')       &'   /* Momentum equation timestep ( s ) */')
291          CALL WRITE_0D_R8( deltaTfreesurf,INDEX_NONE,'deltaTfreesurf =',
292         &'   /* FreeSurface equation timestep ( s ) */')
293        CALL WRITE_0D_R8( deltaTtracer, INDEX_NONE,'deltatTtracer =',        CALL WRITE_0D_R8( deltaTtracer, INDEX_NONE,'deltatTtracer =',
294       &'   /* Tracer equation timestep ( s ) */')       &'   /* Tracer equation timestep ( s ) */')
295        CALL WRITE_0D_R8( deltaTClock, INDEX_NONE,'deltatTClock  =',        CALL WRITE_0D_R8( deltaTClock, INDEX_NONE,'deltatTClock  =',
Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37
  ViewVC Help
Powered by ViewVC 1.1.22