Changeset 802 for trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em

Timestamp:

Oct 5, 2012, 2:52:43 AM (12 years ago)

Author:

aslmd

Message:

MESOSCALE : adaptation for polar runs with new physics. co2 mr is now taken from GCM and given as an input (previously was initialized at 0.95). added mars=10 which is a case with CO2 being the only tracer.

Location:

trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em

Files:

• module_initialize_real.F (modified) (1 diff)
• solve_em.F (modified) (1 diff)

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

@@ -1320 +1320 @@
 endif
 #ifdef NEWPHYS
+if ( (config_flags%mars == 10) ) then
+       print *, '**** INTERPOLATE CO2 **** RANK 2 in SCALAR'
+       CALL vert_interp_old ( grid%em_co2_gc , grid%em_pd_gc , scalar(:,:,:,2) , grid%em_pb , &
+                                    num_metgrid_levels , 'Q' , &
+                                    interp_type , lagrange_order , lowest_lev_from_sfc , &
+                                    zap_close_levels , force_sfc_in_vinterp , &
+                                    ids , ide , jds , jde , kds , kde , &
+                                    ims , ime , jms , jme , kms , kme , &
+                                    its , ite , jts , jte , kts , kte )
+endif
 if ( (config_flags%mars == 11) .OR. (config_flags%mars == 12) ) then
        print *, '**** INTERPOLATE DUSTQ **** RANK 4 in SCALAR'             

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

@@ -2711 +2711 @@
  .OR. (  config_flags%mars .eq.  2                    ) &    !! 2   pass the dust tracer
  .OR. (  config_flags%mars .eq.  3                    ) &    !! 3   pass dust Q and N 
+ .OR. (  config_flags%mars .eq.  10                   ) &    !! 10  pass the co2 tracer
 ! .OR. ( (config_flags%mars .eq. 11) .AND. (is .EQ. 2) ) &    !! 11  pass only water vapor
  .OR. (  config_flags%mars .eq. 11                    ) &    !! 11  pass EVERYTHING