/[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

revision 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 99 by guez, Wed Jul 2 18:39:15 2014 UTC
# 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)
Legend:
Removed from v.82  
changed lines
  Added in v.99
  ViewVC Help
Powered by ViewVC 1.1.21