Searched refs:stepn (Results 1 – 1 of 1) sorted by relevance
1173 subroutine CalcRCRConvCoef (stepn, numSrfs) argument1179 integer numSrfs, stepn local1182 if (stepn .eq. 0) then1190 if (stepn .ge. 1) then1191 RCRConvCoef(1,:) =-ValueListRCR(3,:)*exp(-dtRCR(:)*(stepn+alfi))1193 RCRConvCoef(stepn+1,:) = ValueListRCR(1,:)*(1-alfi) 1196 RCRConvCoef(stepn+2,:) = ValueListRCR(1,:)*alfi 1200 if (stepn .ge. 2) then1201 do j=2,stepn1203 & exp(-dtRCR(:)*(stepn + alfi + 2 - j))*[all …]