Rai=get_Ra(pI%Ra,pI%alpha,pI%rho,pI%gravity,DeltaTi,Rl,pI%Rc,pI%kappa,eta)! use pI%Rp or Rl? With Rl (e.g. Rueckriemen), results look smoother and convection slightly longer
Delta_ct=min((pI%kappa*eta_c*Rai_crit_c/(pI%Ra*pI%alpha*pI%rho*gc*DeltaTi))**pE%beta,Delta_c_max)! pI%Ra used for re-dimensionalization of factors...
!Delta_ct = min((pI%kappa*eta_c*Rai_crit_c/( pI%Ra*pI%alpha*pI%rho*gc*abs(Tc-Tb)))**pE%beta,Delta_c_max) ! this is the version from Morschhauser et al., above leads to thinner Delta_ct
!Delta_ct = (kappa_b*eta_c*Rai_crit_c/( pI%Ra*alpha_b*rho_b*gc*abs(Tc-Tb)))**pE%beta ! for Mercury, this leads to way too high lower TBL, need to be cut, unphysical...
!Delta_ct = (kappa_b*eta_c*Rai_crit_c/( pI%Ra*tet%alpha_b*tet%rho_b*gc*abs(Tc-Tb)))**pE%beta ! for Mercury, this leads to way too high lower TBL, need to be cut, unphysical...