/[lmdze]/trunk/Sources/dyn3d/start_init_phys_m.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/start_init_phys_m.f

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

revision 224 by guez, Tue May 26 17:46:03 2015 UTC revision 225 by guez, Mon Oct 16 12:35:41 2017 UTC
# Line 25  CONTAINS Line 25  CONTAINS
25    
26      INTEGER iml_phys, jml_phys, ncid, varid      INTEGER iml_phys, jml_phys, ncid, varid
27      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)      REAL, ALLOCATABLE:: lon_rad(:), lat_rad(:)
28      REAL, pointer:: lon_ini(:), lat_ini(:) ! longitude and latitude in rad      REAL, ALLOCATABLE:: lon_ini(:), lat_ini(:) ! longitude and latitude in rad
29      REAL, ALLOCATABLE:: var_ana(:, :)      REAL, ALLOCATABLE:: var_ana(:, :)
30      real tmp_var(iim, jjm + 1)      real tmp_var(iim, jjm + 1)
31    
# Line 73  CONTAINS Line 73  CONTAINS
73      qsol_2d = gr_int_dyn(tmp_var)      qsol_2d = gr_int_dyn(tmp_var)
74    
75      call nf95_close(ncid)      call nf95_close(ncid)
     deallocate(lon_ini, lat_ini) ! pointers  
76    
77    END SUBROUTINE start_init_phys    END SUBROUTINE start_init_phys
78    
Legend:
Removed from v.224  
changed lines
  Added in v.225
  ViewVC Help
Powered by ViewVC 1.1.21