161 |
ENDIF |
ENDIF |
162 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
163 |
|
|
164 |
|
C-- Print a summary of pTracer parameter values: |
165 |
|
iUnit = standardMessageUnit |
166 |
|
WRITE(msgBuf,'(A)') '// ===================================' |
167 |
|
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
168 |
|
WRITE(msgBuf,'(A)') '// PTRACERS parameters ' |
169 |
|
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
170 |
|
WRITE(msgBuf,'(A)') '// ===================================' |
171 |
|
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
172 |
|
CALL WRITE_0D_I( PTRACERS_numInUse, INDEX_NONE, |
173 |
|
& 'PTRACERS_numInUse =', |
174 |
|
& ' /* number of tracers */') |
175 |
|
CALL WRITE_0D_R8(PTRACERS_taveFreq, INDEX_NONE, |
176 |
|
& 'PTRACERS_taveFreq =', |
177 |
|
& ' /* Frequency^-1 for time-Aver. output (s) */') |
178 |
|
CALL WRITE_0D_L( PTRACERS_useRecords, INDEX_NONE, |
179 |
|
& 'PTRACERS_useRecords =', ' /* all tracers in 1 file */') |
180 |
|
CALL WRITE_0D_L( PTRACERS_write_mdsio, INDEX_NONE, |
181 |
|
& 'PTRACERS_write_mdsio =', ' /* write mdsio files */') |
182 |
|
CALL WRITE_0D_L( PTRACERS_write_mnc, INDEX_NONE, |
183 |
|
& 'PTRACERS_write_mnc =', ' /* write mnc files */') |
184 |
|
|
185 |
|
DO iTracer=1,PTRACERS_numInUse |
186 |
|
WRITE(msgBuf,'(A)') ' -----------------------------------' |
187 |
|
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
188 |
|
WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer |
189 |
|
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
190 |
|
CALL WRITE_0D_I( PTRACERS_advScheme(iTracer), INDEX_NONE, |
191 |
|
& 'PTRACERS_advScheme =', ' /* Advection Scheme */') |
192 |
|
CALL WRITE_0D_R8( PTRACERS_diffKh(iTracer), INDEX_NONE, |
193 |
|
& 'PTRACERS_diffKh =', ' /* Laplacian Diffusivity */') |
194 |
|
CALL WRITE_0D_R8( PTRACERS_diffK4(iTracer), INDEX_NONE, |
195 |
|
& 'PTRACERS_diffK4 =', ' /* Biharmonic Diffusivity */') |
196 |
|
CALL WRITE_1D_R8( PTRACERS_diffKrNr(1,iTracer), Nr, INDEX_K, |
197 |
|
& 'PTRACERS_diffKrNr =', ' /* Vertical Diffusivity */') |
198 |
|
CALL WRITE_0D_L( PTRACERS_useGMRedi(iTracer), INDEX_NONE, |
199 |
|
& 'PTRACERS_useGMRedi =', ' /* apply GM-Redi */') |
200 |
|
CALL WRITE_0D_L( PTRACERS_useKPP(iTracer), INDEX_NONE, |
201 |
|
& 'PTRACERS_useKPP =', ' /* apply KPP scheme */') |
202 |
|
|
203 |
|
ENDDO |
204 |
|
WRITE(msgBuf,'(A)') ' -----------------------------------' |
205 |
|
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1) |
206 |
#endif /* ALLOW_PTRACERS */ |
#endif /* ALLOW_PTRACERS */ |
207 |
|
|
208 |
RETURN |
RETURN |