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 |