| File |
Line number |
Procedure |
Code |
|
./model/src/ini_masks_etc.F |
110 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
118 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz ) THEN |
|
./model/src/ini_masks_etc.F |
119 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
122 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacMnSz |
|
./model/src/ini_masks_etc.F |
153 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
163 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz ) THEN |
|
./model/src/ini_masks_etc.F |
164 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
167 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacMnSz |
|
./model/src/ini_masks_etc.F |
281 |
INI_MASKS_ETC |
hFacMnSz = MAX( hFacMin, MIN(hFacMinDr*recip_drF(k),oneRL) ) |
|
./model/src/ini_masks_etc.F |
289 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
292 |
INI_MASKS_ETC |
hFac1tmp = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
299 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
302 |
INI_MASKS_ETC |
hFacW(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
313 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
316 |
INI_MASKS_ETC |
hFac1tmp = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
323 |
INI_MASKS_ETC |
IF ( hFacCtmp.LT.hFacMnSz*halfRL ) THEN |
|
./model/src/ini_masks_etc.F |
326 |
INI_MASKS_ETC |
hFacS(i,j,k,bi,bj) = MAX( hFacCtmp, hFacMnSz ) |
|
./model/src/ini_masks_etc.F |
49 |
INI_MASKS_ETC |
_RL hFacMnSz, hFacCtmp |
|
./model/src/update_masks_etc.F |
109 |
UPDATE_MASKS_ETC |
hFacC(I,J,K,bi,bj) = hFacCtmp + hFacMnSz*( |
|
./model/src/update_masks_etc.F |
110 |
UPDATE_MASKS_ETC |
& EXP(-hFacCtmp/hFacMnSz)-EXP(-1./hFacMnSz) ) |
|
./model/src/update_masks_etc.F |
76 |
UPDATE_MASKS_ETC |
_RL hFacMnSz |
|
./model/src/update_masks_etc.F |
85 |
UPDATE_MASKS_ETC |
hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) ) |