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

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

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

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC
# Line 20  contains Line 20  contains
20      use netcdf, only: nf90_get_var      use netcdf, only: nf90_get_var
21      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
22      use regr_pr, only: regr_pr_av      use regr_pr, only: regr_pr_av
23      use nrutil, only: assert      use numer_rec, only: assert
24    
25      integer, intent(in):: ncid ! NetCDF ID of the file      integer, intent(in):: ncid ! NetCDF ID of the file
26      character(len=*), intent(in):: name ! of the NetCDF variable      character(len=*), intent(in):: name ! of the NetCDF variable
# Line 85  contains Line 85  contains
85      use netcdf, only: nf90_get_var      use netcdf, only: nf90_get_var
86      use grid_change, only: dyn_phy      use grid_change, only: dyn_phy
87      use regr_pr, only: regr_pr_int      use regr_pr, only: regr_pr_int
88      use nrutil, only: assert      use numer_rec, only: assert
89    
90      integer, intent(in):: ncid ! NetCDF ID of the file      integer, intent(in):: ncid ! NetCDF ID of the file
91      character(len=*), intent(in):: name ! of the NetCDF variable      character(len=*), intent(in):: name ! of the NetCDF variable
Legend:
Removed from v.12  
changed lines
  Added in v.13
  ViewVC Help
Powered by ViewVC 1.1.21