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

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

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

revision 8 by guez, Mon Mar 31 12:51:21 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 19  contains Line 19  contains
19           nf95_get_coord           nf95_get_coord
20      use netcdf, only:  nf90_nowrite, nf90_get_var      use netcdf, only:  nf90_nowrite, nf90_get_var
21      use regr_pr, only: regr_pr_av      use regr_pr, only: regr_pr_av
22      use nrutil, only: assert      use numer_rec, only: assert
23    
24      real, intent(out):: o3_mob_regr(:, :, :) ! (iim + 1, jjm + 1, llm)      real, intent(out):: o3_mob_regr(:, :, :) ! (iim + 1, jjm + 1, llm)
25      ! (ozone mole fraction from Mobidic adapted to the LMDZ grid)      ! (ozone mole fraction from Mobidic adapted to the LMDZ grid)
# Line 45  contains Line 45  contains
45    
46      !------------------------------------------------------------      !------------------------------------------------------------
47    
48        print *, "Call sequence information: regr_pr_o3"
49      call assert(shape(o3_mob_regr) == (/iim + 1, jjm + 1, llm/), "regr_pr_o3")      call assert(shape(o3_mob_regr) == (/iim + 1, jjm + 1, llm/), "regr_pr_o3")
50    
51      call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)      call nf95_open("coefoz_LMDZ.nc", nf90_nowrite, ncid)
Legend:
Removed from v.8  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21