145 |
#ifdef SHORTWAVE_HEATING |
#ifdef SHORTWAVE_HEATING |
146 |
c Short wave radiative flux. |
c Short wave radiative flux. |
147 |
if ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
if ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
148 |
& swflux(i,j,bi,bj) .LT. -800. ) .AND. |
& swflux(i,j,bi,bj) .LT. -1000. ) .AND. |
149 |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
& hFacC(i,j,1,bi,bj) .NE. 0. ) then |
150 |
print *, 'EXF WARNING: swflux out of range for i,j= ', |
print *, 'EXF WARNING: swflux out of range for i,j= ', |
151 |
& i, j, swflux(i,j,bi,bj) |
& i, j, swflux(i,j,bi,bj) |