--- trunk/libf/phylmd/Mobidic/regr_pr_comb_coefoz.f90	2008/03/31 12:51:21	8
+++ trunk/libf/phylmd/Mobidic/regr_pr_comb_coefoz.f90	2008/03/31 13:58:05	9
@@ -141,10 +141,10 @@
     call regr_pr_av_coefoz(ncid, "P_net_Mob", julien, press_in_edg, c_Mob)
 
     call regr_pr_av_coefoz(ncid, "r_Mob", julien, press_in_edg, coefoz)
-    c_mob = c_mob - a2 * coeofoz
+    c_mob = c_mob - a2 * coefoz
 
     call regr_pr_int_coefoz(ncid, "Sigma_Mob", julien, plev, top_value=0., &
-         coefoz)
+         v3=coefoz)
     c_mob = (c_mob - a6 * coefoz) * 48. / 29.
 
     call regr_pr_av_coefoz(ncid, "temp_Mob", julien, press_in_edg, coefoz)