/[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.101 by jmc, Tue Jan 8 00:27:42 2008 UTC revision 1.102 by jmc, Fri Jan 18 21:23:28 2008 UTC
# Line 43  C     !FUNCTIONS: Line 43  C     !FUNCTIONS:
43    
44  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
45  C     msgBuf :: Temp. for building output string.  C     msgBuf :: Temp. for building output string.
46    C     rUnits :: vertical coordinate units
47  C     I,J,K  :: Loop counters.  C     I,J,K  :: Loop counters.
48  C     bi,bj  :: Tile loop counters.  C     bi,bj  :: Tile loop counters.
49  C     xcoord :: Temps. for building lists of values for uni-dimensionally  C     xcoord :: Temps. for building lists of values for uni-dimensionally
50  C     ycoord :: varying parameters.  C     ycoord :: varying parameters.
51        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
52          CHARACTER*2 rUnits
53        INTEGER                  I,J,K        INTEGER                  I,J,K
54        INTEGER                  bi, bj        INTEGER                  bi, bj
55        _RL                     xcoord(Nx)        _RL                     xcoord(Nx)
# Line 60  C     ycoord :: varying parameters. Line 62  C     ycoord :: varying parameters.
62        _BARRIER        _BARRIER
63        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
64    
65          rUnits = ' m'
66          IF ( usingPCoords ) rUnits = 'Pa'
67    
68        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
69       &'// ======================================================='       &'// ======================================================='
70        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
# Line 146  C     ycoord :: varying parameters. Line 151  C     ycoord :: varying parameters.
151        CALL WRITE_0D_R8( sideDragFactor, INDEX_NONE, 'sideDragFactor =',        CALL WRITE_0D_R8( sideDragFactor, INDEX_NONE, 'sideDragFactor =',
152       & ' /* side-drag scaling factor (non-dim) */')       & ' /* side-drag scaling factor (non-dim) */')
153        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',        CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',
154       &'   /* Vertical eddy viscosity ( units of r^2/s ) */')       &'   /* Vertical eddy viscosity ('//rUnits//'^2/s ) */')
155        CALL WRITE_0D_L( no_slip_bottom, INDEX_NONE,        CALL WRITE_0D_L( no_slip_bottom, INDEX_NONE,
156       & 'no_slip_bottom =', '  /* Viscous BCs: No-slip bottom */')       & 'no_slip_bottom =', '  /* Viscous BCs: No-slip bottom */')
157        CALL WRITE_0D_R8( bottomDragLinear, INDEX_NONE,        CALL WRITE_0D_R8( bottomDragLinear, INDEX_NONE,
158       & 'bottomDragLinear =',       & 'bottomDragLinear =',
159       & ' /* linear bottom-drag coefficient ( 1/s ) */')       & ' /* linear bottom-drag coefficient ('//rUnits//'/s ) */')
160        CALL WRITE_0D_R8( bottomDragQuadratic, INDEX_NONE,        CALL WRITE_0D_R8( bottomDragQuadratic, INDEX_NONE,
161       & 'bottomDragQuadratic =',       & 'bottomDragQuadratic =',
162       & ' /* quadratic bottom-drag coeff. ( 1/m ) */')       & ' /* quadratic bottom-drag coeff. ('//rUnits//'/m ) */')
163        CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =',        CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =',
164       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')
165        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',
166       &'   /* Bihaarmonic diffusion of heat laterally ( m^4/s ) */')       &'   /* Biharmonic diffusion of heat laterally ( m^4/s ) */')
167        CALL WRITE_0D_R8( diffKhS, INDEX_NONE,'diffKhS =',        CALL WRITE_0D_R8( diffKhS, INDEX_NONE,'diffKhS =',
168       &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')
169        CALL WRITE_0D_R8( diffK4S, INDEX_NONE,'diffK4S =',        CALL WRITE_0D_R8( diffK4S, INDEX_NONE,'diffK4S =',
170       &'   /* Bihaarmonic diffusion of salt laterally ( m^4/s ) */')       &'   /* Biharmonic diffusion of salt laterally ( m^4/s ) */')
171        CALL WRITE_1D_R8( diffKrNrT, Nr, INDEX_K,'diffKrNrT =',        CALL WRITE_1D_R8( diffKrNrT, Nr, INDEX_K,'diffKrNrT =',
172       & ' /* vertical profile of vertical diffusion of Temp ( m^2/s )*/')       &  ' /* vertical profile of vertical diffusion of Temp ('
173         &  //rUnits//'^2/s )*/')
174        CALL WRITE_1D_R8( diffKrNrS, Nr, INDEX_K,'diffKrNrS =',        CALL WRITE_1D_R8( diffKrNrS, Nr, INDEX_K,'diffKrNrS =',
175       & ' /* vertical profile of vertical diffusion of Salt ( m^2/s )*/')       &  ' /* vertical profile of vertical diffusion of Salt ('
176         &  //rUnits//'^2/s )*/')
177        CALL WRITE_0D_R8( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',        CALL WRITE_0D_R8( diffKrBL79surf, INDEX_NONE,'diffKrBL79surf =',
178       &'   /* Surface diffusion for Bryan and Lewis 1979 ( m^2/s ) */')       &  ' /* Surface diffusion for Bryan and Lewis 79 ( m^2/s ) */')
179        CALL WRITE_0D_R8( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',        CALL WRITE_0D_R8( diffKrBL79deep, INDEX_NONE,'diffKrBL79deep =',
180       &'   /* Deep diffusion for Bryan and Lewis 1979 ( m^2/s ) */')       &  ' /* Deep diffusion for Bryan and Lewis 1979 ( m^2/s ) */')
181        CALL WRITE_0D_R8( diffKrBL79scl, INDEX_NONE,'diffKrBL79scl =',        CALL WRITE_0D_R8( diffKrBL79scl, INDEX_NONE,'diffKrBL79scl =',
182       &'   /* Depth scale for Bryan and Lewis 1979 ( m ) */')       &  ' /* Depth scale for Bryan and Lewis 1979 ( m ) */')
183        CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',        CALL WRITE_0D_R8( diffKrBL79Ho, INDEX_NONE,'diffKrBL79Ho =',
184       &'   /* Turning depth for Bryan and Lewis 1979 ( m ) */')       &  ' /* Turning depth for Bryan and Lewis 1979 ( m ) */')
185        CALL WRITE_0D_R8( ivdc_kappa, INDEX_NONE,'ivdc_kappa =',        CALL WRITE_0D_R8( ivdc_kappa, INDEX_NONE,'ivdc_kappa =',
186       &  ' /* Implicit Vertical Diffusivity for Convection ( m^2/s ) */')       &  ' /* Implicit Vertical Diffusivity for Convection ('
187         &  //rUnits//'^2/s ) */')
188        CALL WRITE_0D_R8( hMixCriteria, INDEX_NONE,'hMixCriteria=',        CALL WRITE_0D_R8( hMixCriteria, INDEX_NONE,'hMixCriteria=',
189       & '  /* Criteria for mixed-layer diagnostic */')       & '  /* Criteria for mixed-layer diagnostic */')
190        CALL WRITE_0D_C( eosType, 0, INDEX_NONE, 'eosType =',        CALL WRITE_0D_C( eosType, 0, INDEX_NONE, 'eosType =',
# Line 549  C     ycoord :: varying parameters. Line 557  C     ycoord :: varying parameters.
557       & 'usingCurvilinearGrid =',       & 'usingCurvilinearGrid =',
558       & ' /* Curvilinear coordinates flag ( True/False ) */')       & ' /* Curvilinear coordinates flag ( True/False ) */')
559        CALL WRITE_0D_R8( Ro_SeaLevel, INDEX_NONE,'Ro_SeaLevel =',        CALL WRITE_0D_R8( Ro_SeaLevel, INDEX_NONE,'Ro_SeaLevel =',
560       & ' /* r(1) ( units of r ) */')       & ' /* r(1) ( units of r == '//rUnits//' ) */')
561        CALL WRITE_0D_R8( rkSign, INDEX_NONE,'rkSign =',        CALL WRITE_0D_R8( rkSign, INDEX_NONE,'rkSign =',
562       &'   /* index orientation relative to vertical coordinate */')       &'   /* index orientation relative to vertical coordinate */')
563        CALL WRITE_0D_R8( gravitySign, INDEX_NONE,'gravitySign =',        CALL WRITE_0D_R8( gravitySign, INDEX_NONE,'gravitySign =',
Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102
  ViewVC Help
Powered by ViewVC 1.1.22