/[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 23 by guez, Mon Dec 14 15:25:16 2009 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 22  CONTAINS Line 22  CONTAINS
22      ! Host associated variables appearing and modified in this procedure :      ! Host associated variables appearing and modified in this procedure :
23      ! iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn, lon_ini, lat_ini, levdyn_ini      ! iml_dyn, jml_dyn, llm_dyn, ttm_dyn, fid_dyn, lon_ini, lat_ini, levdyn_ini
24    
25      USE ioipsl, only: flininfo, flinopen_nozoom, flinget      USE flincom, only: flininfo, flinopen_nozoom
26        use flinget_m, only: flinget
27      use comgeom, only: aire_2d, apoln, apols      use comgeom, only: aire_2d, apoln, apols
28      use conf_dat2d_m, only: conf_dat2d      use conf_dat2d_m, only: conf_dat2d
29      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
# Line 71  CONTAINS Line 72  CONTAINS
72      ALLOCATE(lon_dyn(iml_dyn, jml_dyn))      ALLOCATE(lon_dyn(iml_dyn, jml_dyn))
73      ALLOCATE(levdyn_ini(llm_dyn))      ALLOCATE(levdyn_ini(llm_dyn))
74    
75      CALL flinopen_nozoom(physfname, iml_dyn, jml_dyn, llm_dyn, &      CALL flinopen_nozoom(iml_dyn, jml_dyn, llm_dyn, &
76           lon_dyn, lat_dyn, levdyn_ini, ttm_dyn, itau, date, dt, fid_dyn)           lon_dyn, lat_dyn, levdyn_ini, ttm_dyn, itau, date, dt, fid_dyn)
77    
78      ALLOCATE(var_ana(iml_dyn, jml_dyn))      ALLOCATE(var_ana(iml_dyn, jml_dyn))
# Line 141  CONTAINS Line 142  CONTAINS
142      ! This procedure gets a 3D variable from a file and does the      ! This procedure gets a 3D variable from a file and does the
143      ! interpolations needed.      ! interpolations needed.
144    
145      USE ioipsl, only: flinget      use flinget_m, only: flinget
146      use numer_rec, only: assert_eq, spline, splint      use numer_rec, only: assert_eq, spline, splint
147      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
148      use gr_int_dyn_m, only: gr_int_dyn      use gr_int_dyn_m, only: gr_int_dyn
# Line 196  CONTAINS Line 197  CONTAINS
197            ay(:) = var_tmp3d(ii, ij, llm_dyn:1:-1)            ay(:) = var_tmp3d(ii, ij, llm_dyn:1:-1)
198            yder(:) = SPLINE(ax, ay)            yder(:) = SPLINE(ax, ay)
199            do il=1, lml            do il=1, lml
200               var3d(ii, ij, il) &               var3d(ii, ij, il) = SPLINT(ax, ay, yder, pls_in(ii, ij, il))
                   = SPLINT(ax, ay, yder, pls_in(ii, ij, il))  
201            END do            END do
202         ENDDO         ENDDO
203      ENDDO      ENDDO
Legend:
Removed from v.23  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21