89 |
_RL compact, hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr) |
_RL compact, hIce, hSnow, Tsf, Tice(nlyr), qicen(nlyr) |
90 |
_RL tmpflx(0:2), tmpdTs |
_RL tmpflx(0:2), tmpdTs |
91 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
92 |
_RL tmpFld(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL tmpFac |
|
LOGICAL DIAGNOSTICS_IS_ON |
|
|
EXTERNAL DIAGNOSTICS_IS_ON |
|
93 |
#endif |
#endif |
94 |
|
|
95 |
LOGICAL dBug |
LOGICAL dBug |
166 |
|
|
167 |
#ifdef ALLOW_DIAGNOSTICS |
#ifdef ALLOW_DIAGNOSTICS |
168 |
IF ( useDiagnostics ) THEN |
IF ( useDiagnostics ) THEN |
169 |
|
tmpFac = 1. _d 0 |
170 |
IF ( DIAGNOSTICS_IS_ON('SIsnwPrc',myThid) ) THEN |
CALL DIAGNOSTICS_FRACT_FILL( |
171 |
DO j=1,sNy |
I snowPrc, iceMask,tmpFac,'SIsnwPrc', |
172 |
DO i=1,sNx |
I 0,1,1,bi,bj,myThid) |
|
tmpFld(i,j) = iceMask(i,j,bi,bj)*snowPrc(i,j,bi,bj) |
|
|
ENDDO |
|
|
ENDDO |
|
|
CALL DIAGNOSTICS_FILL(tmpFld,'SIsnwPrc',0,1,2,bi,bj,myThid) |
|
|
ENDIF |
|
|
|
|
173 |
ENDIF |
ENDIF |
174 |
#endif /* ALLOW_DIAGNOSTICS */ |
#endif /* ALLOW_DIAGNOSTICS */ |
175 |
|
|