Index: /trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_quarter_ss.F
===================================================================
--- /trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_quarter_ss.F	(revision 2088)
+++ /trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_quarter_ss.F	(revision 2089)
@@ -902,4 +902,19 @@
       close(unit=18)
     ENDIF
+
+    if (      ( config_flags%mars == 1  ) &
+         .OR. ( config_flags%mars == 11 ) &
+         .OR. ( config_flags%mars == 12 ) ) then
+      print *, '**** INTERPOLATE HV **** RANK 2 in SCALAR'
+      DO k=1,kte-1
+         p_level = grid%em_znu(k)*(pd_surf - grid%p_top) + grid%p_top
+         scalar(its:ite,k,jts:jte,2) = interp_0( qv, pd_in, p_level, nl_in )
+         scalar(its:ite,k,jts:jte,3) = 0.
+           !! water ice is set to 0 (was put into water vapor when building prof
+           !from MCD)
+      ENDDO
+      print *, "WATER VAPOR",scalar(its,:,jts,2)
+    endif
+
  END SUBROUTINE init_domain_rk