File |
Line number |
Procedure |
Code |
./model/src/ini_masks_etc.F |
114 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
./model/src/ini_masks_etc.F |
116 |
INI_MASKS_ETC |
hFacCtmp = MIN( MAX( hFacCtmp, zeroRL ) , 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 |
125 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacCtmp |
./model/src/ini_masks_etc.F |
157 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
./model/src/ini_masks_etc.F |
159 |
INI_MASKS_ETC |
hFacCtmp = hFacC(i,j,k,bi,bj) - MAX( hFacCtmp, zeroRL ) |
./model/src/ini_masks_etc.F |
161 |
INI_MASKS_ETC |
hFacCtmp = MAX( hFacCtmp, zeroRL ) |
./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 |
170 |
INI_MASKS_ETC |
hFacC(i,j,k,bi,bj) = hFacCtmp |
./model/src/ini_masks_etc.F |
286 |
INI_MASKS_ETC |
hFacCtmp = MIN( hFac1tmp, 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 |
297 |
INI_MASKS_ETC |
hFacCtmp = hFac1tmp - MAX( hFac2tmp, zeroRL ) |
./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 |
310 |
INI_MASKS_ETC |
hFacCtmp = MIN( hFac1tmp, oneRL ) |
./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 |
321 |
INI_MASKS_ETC |
hFacCtmp = hFac1tmp - MAX( hFac2tmp, zeroRL ) |
./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 |
103 |
UPDATE_MASKS_ETC |
IF ( hFacCtmp .LE. 0. _d 0 ) THEN |
./model/src/update_masks_etc.F |
106 |
UPDATE_MASKS_ETC |
ELSEIF ( hFacCtmp .GT. 1. _d 0 ) THEN |
./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 |
75 |
UPDATE_MASKS_ETC |
_RL hFacCtmp, hFacCtmp2 |
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |