/[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.11 by cnh, Wed Jun 10 17:05:59 1998 UTC revision 1.27 by jmc, Tue Feb 20 15:02:16 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 ) */')       &'   /* Reference density ( kg/m^3 ) */')
123        CALL WRITE_1D_R8( gravity,1, INDEX_NONE,'gravity =',        CALL WRITE_0D_R8( rhoConst, INDEX_NONE,'rhoConst =',
124         &'   /* Reference density ( kg/m^3 ) */')
125          CALL WRITE_0D_R8( gravity, INDEX_NONE,'gravity =',
126       &'   /* Gravitational acceleration ( m/s^2 ) */')       &'   /* Gravitational acceleration ( m/s^2 ) */')
127        CALL WRITE_1D_R8( gBaro,1, INDEX_NONE,'gBaro =',        CALL WRITE_0D_R8( gBaro,   INDEX_NONE,'gBaro =',
128       &'   /* Barotropic gravity ( m/s^2 ) */')       &'   /* Barotropic gravity ( m/s^2 ) */')
129        CALL WRITE_1D_R8( f0,1, INDEX_NONE,'f0 =',        CALL WRITE_0D_R8( f0,      INDEX_NONE,'f0 =',
130       &'   /* Reference coriolis parameter ( 1/s ) */')       &'   /* Reference coriolis parameter ( 1/s ) */')
131        CALL WRITE_1D_R8( beta,1, INDEX_NONE,'beta =',        CALL WRITE_0D_R8( beta,    INDEX_NONE,'beta =',
132       &'   /* Beta ( 1/(m.s) ) */')       &'   /* Beta ( 1/(m.s) ) */')
133        CALL WRITE_1D_R8( freeSurfFac,1, INDEX_NONE,'freeSurfFac =',        CALL WRITE_0D_R8( freeSurfFac, INDEX_NONE,'freeSurfFac =',
134       &'   /* Implcit free surface factor */')       &'   /* Implicit free surface factor */')
135        CALL WRITE_1D_L( implicitFreeSurface,1, INDEX_NONE,        CALL WRITE_0D_L( implicitFreeSurface, INDEX_NONE,
136       &                 'implicitFreeSurface =',       &                 'implicitFreeSurface =',
137       &'   /* Implicit free surface on/off flag */')       &'   /* Implicit free surface on/off flag */')
138        CALL WRITE_1D_L( rigidLid,1, INDEX_NONE,        CALL WRITE_0D_L( rigidLid, INDEX_NONE,
139       &                 'rigidLid =',       &                 'rigidLid =',
140       &'   /* Rigid lid on/off flag */')       &'   /* Rigid lid on/off flag */')
141        CALL WRITE_1D_L( momStepping,1, INDEX_NONE,        CALL WRITE_0D_R8( implicSurfPress, INDEX_NONE,
142         &'implicSurfPress =',
143         &'   /* Surface Pressure implicit factor (0-1)*/')
144          CALL WRITE_0D_R8( implicDiv2Dflow, INDEX_NONE,
145         &'implicDiv2Dflow =',
146         &'   /* Barot. Flow Div. implicit factor (0-1)*/')
147          CALL WRITE_0D_L( staggerTimeStep, INDEX_NONE,
148         &                 'staggerTimeStep =',
149         &'   /* Stagger time stepping on/off flag */')
150          CALL WRITE_0D_L( momStepping,  INDEX_NONE,
151       & 'momStepping =', '  /* Momentum equation on/off flag */')       & 'momStepping =', '  /* Momentum equation on/off flag */')
152        CALL WRITE_1D_L( momAdvection,1, INDEX_NONE,        CALL WRITE_0D_L( momAdvection, INDEX_NONE,
153       & 'momAdvection =', '  /* Momentum advection on/off flag */')       & 'momAdvection =', '  /* Momentum advection on/off flag */')
154        CALL WRITE_1D_L( momViscosity,1, INDEX_NONE,        CALL WRITE_0D_L( momViscosity, INDEX_NONE,
155       & 'momViscosity =', '  /* Momentum viscosity on/off flag */')       & 'momViscosity =', '  /* Momentum viscosity on/off flag */')
156        CALL WRITE_1D_L( useCoriolis,1, INDEX_NONE,        CALL WRITE_0D_L( useCoriolis,  INDEX_NONE,
157       & 'useCoriolis =', '  /* Coriolis on/off flag */')       & 'useCoriolis =', '  /* Coriolis on/off flag */')
158        CALL WRITE_1D_L( momForcing,1, INDEX_NONE,        CALL WRITE_0D_L( momForcing,   INDEX_NONE,
159       & 'momForcing =', '  /* Momentum forcing on/off flag */')       & 'momForcing =', '  /* Momentum forcing on/off flag */')
160        CALL WRITE_1D_L( momPressureForcing,1, INDEX_NONE,        CALL WRITE_0D_L( momPressureForcing, INDEX_NONE,
161       & 'momPressureForcing =', '  /* Momentum pressure term on/off flag */')       & 'momPressureForcing =',  
162        CALL WRITE_1D_L( tempStepping,1, INDEX_NONE,       & '  /* Momentum pressure term on/off flag */')
163          CALL WRITE_0D_L( tempStepping,  INDEX_NONE,
164       & 'tempStepping =', '  /* Temperature equation on/off flag */')       & 'tempStepping =', '  /* Temperature equation on/off flag */')
165        CALL WRITE_1D_R8( GMMaxSlope,1, INDEX_NONE,'GMMaxSlope =',        CALL WRITE_0D_L( nonHydrostatic, INDEX_NONE,
166       &'   /* Max. slope allowed in GM/Redi tensor */')       & 'nonHydrostatic =', '  /* Non-Hydrostatic on/off flag */')
       CALL WRITE_1D_R8( GMLength,1, INDEX_NONE,'GMLength =',  
      &'   /* Length to use in Visbeck et al. formula for K (m) */')  
       CALL WRITE_1D_R8( GMAlpha,1, INDEX_NONE,'GMAlpha =',  
      &'   /* alpha to use in Visbeck et al. formula for K */')  
       CALL WRITE_1D_R8( GMdepth,1, INDEX_NONE,'GMdepth =',  
      &'   /* Depth to integrate for Visbeck et. al Richardson # (m) */')  
       CALL WRITE_1D_R8( GMkbackground,1, INDEX_NONE,'GMkbackground =',  
      &'   /* background value of GM/Redi coefficient m^2/s */')  
