/[lmdze]/trunk/dyn3d/startdyn.f
ViewVC logotype

Diff of /trunk/dyn3d/startdyn.f

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

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 142  CONTAINS Line 142  CONTAINS
142      ! interpolations needed.      ! interpolations needed.
143    
144      USE ioipsl, only: flinget      USE ioipsl, only: flinget
145      use nrutil, only: assert_eq      use numer_rec, only: assert_eq, spline, splint
   
146      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
     use interpolation, only: spline, splint  
147      use gr_int_dyn_m, only: gr_int_dyn      use gr_int_dyn_m, only: gr_int_dyn
148      use conf_dat3d_m, only: conf_dat3d      use conf_dat3d_m, only: conf_dat3d
149    
# Line 174  CONTAINS Line 172  CONTAINS
172      lml = size(pls_in, 3)      lml = size(pls_in, 3)
173    
174      print *, "iml = ", iml, ", jml = ", jml      print *, "iml = ", iml, ", jml = ", jml
     print *, 'Going into flinget to extract the 3D field.'  
175      print *, "fid_dyn = ", fid_dyn, ", varname = ", varname      print *, "fid_dyn = ", fid_dyn, ", varname = ", varname
176      print *, "iml_dyn = ", iml_dyn, ", jml_dyn = ", jml_dyn, &      print *, "iml_dyn = ", iml_dyn, ", jml_dyn = ", jml_dyn, &
177           ", llm_dyn = ", llm_dyn, ", ttm_dyn = ", ttm_dyn           ", llm_dyn = ", llm_dyn, ", ttm_dyn = ", ttm_dyn
178        print *, 'Going into flinget to extract the 3D field.'
179      CALL flinget(fid_dyn, varname, iml_dyn, jml_dyn, llm_dyn, ttm_dyn, 1, 1, &      CALL flinget(fid_dyn, varname, iml_dyn, jml_dyn, llm_dyn, ttm_dyn, 1, 1, &
180           var_ana3d)           var_ana3d)
181    
Legend:
Removed from v.3  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21