--- trunk/dyn3d/start_init_phys_m.f90	2013/11/15 18:45:49	76
+++ trunk/Sources/dyn3d/start_init_phys_m.f	2015/05/26 17:46:03	139
@@ -9,9 +9,9 @@
 
   SUBROUTINE start_init_phys(tsol_2d, qsol_2d)
 
-    use comgeom, only: rlonu, rlatv
     use conf_dat2d_m, only: conf_dat2d
     use dimens_m, only: iim, jjm
+    use dynetat0_m, only: rlonu, rlatv
     use gr_int_dyn_m, only: gr_int_dyn
     use inter_barxy_m, only: inter_barxy
     use netcdf, only: nf90_nowrite
@@ -56,8 +56,7 @@
     ALLOCATE(lon_rad(iml_phys))
     ALLOCATE(lat_rad(jml_phys))
 
-    ! We get the two standard variables
-    ! 'ST': surface temperature
+    ! Surface temperature:
     call nf95_inq_varid(ncid, 'ST', varid)
     call nf95_get_var(ncid, varid, var_ana)
     CALL conf_dat2d(lon_ini, lat_ini, lon_rad, lat_rad, var_ana)
@@ -65,7 +64,7 @@
          rlatv, tmp_var) 
     tsol_2d = gr_int_dyn(tmp_var)
 
-    ! Soil moisture
+    ! Soil moisture:
     call nf95_inq_varid(ncid, 'CDSW', varid)
     call nf95_get_var(ncid, varid, var_ana)
     CALL conf_dat2d(lon_ini, lat_ini, lon_rad, lat_rad, var_ana)