75 |
C internal flag to indicate we are in business |
C internal flag to indicate we are in business |
76 |
PTRACERSisON=.TRUE. |
PTRACERSisON=.TRUE. |
77 |
|
|
78 |
|
C Set ptracer IO & diagnostics labels (2 characters long) |
79 |
|
CALL PTRACERS_SET_IOLABEL( |
80 |
|
O PTRACERS_ioLabel, |
81 |
|
I PTRACERS_num, myThid ) |
82 |
|
|
83 |
C Set defaults values for parameters in PTRACERS.h |
C Set defaults values for parameters in PTRACERS.h |
84 |
PTRACERS_dumpFreq = dumpFreq |
PTRACERS_dumpFreq = dumpFreq |
85 |
PTRACERS_taveFreq = taveFreq |
PTRACERS_taveFreq = taveFreq |
276 |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
277 |
WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer |
WRITE(msgBuf,'(A,I4)') ' tracer number : ',iTracer |
278 |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT, myThid ) |
279 |
|
CALL WRITE_0D_C( PTRACERS_ioLabel(iTracer), 0, INDEX_NONE, |
280 |
|
& 'PTRACERS_ioLabel =', ' /* tracer IO Label */') |
281 |
CALL WRITE_0D_I( PTRACERS_advScheme(iTracer), INDEX_NONE, |
CALL WRITE_0D_I( PTRACERS_advScheme(iTracer), INDEX_NONE, |
282 |
& 'PTRACERS_advScheme =', ' /* Advection Scheme */') |
& 'PTRACERS_advScheme =', ' /* Advection Scheme */') |
283 |
CALL WRITE_0D_L( PTRACERS_ImplVertAdv(iTracer), INDEX_NONE, |
CALL WRITE_0D_L( PTRACERS_ImplVertAdv(iTracer), INDEX_NONE, |