/[lmdze]/trunk/libf/dyn3d/startdyn.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/startdyn.f90

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

revision 13 by guez, Fri Jul 25 19:59:34 2008 UTC revision 20 by guez, Wed Oct 15 16:19:57 2008 UTC
# Line 172  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.13  
changed lines
  Added in v.20
  ViewVC Help
Powered by ViewVC 1.1.21