C NCLFORTSTART
    subroutine qsatmodoperator (timeinn,latinn,loninn,T_k_i,p_i,e_s_ou,e_s_d_T_ou,q_s_ou,q_s_d_T_ou)
    integer  timeinn,latinn,loninn
    double precision T_k_i(loninn,latinn,timeinn),p_i(loninn,latinn,timeinn),e_s_ou(loninn,latinn,timeinn)
    double precision e_s_d_T_ou(loninn,latinn,timeinn),q_s_ou(loninn,latinn,timeinn),q_s_d_T_ou(loninn,latinn,timeinn)
C NCLEND