167        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
168        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
169         &                    SQUEEZE_RIGHT , 1)
170    
171        WRITE(msgBuf,'(A)') '// Elliptic solver(s) paramters ( PARM02 in namelist ) '        WRITE(msgBuf,'(A)')
172        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)       & '// Elliptic solver(s) paramters ( PARM02 in namelist ) '
173          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
174         &                    SQUEEZE_RIGHT , 1)
175        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
176        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
177        CALL WRITE_1D_I( cg2dMaxIters,1, INDEX_NONE,'cg2dMaxIters =',       &                    SQUEEZE_RIGHT , 1)
178          CALL WRITE_0D_I( cg2dMaxIters,   INDEX_NONE,'cg2dMaxIters =',
179       &'   /* Upper limit on 2d con. grad iterations  */')       &'   /* Upper limit on 2d con. grad iterations  */')
180        CALL WRITE_1D_I( cg2dChkResFreq,1, INDEX_NONE,'cg2dChkResFreq =',        CALL WRITE_0D_I( cg2dChkResFreq, INDEX_NONE,'cg2dChkResFreq =',
181       &'   /* 2d con. grad convergence test frequency */')       &'   /* 2d con. grad convergence test frequency */')
182        CALL WRITE_1D_R8( cg2dTargetResidual,1, INDEX_NONE,'cg2dTargetResidual =',        CALL WRITE_0D_R8( cg2dTargetResidual, INDEX_NONE,
183         & 'cg2dTargetResidual =',
184       &'   /* 2d con. grad target residual  */')       &'   /* 2d con. grad target residual  */')
185    
186        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
187        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
188        WRITE(msgBuf,'(A)') '// Time stepping paramters ( PARM03 in namelist ) '       &                    SQUEEZE_RIGHT , 1)
189        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        WRITE(msgBuf,'(A)')
190         & '// Time stepping paramters ( PARM03 in namelist ) '
191          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
192         &                    SQUEEZE_RIGHT , 1)
193        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
194        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
195        CALL WRITE_1D_I( nIter0,1, INDEX_NONE,'nIter0 =',       &                    SQUEEZE_RIGHT , 1)
196          CALL WRITE_0D_I( nIter0, INDEX_NONE,'nIter0 =',
197       &'   /* Base timestep number  */')       &'   /* Base timestep number  */')
198        CALL WRITE_1D_I( nTimeSteps,1, INDEX_NONE,'nTimeSteps =',        CALL WRITE_0D_I( nTimeSteps, INDEX_NONE,'nTimeSteps =',
199       &'   /* Number of timesteps */')       &'   /* Number of timesteps */')
200        CALL WRITE_1D_R8( deltaTmom,1, INDEX_NONE,'deltatTmom =',        CALL WRITE_0D_R8( deltaTmom, INDEX_NONE,'deltatTmom =',
201       &'   /* Momentum equation timestep ( s ) */')       &'   /* Momentum equation timestep ( s ) */')
202        CALL WRITE_1D_R8( deltaTtracer,1, INDEX_NONE,'deltatTtracer =',        CALL WRITE_0D_R8( deltaTtracer, INDEX_NONE,'deltatTtracer =',
203       &'   /* Tracer equation timestep ( s ) */')       &'   /* Tracer equation timestep ( s ) */')
204        CALL WRITE_1D_R8( cAdjFreq,1, INDEX_NONE,'cAdjFreq =',        CALL WRITE_0D_R8( deltaTClock, INDEX_NONE,'deltatTClock  =',
205         &'   /* Model clock timestep ( s ) */')
206          CALL WRITE_0D_R8( cAdjFreq, INDEX_NONE,'cAdjFreq =',
207       &'   /* Convective adjustment interval ( s ) */')       &'   /* Convective adjustment interval ( s ) */')
208        CALL WRITE_1D_R8( abEps,1, INDEX_NONE,'abEps =',        CALL WRITE_0D_R8( abeps, INDEX_NONE,'abeps =',
209       &'   /* Adams-Bashforth stabilizing weight */')       &'   /* Adams-Bashforth stabilizing weight */')
210        CALL WRITE_1D_R8( tauCD,1, INDEX_NONE,'tauCD =',        CALL WRITE_0D_R8( tauCD, INDEX_NONE,'tauCD =',
211       &'   /* CD coupling time-scale ( s ) */')       &'   /* CD coupling time-scale ( s ) */')
212        CALL WRITE_1D_R8( rCD,1, INDEX_NONE,'rCD =',        CALL WRITE_0D_R8( rCD, INDEX_NONE,'rCD =',
213       &'   /* Normalised CD coupling parameter */')       &'   /* Normalised CD coupling parameter */')
214        CALL WRITE_1D_R8( startTime,1, INDEX_NONE,'startTime =',        CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =',
215       &'   /* Run start time ( s ). */')       &'   /* Run start time ( s ). */')
216        CALL WRITE_1D_R8( endTime,1, INDEX_NONE,'endTime =',        CALL WRITE_0D_R8( endTime, INDEX_NONE,'endTime =',
217       &'   /* Integration ending time ( s ). */')       &'   /* Integration ending time ( s ). */')
218        CALL WRITE_1D_R8( pChkPtFreq,1, INDEX_NONE,'pChkPtFreq =',        CALL WRITE_0D_R8( pChkPtFreq, INDEX_NONE,'pChkPtFreq =',
219       &'   /* Permanent restart/checkpoint file interval ( s ). */')       &'   /* Permanent restart/checkpoint file interval ( s ). */')
220        CALL WRITE_1D_R8( chkPtFreq,1, INDEX_NONE,'chkPtFreq =',        CALL WRITE_0D_R8( chkPtFreq, INDEX_NONE,'chkPtFreq =',
221       &'   /* Rolling restart/checkpoint file interval ( s ). */')       &'   /* Rolling restart/checkpoint file interval ( s ). */')
222        CALL WRITE_1D_R8( dumpFreq,1, INDEX_NONE,'dumpFreq =',        CALL WRITE_0D_R8( dumpFreq, INDEX_NONE,'dumpFreq =',
223       &'   /* Model state write out interval ( s ). */')       &'   /* Model state write out interval ( s ). */')
224    
225        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
226        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
227        WRITE(msgBuf,'(A)') '// Gridding paramters ( PARM04 in namelist ) '       &                    SQUEEZE_RIGHT , 1)
228        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        WRITE(msgBuf,'(A)')
229         & '// Gridding paramters ( PARM04 in namelist ) '
230          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
231         &                    SQUEEZE_RIGHT , 1)
232        WRITE(msgBuf,'(A)') '//  '        WRITE(msgBuf,'(A)') '//  '
233        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit, SQUEEZE_RIGHT , 1)        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
234        CALL WRITE_1D_L( usingCartesianGrid,1, INDEX_NONE,'usingCartesianGrid =',       &                    SQUEEZE_RIGHT , 1)
235          CALL WRITE_0D_L( usingCartesianGrid, INDEX_NONE,
236         & 'usingCartesianGrid =',
237       &'   /* Cartesian coordinates flag ( True / False ) */')       &'   /* Cartesian coordinates flag ( True / False ) */')
238        CALL WRITE_1D_L( usingSphericalPolarGrid,1, INDEX_NONE,'usingSphericalPolarGrid =',        CALL WRITE_0D_L( usingSphericalPolarGrid, INDEX_NONE,
239         & 'usingSphericalPolarGrid =',
240       &'   /* Spherical coordinates flag ( True / False ) */')       &'   /* Spherical coordinates flag ( True / False ) */')
241        CALL WRITE_1D_R8( delZ,Nz, INDEX_K,'delZ = ',        CALL WRITE_0D_L( groundAtK1, INDEX_NONE, 'groundAtK1 =',
242         &'   /* Lower Boundary (ground) at the surface(k=1) ( T / F ) */')
243          CALL WRITE_1D_R8( Ro_SeaLevel,1, INDEX_NONE,'Ro_SeaLevel =',
244         &'   /* r(1) ( units of r ) */')
245          CALL WRITE_1D_R8( rkFac,1, INDEX_NONE,'rkFac =',
246         &'   /* minus Vertical index orientation  */')
247          CALL WRITE_1D_R8( horiVertRatio,1, INDEX_NONE,'horiVertRatio =',
248         &'   /* Ratio on units : Horiz - Vertical */')
249          CALL WRITE_1D_R8( delZ,Nr, INDEX_K,'delZ = ',
250       &'   /* W spacing ( m ) */')       &'   /* W spacing ( m ) */')
251          CALL WRITE_1D_R8( delP,Nr, INDEX_K,'delP = ',
252         &'   /* W spacing ( Pa ) */')
253          CALL WRITE_1D_R8( delR,Nr, INDEX_K,'delR = ',
254         &'   /* W spacing ( units of r ) */')
255        CALL WRITE_1D_R8( delX, Nx, INDEX_I,'delX = ',        CALL WRITE_1D_R8( delX, Nx, INDEX_I,'delX = ',
256       &'   /* U spacing ( m - cartesian, degrees - spherical ) */')       &'   /* U spacing ( m - cartesian, degrees - spherical ) */')
257        CALL WRITE_1D_R8( delY, Ny, INDEX_J,'delY = ',        CALL WRITE_1D_R8( delY, Ny, INDEX_J,'delY = ',
258       &'   /* V spacing ( m - cartesian, degrees - spherical ) */')       &'   /* V spacing ( m - cartesian, degrees - spherical ) */')
259        CALL WRITE_1D_R8( phiMin, 1, INDEX_NONE,'phiMin = ',        CALL WRITE_0D_R8( phiMin, INDEX_NONE,'phiMin = ',
260       &'   /* Southern boundary ( ignored - cartesian, degrees - spherical ) */')       &'   /* South edge (ignored - cartesian, degrees - spherical ) */')
261        CALL WRITE_1D_R8( thetaMin, 1, INDEX_NONE,'thetaMin = ',        CALL WRITE_0D_R8( thetaMin, INDEX_NONE,'thetaMin = ',
262       &'   /* Western boundary ( ignored - cartesian, degrees - spherical ) */')       &'   /* West edge ( ignored - cartesian, degrees - spherical ) */')
263        CALL WRITE_1D_R8( rSphere, 1, INDEX_NONE,'rSphere = ',        CALL WRITE_0D_R8( rSphere, INDEX_NONE,'rSphere = ',
264       &'   /* Radius ( ignored - cartesian, m - spherical ) */')       &'   /* Radius ( ignored - cartesian, m - spherical ) */')
265        DO bi=1,nSx        DO bi=1,nSx
266         DO I=1,sNx         DO I=1,sNx
267          xcoord((bi-1)*sNx+I) = xc(I,1,bi,1)          xcoord((bi-1)*sNx+I) = xC(I,1,bi,1)
268         ENDDO         ENDDO
269        ENDDO        ENDDO
270        CALL WRITE_1D_R8( xcoord, sNx*nSx, INDEX_I,'xcoord = ',        CALL WRITE_1D_R8( xcoord, sNx*nSx, INDEX_I,'xcoord = ',
271       &'   /* P-point X coordinate (  m - cartesian, degrees - spherical ) */')       &'   /* P-point X coord ( m - cartesian, degrees - spherical ) */')
272        DO bj=1,nSy        DO bj=1,nSy
273         DO J=1,sNy         DO J=1,sNy
274          ycoord((bj-1)*sNy+J) = yc(1,J,1,bj)          ycoord((bj-1)*sNy+J) = yC(1,J,1,bj)
275         ENDDO         ENDDO
276        ENDDO        ENDDO
277        CALL WRITE_1D_R8( ycoord, sNy*nSy, INDEX_J,'ycoord = ',        CALL WRITE_1D_R8( ycoord, sNy*nSy, INDEX_J,'ycoord = ',
278       &'   /* P-point Y coordinate (  m - cartesian, degrees - spherical ) */')       &'   /* P-point Y coord ( m - cartesian, degrees - spherical ) */')
279        DO K=1,Nz        DO K=1,Nr
280         zcoord(K) = zc(K)         rcoord(K) = rC(K)
281        ENDDO        ENDDO
282        CALL WRITE_1D_R8( zcoord, Nz, INDEX_K,'zcoord = ',        CALL WRITE_1D_R8( rcoord, Nr, INDEX_K,'rcoord = ',
283       &'   /* P-point Z coordinate (  m ) */')       &'   /* P-point R coordinate (  units of r ) */')
   
