/[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.62 by jmc, Mon Oct 18 21:36:08 2004 UTC revision 1.69 by baylor, Thu Mar 10 03:45:11 2005 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
# Line 24  C     !USES: Line 25  C     !USES:
25  #include "SIZE.h"  #include "SIZE.h"
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "PARAMS.h"  #include "PARAMS.h"
 #ifdef ALLOW_MNC  
 #include "MNC_PARAMS.h"  
 #endif  
28  #include "EOS.h"  #include "EOS.h"
29  #include "GRID.h"  #include "GRID.h"
30  #include "DYNVARS.h"  #include "DYNVARS.h"
31    #ifdef ALLOW_MNC
32    #include "MNC_PARAMS.h"
33    #endif
34    
35  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
36  C     myThid ::  Number of this instance of CONFIG_SUMMARY  C     myThid ::  Number of this instance of CONFIG_SUMMARY
# Line 95  C     zcoord :: Line 96  C     zcoord ::
96       &'   /* Reference salinity profile ( ppt ) */')       &'   /* Reference salinity profile ( ppt ) */')
97        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',
98       &'   /* Lateral eddy viscosity ( m^2/s ) */')       &'   /* Lateral eddy viscosity ( m^2/s ) */')
99          IF ( viscAhD.NE.viscAh )
100         & CALL WRITE_0D_R8( viscAhD, INDEX_NONE,'viscAhD =',
101         & '  /* Lateral eddy viscosity (Divergence)( m^2/s ) */')
102          IF ( viscAhZ.NE.viscAh )
103         & CALL WRITE_0D_R8( viscAhZ, INDEX_NONE,'viscAhZ =',
104         & '  /* Lateral eddy viscosity (Vorticity) ( m^2/s ) */')
105        CALL WRITE_0D_R8( viscAhMax, INDEX_NONE,'viscAhMax =',        CALL WRITE_0D_R8( viscAhMax, INDEX_NONE,'viscAhMax =',
106       &'   /* Maximum lateral eddy viscosity ( m^2/s ) */')       &'   /* Maximum lateral eddy viscosity ( m^2/s ) */')
107        CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =',        CALL WRITE_0D_R8( viscAhGrid, INDEX_NONE,'viscAhGrid =',
108       &'   /* Grid dependent lateral eddy viscosity ( non-dim. ) */')       &'   /* Grid dependent lateral eddy viscosity ( non-dim. ) */')
109          CALL WRITE_0D_L( useFullLeith, INDEX_NONE,
110         &'useFullLeith =',
111         &'   /* Use Full Form of Leith Viscosity on/off flag*/')
112        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',        CALL WRITE_0D_R8( viscC2leith, INDEX_NONE,'viscC2leith =',
113       &'   /* Leith harmonic viscosity factor ( non-dom. ) */')       &'   /* Leith harmonic viscosity factor ( on grad(vort), non-dim. ) */')
114          CALL WRITE_0D_R8( viscC2leithD, INDEX_NONE,'viscC2leithD =',
115         &'   /* Leith harmonic viscosity factor ( on grad(div), non-dim. ) */')
116          CALL WRITE_0D_R8( viscC2smag, INDEX_NONE,'viscC2smag =',
117         &'   /* Smagorinsky harmonic viscosity factor (non-dim.) */')
118        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscA4 =',
119       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')
120          IF ( viscA4D.NE.viscA4 )
121         & CALL WRITE_0D_R8( viscA4D, INDEX_NONE,'viscA4D =',
122         & '  /* Lateral biharmonic viscosity (Divergence)( m^4/s ) */')
123          IF ( viscA4Z.NE.viscA4 )
124         & CALL WRITE_0D_R8( viscA4Z, INDEX_NONE,'viscA4Z =',
125         & '  /* Lateral biharmonic viscosity (Vorticity) ( m^4/s ) */')
126        CALL WRITE_0D_R8( viscA4Max, INDEX_NONE,'viscA4Max =',        CALL WRITE_0D_R8( viscA4Max, INDEX_NONE,'viscA4Max =',
127       &'   /* Maximum biharmonic viscosity ( m^2/s ) */')       &'   /* Maximum biharmonic viscosity ( m^2/s ) */')
128        CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',        CALL WRITE_0D_R8( viscA4Grid, INDEX_NONE,'viscA4Grid =',
129       &'   /* Grid dependent biharmonic viscosity ( non-dim. ) */')       &'   /* Grid dependent biharmonic viscosity ( non-dim. ) */')
130        CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =',        CALL WRITE_0D_R8( viscC4leith, INDEX_NONE,'viscC4leith =',
131       &'   /* Leith biharmonic viscosity factor ( non-dom. ) */')       &'   /* Leith biharmonic viscosity factor ( on grad(vort), non-dom. ) */')
132          CALL WRITE_0D_R8( viscC4leithD, INDEX_NONE,'viscC4leithD =',
133         &'   /* Leith biharmonic viscosity factor ( on grad(div), non-dom. ) */')
134        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
135       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')       & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')
136        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',
# Line 234  C     zcoord :: Line 256  C     zcoord ::
256        CALL WRITE_0D_R8( salt_EvPrRn, INDEX_NONE,        CALL WRITE_0D_R8( salt_EvPrRn, INDEX_NONE,
257       &'salt_EvPrRn =',       &'salt_EvPrRn =',
258       &' /* Salin. of Evap/Prec/R (UNSET=use local S)(ppt)*/')       &' /* Salin. of Evap/Prec/R (UNSET=use local S)(ppt)*/')
       CALL WRITE_0D_R8( trac_EvPrRn, INDEX_NONE,  
      &'trac_EvPrRn =',  
      &' /* Tracer in Evap/Prec/R (UNSET=use local Tr)*/')  
259        ELSE        ELSE
260        CALL WRITE_0D_R8( convertFW2Salt, INDEX_NONE,        CALL WRITE_0D_R8( convertFW2Salt, INDEX_NONE,
261       &'convertFW2Salt =',       &'convertFW2Salt =',
# Line 345  C     zcoord :: Line 364  C     zcoord ::
364       &'   /* Momentum equation timestep ( s ) */')       &'   /* Momentum equation timestep ( s ) */')
365        CALL WRITE_0D_R8( deltaTfreesurf,INDEX_NONE,'deltaTfreesurf =',        CALL WRITE_0D_R8( deltaTfreesurf,INDEX_NONE,'deltaTfreesurf =',
366       &'   /* FreeSurface equation timestep ( s ) */')       &'   /* FreeSurface equation timestep ( s ) */')
367        CALL WRITE_0D_R8( deltaTtracer, INDEX_NONE,'deltatTtracer =',        CALL WRITE_1D_R8( dTtracerLev, Nr, INDEX_K, 'dTtracerLev =',
368       &'   /* Tracer equation timestep ( s ) */')       &'   /* Tracer equation timestep ( s ) */')
369        CALL WRITE_0D_R8( deltaTClock, INDEX_NONE,'deltatTClock  =',        CALL WRITE_0D_R8( deltaTClock, INDEX_NONE,'deltatTClock  =',
370       &'   /* Model clock timestep ( s ) */')       &'   /* Model clock timestep ( s ) */')
Legend:
Removed from v.1.62  
changed lines
  Added in v.1.69
  ViewVC Help
Powered by ViewVC 1.1.22