/[lmdze]/trunk/libf/phylmd/Mobidic/regr_pr_comb_coefoz.f90
ViewVC logotype

Diff of /trunk/libf/phylmd/Mobidic/regr_pr_comb_coefoz.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/libf/phylmd/read_coefoz_m.f90 revision 7 by guez, Mon Mar 31 12:24:17 2008 UTC trunk/libf/phylmd/Mobidic/regr_pr_comb_coefoz.f90 revision 9 by guez, Mon Mar 31 13:58:05 2008 UTC
# Line 141  contains Line 141  contains
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)
Legend:
Removed from v.7  
changed lines
  Added in v.9
  ViewVC Help
Powered by ViewVC 1.1.21