pkg/thsice/THSICE_DEBUG.h

d9ed07f8c2 Jean*0001 CBOP
                0002 C !ROUTINE: THSICE_DEBUG.h
                0003
                0004 C !INTERFACE:
                0005 C #include "THSICE_DEBUG.h"
                0006 C       LOGICAL dBug
                0007 C       dBug(i,j,bi,bj)
                0008
                0009 C !DESCRIPTION:
                0010 C Function used for debugging: define a single grid-point location
                0011 C  where values of various variables are printed (to standard-output file)
                0012 C
                0013 CEOP
                0014
                0015 #ifdef ALLOW_DBUG_THSICE
                0016       LOGICAL dBug
                0017 c     dBug(i,j,bi,bj) = .FALSE.
                0018       dBug(i,j,bi,bj) = dBugFlag .AND.
                0019      &         ( i.EQ.15 .AND. j.EQ.11 .AND. bi.EQ.3 .AND. bj.EQ.1 )
                0020 #endif