284    
285    C     Grid along selected grid lines
286          coordLine = 1
287          tileLine  = 1
288          CALL WRITE_XY_XLINE_RS( dxF, coordLine, tileLine,
289         I 'dxF','( m - cartesian, degrees - spherical )')
290          CALL WRITE_XY_YLINE_RS( dxF, coordLine, tileLine,
291         I 'dxF','( m - cartesian, degrees - spherical )')
292          CALL WRITE_XY_XLINE_RS( dyF, coordLine, tileLine,
293         I 'dyF','( m - cartesian, degrees - spherical )')
294          CALL WRITE_XY_YLINE_RS( dyF, coordLine, tileLine,
295         I 'dyF','( m - cartesian, degrees - spherical )')
296          CALL WRITE_XY_XLINE_RS( dxG, coordLine, tileLine,
297         I 'dxG','( m - cartesian, degrees - spherical )')
298          CALL WRITE_XY_YLINE_RS( dxG, coordLine, tileLine,
299         I 'dxG','( m - cartesian, degrees - spherical )')
300          CALL WRITE_XY_XLINE_RS( dyG, coordLine, tileLine,
301         I 'dyG','( m - cartesian, degrees - spherical )')
302          CALL WRITE_XY_YLINE_RS( dyG, coordLine, tileLine,
303         I 'dyG','( m - cartesian, degrees - spherical )')
304          CALL WRITE_XY_XLINE_RS( dxC, coordLine, tileLine,
305         I 'dxC','( m - cartesian, degrees - spherical )')
306          CALL WRITE_XY_YLINE_RS( dxC, coordLine, tileLine,
307         I 'dxC','( m - cartesian, degrees - spherical )')
308          CALL WRITE_XY_XLINE_RS( dyC, coordLine, tileLine,
309         I 'dyC','( m - cartesian, degrees - spherical )')
310          CALL WRITE_XY_YLINE_RS( dyC, coordLine, tileLine,
311         I 'dyC','( m - cartesian, degrees - spherical )')
312          CALL WRITE_XY_XLINE_RS( dxV, coordLine, tileLine,
313         I 'dxV','( m - cartesian, degrees - spherical )')
314          CALL WRITE_XY_YLINE_RS( dxV, coordLine, tileLine,
315         I 'dxV','( m - cartesian, degrees - spherical )')
316          CALL WRITE_XY_XLINE_RS( dyU, coordLine, tileLine,
317         I 'dyU','( m - cartesian, degrees - spherical )')
318          CALL WRITE_XY_YLINE_RS( dyU, coordLine, tileLine,
319         I 'dyU','( m - cartesian, degrees - spherical )')
320          CALL WRITE_XY_XLINE_RS( rA, coordLine, tileLine,
321         I 'rA','( m - cartesian, degrees - spherical )')
322          CALL WRITE_XY_YLINE_RS( rA, coordLine, tileLine,
323         I 'rA','( m - cartesian, degrees - spherical )')
324          CALL WRITE_XY_XLINE_RS( rAw, coordLine, tileLine,
325         I 'rAw','( m - cartesian, degrees - spherical )')
326          CALL WRITE_XY_YLINE_RS( rAw, coordLine, tileLine,
327         I 'rAw','( m - cartesian, degrees - spherical )')
328          CALL WRITE_XY_XLINE_RS( rAs, coordLine, tileLine,
329         I 'rAs','( m - cartesian, degrees - spherical )')
330          CALL WRITE_XY_YLINE_RS( rAs, coordLine, tileLine,
331         I 'rAs','( m - cartesian, degrees - spherical )')
332    
333        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
334        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.27
  ViewVC Help
Powered by ViewVC 1.1.22