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

Diff of /trunk/dyn3d/start_init_phys_m.f

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

trunk/dyn3d/start_init_phys_m.f90 revision 76 by guez, Fri Nov 15 18:45:49 2013 UTC trunk/dyn3d/start_init_phys_m.f revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC
# Line 9  CONTAINS Line 9  CONTAINS
9    
10    SUBROUTINE start_init_phys(tsol_2d, qsol_2d)    SUBROUTINE start_init_phys(tsol_2d, qsol_2d)
11    
     use comgeom, only: rlonu, rlatv  
12      use conf_dat2d_m, only: conf_dat2d      use conf_dat2d_m, only: conf_dat2d
13      use dimens_m, only: iim, jjm      use dimens_m, only: iim, jjm
14        use dynetat0_m, only: rlonu, rlatv
15      use gr_int_dyn_m, only: gr_int_dyn      use gr_int_dyn_m, only: gr_int_dyn
16      use inter_barxy_m, only: inter_barxy      use inter_barxy_m, only: inter_barxy
17      use netcdf, only: nf90_nowrite      use netcdf, only: nf90_nowrite
# 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 56  CONTAINS Line 56  CONTAINS
56      ALLOCATE(lon_rad(iml_phys))      ALLOCATE(lon_rad(iml_phys))
57      ALLOCATE(lat_rad(jml_phys))      ALLOCATE(lat_rad(jml_phys))
58    
59      ! We get the two standard variables      ! Surface temperature:
     ! 'ST': surface temperature  
60      call nf95_inq_varid(ncid, 'ST', varid)      call nf95_inq_varid(ncid, 'ST', varid)
61      call nf95_get_var(ncid, varid, var_ana)      call nf95_get_var(ncid, varid, var_ana)
62      CALL conf_dat2d(lon_ini, lat_ini, lon_rad, lat_rad, var_ana)      CALL conf_dat2d(lon_ini, lat_ini, lon_rad, lat_rad, var_ana)
# Line 65  CONTAINS Line 64  CONTAINS
64           rlatv, tmp_var)           rlatv, tmp_var)
65      tsol_2d = gr_int_dyn(tmp_var)      tsol_2d = gr_int_dyn(tmp_var)
66    
67      ! Soil moisture      ! Soil moisture:
68      call nf95_inq_varid(ncid, 'CDSW', varid)      call nf95_inq_varid(ncid, 'CDSW', varid)
69      call nf95_get_var(ncid, varid, var_ana)      call nf95_get_var(ncid, varid, var_ana)
70      CALL conf_dat2d(lon_ini, lat_ini, lon_rad, lat_rad, var_ana)      CALL conf_dat2d(lon_ini, lat_ini, lon_rad, lat_rad, var_ana)
# Line 74  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.76  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.21