1 |
jmc |
1.1 |
C $Header: $ |
2 |
|
|
C $Name: $ |
3 |
|
|
|
4 |
|
|
CBOP |
5 |
|
|
C !ROUTINE: THSICE_DEBUG.h |
6 |
|
|
|
7 |
|
|
C !INTERFACE: |
8 |
|
|
C #include "THSICE_DEBUG.h" |
9 |
|
|
C LOGICAL dBug |
10 |
|
|
C dBug(i,j,bi,bj) |
11 |
|
|
|
12 |
|
|
C !DESCRIPTION: |
13 |
|
|
C Function used for debugging: define a single grid-point location |
14 |
|
|
C where values of various variables are printed (to standard-output file) |
15 |
|
|
C |
16 |
|
|
CEOP |
17 |
|
|
|
18 |
|
|
#ifdef ALLOW_DBUG_THSICE |
19 |
|
|
LOGICAL dBug |
20 |
|
|
c dBug(i,j,bi,bj) = .FALSE. |
21 |
|
|
dBug(i,j,bi,bj) = dBugFlag .AND. |
22 |
|
|
& ( i.EQ.15 .AND. j.EQ.11 .AND. bi.EQ.3 .AND. bj.EQ.1 ) |
23 |
|
|
#endif |