/[lmdze]/trunk/Sources/phylmd/Mobidic/regr_lat_time_coefoz.f
ViewVC logotype

Diff of /trunk/Sources/phylmd/Mobidic/regr_lat_time_coefoz.f

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

trunk/libf/phylmd/Mobidic/regr_lat_time_coefoz.f90 revision 23 by guez, Mon Dec 14 15:25:16 2009 UTC trunk/Sources/phylmd/Mobidic/regr_lat_time_coefoz.f revision 139 by guez, Tue May 26 17:46:03 2015 UTC
# Line 1  Line 1 
1  module regr_lat_time_coefoz_m  module regr_lat_time_coefoz_m
2    
   ! This module is clean: no C preprocessor directive, no include line.  
3    ! Author: Lionel GUEZ    ! Author: Lionel GUEZ
4    
5    implicit none    implicit none
# Line 38  contains Line 37  contains
37      ! not use values of the input time coordinate).      ! not use values of the input time coordinate).
38    
39      use dimens_m, only: jjm      use dimens_m, only: jjm
40      use comgeom, only: rlatv      use dynetat0_m, only: rlatv
41      use comconst, only: pi      use nr_util, only: pi
42      use regr1_step_av_m, only: regr1_step_av      use numer_rec_95, only: regr1_step_av, regr3_lint
     use regr3_lint_m, only: regr3_lint  
43      use netcdf95, only: nf95_open, nf95_gw_var, nf95_close, &      use netcdf95, only: nf95_open, nf95_gw_var, nf95_close, &
44           nf95_inq_varid, handle_err, nf95_put_var           nf95_inq_varid, handle_err, nf95_put_var
45      use netcdf, only: nf90_nowrite, nf90_get_var      use netcdf, only: nf90_nowrite, nf90_get_var
# Line 239  contains Line 237  contains
237      ! dimensions and variables, and writes one of the coordinate variables.      ! dimensions and variables, and writes one of the coordinate variables.
238    
239      use dimens_m, only: jjm      use dimens_m, only: jjm
240      use comgeom, only: rlatu      use dynetat0_m, only: rlatu
241      use comconst, only: pi      use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global
     use numer_rec, only: assert_eq  
   
242      use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, &      use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, &
243           nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var           nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var
244      use netcdf, only: nf90_clobber, nf90_float, nf90_copy_att, nf90_global      use nr_util, only: assert_eq, pi
245    
246      integer, intent(in):: ncid_in, varid_in(:), n_plev      integer, intent(in):: ncid_in, varid_in(:), n_plev
247      character(len=*), intent(in):: name_out(:) ! of NetCDF variables      character(len=*), intent(in):: name_out(:) ! of NetCDF variables
Legend:
Removed from v.23  
changed lines
  Added in v.139
  ViewVC Help
Powered by ViewVC 1.1.21