| File |
Line number |
Procedure |
Code |
|
./model/src/ini_masks_etc.F |
134 |
INI_MASKS_ETC |
tmpVar1(i,j) = 0. |
|
./model/src/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
146 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
233 |
INI_MASKS_ETC |
tmpVar1(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
234 |
INI_MASKS_ETC |
tmpFld(i,j,bi,bj) = tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
236 |
INI_MASKS_ETC |
IF ( tmpVar1(i,j) .LE. zeroRL ) THEN |
|
./model/src/ini_masks_etc.F |
239 |
INI_MASKS_ETC |
recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
365 |
INI_MASKS_ETC |
tmpVar1(i,j) = 0. _d 0 |
|
./model/src/ini_masks_etc.F |
372 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
382 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rLowW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
391 |
INI_MASKS_ETC |
tmpVar1(i,j) = rLowW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
392 |
INI_MASKS_ETC |
tmpVar1(i,j) = ( tmpVar1(i,j) -rSurfW(i,j,bi,bj) )*halfRL |
|
./model/src/ini_masks_etc.F |
397 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rSurfW(i,j,bi,bj) + tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
398 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = rLowW (i,j,bi,bj) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
47 |
INI_MASKS_ETC |
_RL tmpVar1(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |