Changeset 240 in lmdz_wrf for trunk/WRFV3/dyn_em

Timestamp:

Feb 2, 2015, 1:05:23 PM (10 years ago)

Author:

lfita

Message:

Adding map factor on tendencies

File:

• trunk/WRFV3/dyn_em/solve_em.F (modified) (2 diffs)

trunk/WRFV3/dyn_em/solve_em.F

@@ -915 +915 @@
         &        WRF_PERMASS=grid%mu_1, WRF_BASEMASS=grid%mub,                       &
         &        WRF_MUT=grid%mut, WRF_MUU=grid%muu, WRF_MUV=grid%muv,               &
+        &        WRF_MAPFAC=grid%msft,                                      &
 !!        &        WRF_UTEND=grid%ru_tend, WRF_VTEND=grid%rv_tend,                     &
 !!        &        WRF_TTEND=t_tend,                                                   &
@@ -3702 +3703 @@
    ENDIF
 
+!!L. Fita, January 2105, LMD. We have mp_physics == 0, thus, WRF is not doing
+!  this...
    IF (config_flags%mp_physics /= 0)  then
+!   IF (config_flags%mp_physics /= 0)  then
 
      !$OMP PARALLEL DO   &