141 |
call regr_pr_av_coefoz(ncid, "P_net_Mob", julien, press_in_edg, c_Mob) |
call regr_pr_av_coefoz(ncid, "P_net_Mob", julien, press_in_edg, c_Mob) |
142 |
|
|
143 |
call regr_pr_av_coefoz(ncid, "r_Mob", julien, press_in_edg, coefoz) |
call regr_pr_av_coefoz(ncid, "r_Mob", julien, press_in_edg, coefoz) |
144 |
c_mob = c_mob - a2 * coeofoz |
c_mob = c_mob - a2 * coefoz |
145 |
|
|
146 |
call regr_pr_int_coefoz(ncid, "Sigma_Mob", julien, plev, top_value=0., & |
call regr_pr_int_coefoz(ncid, "Sigma_Mob", julien, plev, top_value=0., & |
147 |
coefoz) |
v3=coefoz) |
148 |
c_mob = (c_mob - a6 * coefoz) * 48. / 29. |
c_mob = (c_mob - a6 * coefoz) * 48. / 29. |
149 |
|
|
150 |
call regr_pr_av_coefoz(ncid, "temp_Mob", julien, press_in_edg, coefoz) |
call regr_pr_av_coefoz(ncid, "temp_Mob", julien, press_in_edg, coefoz) |