/[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.6 by cnh, Mon Apr 27 04:24:22 1998 UTC revision 1.28 by jmc, Thu Mar 8 20:22:51 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE CONFIG_SUMMARY( myThid )        SUBROUTINE CONFIG_SUMMARY( myThid )
8  C     /==========================================================\  C     /==========================================================
9  C     | SUBROUTINE CONFIG_SUMMARY                                |  C     | SUBROUTINE CONFIG_SUMMARY                                |
10  C     | o Summarize model prognostic variables.                  |  C     | o Summarize model prognostic variables.                  |
11  C     |==========================================================|  C     |==========================================================|
# Line 17  C     |  2. Under multi-threading the su Line 18  C     |  2. Under multi-threading the su
18  C     |     the master thread. This threads reads data managed by|  C     |     the master thread. This threads reads data managed by|
19  C     |     other threads.                                       |  C     |     other threads.                                       |
20  C     \==========================================================/  C     \==========================================================/
21          IMPLICIT NONE
22    
23  C     === Global variables ===  C     === Global variables ===
24  #include "SIZE.h"  #include "SIZE.h"
# Line 34  C     == Local variables == Line 36  C     == Local variables ==
36        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
37        INTEGER                  I,J,K        INTEGER                  I,J,K
38        INTEGER                  bi, bj        INTEGER                  bi, bj
39        REAL                     xcoord(Nx)        _RL                     xcoord(Nx)
40        REAL                     ycoord(Ny)        _RL                     ycoord(Ny)
41        REAL                     zcoord(Nz)        _RL                     rcoord(Nr)
42          INTEGER coordLine
43          INTEGER tileLine
44    
45    
46        _BARRIER        _BARRIER
# Line 44  C     == Local variables == Line 48  C     == Local variables ==
48    
49        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
50       &'// ======================================================='       &'// ======================================================='
51        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
52         &                    SQUEEZE_RIGHT , 1)
53        WRITE(msgBuf,'(A)') '// Model configuration'        WRITE(msgBuf,'(A)') '// Model configuration'
54        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
55         &                    SQUEEZE_RIGHT , 1)
56        WRITE(msgBuf,'(A)')        WRITE(msgBuf,'(A)')
57       &'// ======================================================='       &'// ======================================================='
58        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
59       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
60    
61        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
62        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
63        WRITE(msgBuf,'(A)') '// "Physical" paramters ( PARM01 in namelist ) '       &                    SQUEEZE_RIGHT , 1)
64        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        WRITE(msgBuf,'(A)')
65         & '// "Physical" paramters ( PARM01 in namelist ) '
66          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
67         &                    SQUEEZE_RIGHT , 1)
68        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
69        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
70        CALL WRITE_1D_R8( tRef, Nz, INDEX_K,'tRef =',       &                    SQUEEZE_RIGHT , 1)
71          CALL WRITE_1D_R8( tRef, Nr, INDEX_K,'tRef =',
72       &'   /* Reference temperature profile ( oC or oK ) */')       &'   /* Reference temperature profile ( oC or oK ) */')
73        CALL WRITE_1D_R8( sRef, Nz, INDEX_K,'sRef =',        CALL WRITE_1D_R8( sRef, Nr, INDEX_K,'sRef =',
74       &'   /* Reference salinity profile ( ppt ) */')       &'   /* Reference salinity profile ( ppt ) */')
75        CALL WRITE_1D_R8( viscAh, 1, INDEX_NONE,'viscAh =',        CALL WRITE_0D_R8( viscAh, INDEX_NONE,'viscAh =',
76       &'   /* Lateral eddy viscosity ( m^2/s ) */')       &'   /* Lateral eddy viscosity ( m^2/s ) */')
77        CALL WRITE_1D_R8( viscAz, 1, INDEX_NONE,'viscAz =',        CALL WRITE_0D_R8( viscA4, INDEX_NONE,'viscAh =',
78       &'   /* Vertical eddy viscosity ( m^2/s ) */')       &'   /* Lateral biharmonic viscosity ( m^4/s ) */')
79        CALL WRITE_1D_R8( diffKhT, 1, INDEX_NONE,'diffKhT =',        CALL WRITE_0D_L( no_slip_sides, INDEX_NONE,
80         & 'no_slip_sides =', '  /* Viscous BCs: No-slip sides */')
81          IF ( viscAz .NE. UNSET_RL ) THEN
82           CALL WRITE_0D_R8( viscAz, INDEX_NONE,'viscAz =',
83         & '   /* Vertical eddy viscosity ( m^2/s ) */')
84          ENDIF
85          IF ( viscAp .NE. UNSET_RL ) THEN
86           CALL WRITE_0D_R8( viscAp, INDEX_NONE,'viscAp =',
87         & '   /* Vertical eddy viscosity ( Pa^2/s ) */')
88          ENDIF
89          CALL WRITE_0D_R8( viscAr,  INDEX_NONE,'viscAr =',
90         &'   /* Vertical eddy viscosity ( units of r^2/s ) */')
91          CALL WRITE_0D_R8( diffKhT, INDEX_NONE,'diffKhT =',
92       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of heat laterally ( m^2/s ) */')
93        CALL WRITE_1D_R8( diffKzT, 1, INDEX_NONE,'diffKzT =',        CALL WRITE_0D_R8( diffK4T, INDEX_NONE,'diffK4T =',
      &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')  
       CALL WRITE_1D_R8( diffK4T, 1, INDEX_NONE,'diffK4T =',  
94       &'   /* Bihaarmonic diffusion of heat laterally ( m^4/s ) */')       &'   /* Bihaarmonic diffusion of heat laterally ( m^4/s ) */')
95        CALL WRITE_1D_R8( diffKhS, 1, INDEX_NONE,'diffKhS =',        CALL WRITE_0D_R8( diffKzT, INDEX_NONE,'diffKzT =',
96         &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')
97          CALL WRITE_0D_R8( diffKrT, INDEX_NONE,'diffKrT =',
98         &'   /* Laplacian diffusion of heat vertically ( m^2/s ) */')
99          CALL WRITE_0D_R8( diffKhS, INDEX_NONE,'diffKhS =',
100       &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')       &'   /* Laplacian diffusion of salt laterally ( m^2/s ) */')
101        CALL WRITE_1D_R8( diffKzS, 1, INDEX_NONE,'diffKzS =',        CALL WRITE_0D_R8( diffK4S, INDEX_NONE,'diffK4S =',
      &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')  
       CALL WRITE_1D_R8( diffK4S, 1, INDEX_NONE,'diffK4S =',  
102       &'   /* Bihaarmonic diffusion of salt laterally ( m^4/s ) */')       &'   /* Bihaarmonic diffusion of salt laterally ( m^4/s ) */')
103        CALL WRITE_1D_R8( tAlpha,1, INDEX_NONE,'tAlpha =',        CALL WRITE_0D_R8( diffKzS, INDEX_NONE,'diffKzS =',
104         &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
105          CALL WRITE_0D_R8( diffKrS, INDEX_NONE,'diffKrS =',
106         &'   /* Laplacian diffusion of salt vertically ( m^2/s ) */')
107          CALL WRITE_0D_R8( tAlpha,  INDEX_NONE,'tAlpha =',
108       &'   /* Linear EOS thermal expansion coefficient ( 1/degree ) */')       &'   /* Linear EOS thermal expansion coefficient ( 1/degree ) */')
109        CALL WRITE_1D_R8( sBeta, 1, INDEX_NONE,'sBeta =',        CALL WRITE_0D_R8( sBeta,   INDEX_NONE,'sBeta =',
110       &'   /* Linear EOS haline contraction coefficient ( 1/ppt ) */')       &'   /* Linear EOS haline contraction coefficient ( 1/ppt ) */')
111        CALL WRITE_1D_R8( rhonil,1, INDEX_NONE,'rhonil =',        IF ( eosType .EQ. 'POLY3' ) THEN
112            WRITE(msgBuf,'(A)')
113         &   '// Polynomial EQS parameters ( from POLY3.COEFFS ) '
114            DO K = 1, Nr
115             WRITE(msgBuf,'(I3,13F8.3)')
116         &   K,eosRefT(K),eosRefS(K),eosSig0(K), (eosC(I,K),I=1,9)
117             CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
118         &                    SQUEEZE_RIGHT , 1)
119            ENDDO
120          ENDIF
121          CALL WRITE_0D_R8( rhonil,  INDEX_NONE,'rhonil =',
122         &'   /* Reference density ( kg/m^3 ) */')
123          CALL WRITE_0D_R8( rhoConst, INDEX_NONE,'rhoConst =',
124       &'   /* Reference density ( kg/m^3 ) */')       &'   /* Reference density ( kg/m^3 ) */')
125        CALL WRITE_1D_R8( gravity,1, INDEX_NONE,'gravity =',        CALL WRITE_0D_R8( gravity, INDEX_NONE,'gravity =',
126       &'   /* Gravitational acceleration ( m/s^2 ) */')       &'   /* Gravitational acceleration ( m/s^2 ) */')
127        CALL WRITE_1D_R8( f0,1, INDEX_NONE,'f0 =',  Cjmc gBaro : no longer used
128    c     CALL WRITE_0D_R8( gBaro,   INDEX_NONE,'gBaro =',
129    c    &'   /* Barotropic gravity ( m/s^2 ) */')
130          CALL WRITE_0D_R8( f0,      INDEX_NONE,'f0 =',
131       &'   /* Reference coriolis parameter ( 1/s ) */')       &'   /* Reference coriolis parameter ( 1/s ) */')
132        CALL WRITE_1D_R8( beta,1, INDEX_NONE,'beta =',        CALL WRITE_0D_R8( beta,    INDEX_NONE,'beta =',
133       &'   /* Beta ( 1/(m.s) ) */')       &'   /* Beta ( 1/(m.s) ) */')
134          CALL WRITE_0D_R8( freeSurfFac, INDEX_NONE,'freeSurfFac =',
135         &'   /* Implicit free surface factor */')
136          CALL WRITE_0D_L( implicitFreeSurface, INDEX_NONE,
137         &                 'implicitFreeSurface =',
138         &'   /* Implicit free surface on/off flag */')
139          CALL WRITE_0D_L( rigidLid, INDEX_NONE,
140         &                 'rigidLid =',
141         &'   /* Rigid lid on/off flag */')
142          CALL WRITE_0D_R8( implicSurfPress, INDEX_NONE,
143         &'implicSurfPress =',
144         &'   /* Surface Pressure implicit factor (0-1)*/')
145          CALL WRITE_0D_R8( implicDiv2Dflow, INDEX_NONE,
146         &'implicDiv2Dflow =',
147         &'   /* Barot. Flow Div. implicit factor (0-1)*/')
148          CALL WRITE_0D_L( staggerTimeStep, INDEX_NONE,
149         &                 'staggerTimeStep =',
150         &'   /* Stagger time stepping on/off flag */')
151          CALL WRITE_0D_L( momStepping,  INDEX_NONE,
152         & 'momStepping =', '  /* Momentum equation on/off flag */')
153          CALL WRITE_0D_L( momAdvection, INDEX_NONE,
154         & 'momAdvection =', '  /* Momentum advection on/off flag */')
155          CALL WRITE_0D_L( momViscosity, INDEX_NONE,
156         & 'momViscosity =', '  /* Momentum viscosity on/off flag */')
157          CALL WRITE_0D_L( useCoriolis,  INDEX_NONE,
158         & 'useCoriolis =', '  /* Coriolis on/off flag */')
159          CALL WRITE_0D_L( momForcing,   INDEX_NONE,
160         & 'momForcing =', '  /* Momentum forcing on/off flag */')
161          CALL WRITE_0D_L( momPressureForcing, INDEX_NONE,
162         & 'momPressureForcing =',  
163         & '  /* Momentum pressure term on/off flag */')
164          CALL WRITE_0D_L( tempStepping,  INDEX_NONE,
165         & 'tempStepping =', '  /* Temperature equation on/off flag */')
166          CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,
167         & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')
168        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
169        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
170        WRITE(msgBuf,'(A)') '// Elliptic solver(s) paramters ( PARM02 in namelist ) '       &                    SQUEEZE_RIGHT , 1)
171        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)  
172          WRITE(msgBuf,'(A)')
173         & '// Elliptic solver(s) paramters ( PARM02 in namelist ) '
174          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
175         &                    SQUEEZE_RIGHT , 1)
176        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
177        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
178        CALL WRITE_1D_I( cg2dMaxIters,1, INDEX_NONE,'cg2dMaxIters =',       &                    SQUEEZE_RIGHT , 1)
179          CALL WRITE_0D_I( cg2dMaxIters,   INDEX_NONE,'cg2dMaxIters =',
180       &'   /* Upper limit on 2d con. grad iterations  */')       &'   /* Upper limit on 2d con. grad iterations  */')
181        CALL WRITE_1D_I( cg2dChkResFreq,1, INDEX_NONE,'cg2dChkResFreq =',        CALL WRITE_0D_I( cg2dChkResFreq, INDEX_NONE,'cg2dChkResFreq =',
182       &'   /* 2d con. grad convergence test frequency */')       &'   /* 2d con. grad convergence test frequency */')
183        CALL WRITE_1D_R8( cg2dTargetResidual,1, INDEX_NONE,'cg2dTargetResidual =',        CALL WRITE_0D_R8( cg2dTargetResidual, INDEX_NONE,
184         & 'cg2dTargetResidual =',
185       &'   /* 2d con. grad target residual  */')       &'   /* 2d con. grad target residual  */')
186    
187        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
188        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
189        WRITE(msgBuf,'(A)') '// Time stepping paramters ( PARM03 in namelist ) '       &                    SQUEEZE_RIGHT , 1)
190        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        WRITE(msgBuf,'(A)')
191         & '// Time stepping paramters ( PARM03 in namelist ) '
192          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
193         &                    SQUEEZE_RIGHT , 1)
194        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
195        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
196        CALL WRITE_1D_I( nIter0,1, INDEX_NONE,'nIter0 =',       &                    SQUEEZE_RIGHT , 1)
197          CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =',
198       &'   /* Base timestep number  */')       &'   /* Base timestep number  */')
199        CALL WRITE_1D_I( nTimeSteps,1, INDEX_NONE,'nTimeSteps =',        CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =',
200       &'   /* Number of timesteps */')       &'   /* Number of timesteps */')
201        CALL WRITE_1D_R8( deltaTmom,1, INDEX_NONE,'deltatTmom =',        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltatTmom =',
202       &'   /* Momentum equation timestep ( s ) */')       &'   /* Momentum equation timestep ( s ) */')
203        CALL WRITE_1D_R8( deltaTtracer,1, INDEX_NONE,'deltatTtracer =',        CALL WRITE_0D_R8( deltaTtracer, INDEX_NONE,'deltatTtracer =',
204       &'   /* Tracer equation timestep ( s ) */')       &'   /* Tracer equation timestep ( s ) */')
205        CALL WRITE_1D_R8( abEps,1, INDEX_NONE,'abEps =',        CALL WRITE_0D_R8( deltaTClock, INDEX_NONE,'deltatTClock  =',
206         &'   /* Model clock timestep ( s ) */')
207          CALL WRITE_0D_R8( cAdjFreq, INDEX_NONE,'cAdjFreq =',
208         &'   /* Convective adjustment interval ( s ) */')
209          CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =',
210       &'   /* Adams-Bashforth stabilizing weight */')       &'   /* Adams-Bashforth stabilizing weight */')
211        CALL WRITE_1D_R8( tauCD,1, INDEX_NONE,'tauCD =',        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',
212       &'   /* CD coupling time-scale ( s ) */')       &'   /* CD coupling time-scale ( s ) */')
213        CALL WRITE_1D_R8( rCD,1, INDEX_NONE,'rCD =',        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',
214       &'   /* Normalised CD coupling parameter */')       &'   /* Normalised CD coupling parameter */')
215        CALL WRITE_1D_R8( startTime,1, INDEX_NONE,'startTime =',        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',
216       &'   /* Run start time ( s ). */')       &'   /* Run start time ( s ). */')
217        CALL WRITE_1D_R8( endTime,1, INDEX_NONE,'endTime =',        CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =',
218       &'   /* Integration ending time ( s ). */')       &'   /* Integration ending time ( s ). */')
219        CALL WRITE_1D_R8( chkPtFreq,1, INDEX_NONE,'chkPtFreq =',        CALL WRITE_0D_R8( pChkPtFreq, INDEX_NONE,'pChkPtFreq =',
220       &'   /* Restart/checkpoint file interval ( s ). */')       &'   /* Permanent restart/checkpoint file interval ( s ). */')
221        CALL WRITE_1D_R8( dumpFreq,1, INDEX_NONE,'dumpFreq =',        CALL WRITE_0D_R8( chkPtFreq, INDEX_NONE,'chkPtFreq =',
222         &'   /* Rolling restart/checkpoint file interval ( s ). */')
223          CALL WRITE_0D_R8( dumpFreq, INDEX_NONE,'dumpFreq =',
224       &'   /* Model state write out interval ( s ). */')       &'   /* Model state write out interval ( s ). */')
225    
226        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
227        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
228        WRITE(msgBuf,'(A)') '// Gridding paramters ( PARM04 in namelist ) '       &                    SQUEEZE_RIGHT , 1)
229        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        WRITE(msgBuf,'(A)')
230         & '// Gridding paramters ( PARM04 in namelist ) '
231          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
232         &                    SQUEEZE_RIGHT , 1)
233        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
234        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
235        CALL WRITE_1D_L( usingCartesianGrid,1, INDEX_NONE,'usingCartesianGrid =',       &                    SQUEEZE_RIGHT , 1)
236          CALL WRITE_0D_L( usingCartesianGrid, INDEX_NONE,
237         & 'usingCartesianGrid =',
238       &'   /* Cartesian coordinates flag ( True / False ) */')       &'   /* Cartesian coordinates flag ( True / False ) */')
239        CALL WRITE_1D_L( usingSphericalPolarGrid,1, INDEX_NONE,'usingSphericalPolarGrid =',        CALL WRITE_0D_L( usingSphericalPolarGrid, INDEX_NONE,
240         & 'usingSphericalPolarGrid =',
241       &'   /* Spherical coordinates flag ( True / False ) */')       &'   /* Spherical coordinates flag ( True / False ) */')
242        CALL WRITE_1D_R8( delZ,Nz, INDEX_K,'delZ = ',        CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =',
243         &'   /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */')
244          CALL WRITE_1D_R8( Ro_SeaLevel,1, INDEX_NONE,'Ro_SeaLevel =',
245         &'   /* r(1) ( units of r ) */')
246          CALL WRITE_1D_R8( rkFac,1, INDEX_NONE,'rkFac =',
247         &'   /* minus Vertical index orientation  */')
248          CALL WRITE_1D_R8( horiVertRatio,1, INDEX_NONE,'horiVertRatio =',
249         &'   /* Ratio on units : Horiz - Vertical */')
250          CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',
251       &'   /* W spacing ( m ) */')       &'   /* W spacing ( m ) */')
252          CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ',
253         &'   /* W spacing ( Pa ) */')
254          CALL WRITE_1D_R8( delR,Nr, INDEX_K,'delR = ',
255         &'   /* W spacing ( units of r ) */')
256        CALL WRITE_1D_R8( delX, Nx, INDEX_I,'delX = ',        CALL WRITE_1D_R8( delX, Nx, INDEX_I,'delX = ',
257       &'   /* U spacing ( m - cartesian, degrees - spherical ) */')       &'   /* U spacing ( m - cartesian, degrees - spherical ) */')
258        CALL WRITE_1D_R8( delY, Ny, INDEX_J,'delY = ',        CALL WRITE_1D_R8( delY, Ny, INDEX_J,'delY = ',
259       &'   /* V spacing ( m - cartesian, degrees - spherical ) */')       &'   /* V spacing ( m - cartesian, degrees - spherical ) */')
260        CALL WRITE_1D_R8( phiMin, 1, INDEX_NONE,'phiMin = ',        CALL WRITE_0D_R8( phiMin, INDEX_NONE,'phiMin = ',
261       &'   /* Southern boundary ( ignored - cartesian, degrees - spherical ) */')       &'   /* South edge (ignored - cartesian, degrees - spherical ) */')
262        CALL WRITE_1D_R8( thetaMin, 1, INDEX_NONE,'thetaMin = ',        CALL WRITE_0D_R8( thetaMin, INDEX_NONE,'thetaMin = ',
263       &'   /* Western boundary ( ignored - cartesian, degrees - spherical ) */')       &'   /* West edge ( ignored - cartesian, degrees - spherical ) */')
264        CALL WRITE_1D_R8( rSphere, 1, INDEX_NONE,'rSphere = ',        CALL WRITE_0D_R8( rSphere, INDEX_NONE,'rSphere = ',
265       &'   /* Radius ( ignored - cartesian, m - spherical ) */')       &'   /* Radius ( ignored - cartesian, m - spherical ) */')
266        DO bi=1,nSx        DO bi=1,nSx
267         DO I=1,sNx         DO I=1,sNx
268          xcoord((bi-1)*sNx+I) = xc(I,1,bi,1)          xcoord((bi-1)*sNx+I) = xC(I,1,bi,1)
269         ENDDO         ENDDO
270        ENDDO        ENDDO
271        CALL WRITE_1D_R8( xcoord, Nx, INDEX_I,'xcoord = ',        CALL WRITE_1D_R8( xcoord, sNx*nSx, INDEX_I,'xcoord = ',
272       &'   /* P-point X coordinate (  m - cartesian, degrees - spherical ) */')       &'   /* P-point X coord ( m - cartesian, degrees - spherical ) */')
273        DO bj=1,nSy        DO bj=1,nSy
274         DO J=1,sNy         DO J=1,sNy
275          ycoord((bj-1)*sNy+J) = yc(1,J,1,bj)          ycoord((bj-1)*sNy+J) = yC(1,J,1,bj)
276         ENDDO         ENDDO
277        ENDDO        ENDDO
278        CALL WRITE_1D_R8( ycoord, Ny, INDEX_J,'ycoord = ',        CALL WRITE_1D_R8( ycoord, sNy*nSy, INDEX_J,'ycoord = ',
279       &'   /* P-point Y coordinate (  m - cartesian, degrees - spherical ) */')       &'   /* P-point Y coord ( m - cartesian, degrees - spherical ) */')
280        DO K=1,Nz        DO K=1,Nr
281         zcoord(K) = zc(K)         rcoord(K) = rC(K)
282        ENDDO        ENDDO
283        CALL WRITE_1D_R8( zcoord, Nz, INDEX_K,'zcoord = ',        CALL WRITE_1D_R8( rcoord, Nr, INDEX_K,'rcoord = ',
284       &'   /* P-point Z coordinate (  m ) */')       &'   /* P-point R coordinate (  units of r ) */')
   
