dqhice_dTice = cc1 * cc3t /( (cc2-cc3t*Ppascals)**2 * t2)
& D1I*UG(I,J)*dqhice_dTice
_RL mm_pi,mm_log10pi,dqhice_dTice
dqhice_dTice = cc1*cc3t/((cc2-cc3t*Ppascals)**2 *t2)
& + D1I*UG(I,J)*dqhice_dTice