150 |
|
|
151 |
#ifdef ALLOW_KPP |
#ifdef ALLOW_KPP |
152 |
IF (trUseKPP) THEN |
IF (trUseKPP) THEN |
153 |
|
C-- Set vertical diffusivity contribution from KPP |
154 |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
IF (trIdentity.EQ.GAD_TEMPERATURE) THEN |
155 |
CALL KPP_CALC_DIFF_T( |
CALL KPP_CALC_DIFF_T( |
156 |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
157 |
U KappaRTr, |
O KappaRTr, |
158 |
I myThid) |
I myThid) |
159 |
ELSE |
ELSE |
160 |
CALL KPP_CALC_DIFF_S( |
CALL KPP_CALC_DIFF_S( |
161 |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
I bi,bj,iMin,iMax,jMin,jMax,0,Nr, |
162 |
U KappaRTr, |
O KappaRTr, |
163 |
I myThid) |
I myThid) |
164 |
ENDIF |
ENDIF |
165 |
#if (defined ALLOW_PTRACERS && ! (defined ALLOW_3D_DIFFKR || \ |
#if (defined ALLOW_PTRACERS && ! (defined ALLOW_3D_DIFFKR || \ |