285    
286    C     Grid along selected grid lines
287          coordLine = 1
288          tileLine  = 1
289          CALL WRITE_XY_XLINE_RS( dxF, coordLine, tileLine,
290         I 'dxF','( m - cartesian, degrees - spherical )')
291          CALL WRITE_XY_YLINE_RS( dxF, coordLine, tileLine,
292         I 'dxF','( m - cartesian, degrees - spherical )')
293          CALL WRITE_XY_XLINE_RS( dyF, coordLine, tileLine,
294         I 'dyF','( m - cartesian, degrees - spherical )')
295          CALL WRITE_XY_YLINE_RS( dyF, coordLine, tileLine,
296         I 'dyF','( m - cartesian, degrees - spherical )')
297          CALL WRITE_XY_XLINE_RS( dxG, coordLine, tileLine,
298         I 'dxG','( m - cartesian, degrees - spherical )')
299          CALL WRITE_XY_YLINE_RS( dxG, coordLine, tileLine,
300         I 'dxG','( m - cartesian, degrees - spherical )')
301          CALL WRITE_XY_XLINE_RS( dyG, coordLine, tileLine,
302         I 'dyG','( m - cartesian, degrees - spherical )')
303          CALL WRITE_XY_YLINE_RS( dyG, coordLine, tileLine,
304         I 'dyG','( m - cartesian, degrees - spherical )')
305          CALL WRITE_XY_XLINE_RS( dxC, coordLine, tileLine,
306         I 'dxC','( m - cartesian, degrees - spherical )')
307          CALL WRITE_XY_YLINE_RS( dxC, coordLine, tileLine,
308         I 'dxC','( m - cartesian, degrees - spherical )')
309          CALL WRITE_XY_XLINE_RS( dyC, coordLine, tileLine,
310         I 'dyC','( m - cartesian, degrees - spherical )')
311          CALL WRITE_XY_YLINE_RS( dyC, coordLine, tileLine,
312         I 'dyC','( m - cartesian, degrees - spherical )')
313          CALL WRITE_XY_XLINE_RS( dxV, coordLine, tileLine,
314         I 'dxV','( m - cartesian, degrees - spherical )')
315          CALL WRITE_XY_YLINE_RS( dxV, coordLine, tileLine,
316         I 'dxV','( m - cartesian, degrees - spherical )')
317          CALL WRITE_XY_XLINE_RS( dyU, coordLine, tileLine,
318         I 'dyU','( m - cartesian, degrees - spherical )')
319          CALL WRITE_XY_YLINE_RS( dyU, coordLine, tileLine,
320         I 'dyU','( m - cartesian, degrees - spherical )')
321          CALL WRITE_XY_XLINE_RS( rA, coordLine, tileLine,
322         I 'rA','( m - cartesian, degrees - spherical )')
323          CALL WRITE_XY_YLINE_RS( rA, coordLine, tileLine,
324         I 'rA','( m - cartesian, degrees - spherical )')
325          CALL WRITE_XY_XLINE_RS( rAw, coordLine, tileLine,
326         I 'rAw','( m - cartesian, degrees - spherical )')
327          CALL WRITE_XY_YLINE_RS( rAw, coordLine, tileLine,
328         I 'rAw','( m - cartesian, degrees - spherical )')
329          CALL WRITE_XY_XLINE_RS( rAs, coordLine, tileLine,
330         I 'rAs','( m - cartesian, degrees - spherical )')
331          CALL WRITE_XY_YLINE_RS( rAs, coordLine, tileLine,
332         I 'rAs','( m - cartesian, degrees - spherical )')
333    
334        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
335        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22