Changeset 2089 for trunk/MESOSCALE/LMD_MM_MARS

Timestamp:

Feb 5, 2019, 5:10:17 PM (6 years ago)

Author:

mlefevre

Message:

MESOSCALE. Add reading of water tracer for ideal mode

File:

• trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_quarter_ss.F (modified) (1 diff)

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_initialize_quarter_ss.F

@@ -902 +902 @@
       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