/[lmdze]/trunk/phylmd/Mobidic/regr_pr_comb_coefoz.f
ViewVC logotype

Diff of /trunk/phylmd/Mobidic/regr_pr_comb_coefoz.f

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

revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 11 by guez, Thu Jun 5 12:43:08 2008 UTC
# Line 144  contains Line 144  contains
144      forall (k = 1: llm)      forall (k = 1: llm)
145         where (abs(rlat) <= 45.) r_het_interm(:, k) = 0.         where (abs(rlat) <= 45.) r_het_interm(:, k) = 0.
146      end forall      end forall
147      where (r_het_interm  /= 0.) r_het_interm = r_het_interm * (Clx / 3.8e-9)**2      r_het_interm = r_het_interm * (Clx / 3.8e-9)**2
148    
149      deallocate(plev) ! pointer      deallocate(plev) ! pointer
150      call nf95_close(ncid)      call nf95_close(ncid)
Legend:
Removed from v.10  
changed lines
  Added in v.11
  ViewVC Help
Powered by ViewVC 1.1.21