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

Diff of /trunk/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 22 by guez, Fri Jul 31 15:18:47 2009 UTC trunk/Sources/phylmd/Mobidic/regr_lat_time_coefoz.f revision 134 by guez, Wed Apr 29 15:47:56 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 39  contains Line 38  contains
38    
39      use dimens_m, only: jjm      use dimens_m, only: jjm
40      use comgeom, only: rlatv      use comgeom, 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 127  contains Line 125  contains
125      name_out(i_v) = "a2"      name_out(i_v) = "a2"
126    
127      i_v = i_v + 1      i_v = i_v + 1
128      name_in(i_v) = "r"      name_in(i_v) = "tro3"
129      name_out(i_v) = "r_Mob"      name_out(i_v) = "r_Mob"
130    
131      i_v = i_v + 1      i_v = i_v + 1
# Line 240  contains Line 238  contains
238    
239      use dimens_m, only: jjm      use dimens_m, only: jjm
240      use comgeom, only: rlatu      use comgeom, only: rlatu
241      use comconst, only: pi      use nr_util, only: assert_eq, pi
     use numer_rec, only: assert_eq  
242    
243      use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, &      use netcdf95, only: nf95_create, nf95_def_dim, nf95_def_var, &
244           nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var           nf95_put_att, nf95_enddef, nf95_copy_att, nf95_put_var
Legend:
Removed from v.22  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21