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