Ignore:
Timestamp:
Jul 5, 2011, 9:01:02 AM (13 years ago)
Author:
aslmd
Message:

MESOSCALE: Corrected the code so that only option monotonic is called when pd_scalar is true. in WRF v3.1, it is either PD or monotonic. have to put a more advanced flag perhaps, similar to what is done in recent version of WRF. other changes are purely cosmetics.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/MESOSCALE/LMD_MM_MARS/SRC/WRFV2/dyn_em/module_em.F

    r196 r198  
    835835      IF( (rk_step == 3) .and. pd_advection ) THEN
    836836
    837         CALL advect_scalar_pd       ( scalar(ims,kms,jms,im),             &
    838                                       scalar_old(ims,kms,jms,im),         &
    839                                       advect_tend(ims,kms,jms),           &
    840                                       ru, rv, ww, mut, mub, mu_old,       &
    841                                       config_flags,                       &
    842                                       msfu, msfv, msft, fnm, fnp,         &
    843                                       rdx, rdy, rdnw,dt,                  &
    844                                       ids, ide, jds, jde, kds, kde,       &
    845                                       ims, ime, jms, jme, kms, kme,       &
    846                                       its, ite, jts, jte, kts, kte     )
    847 
     837!        CALL advect_scalar_pd       ( scalar(ims,kms,jms,im),             &
     838!                                      scalar_old(ims,kms,jms,im),         &
     839!                                      advect_tend(ims,kms,jms),           &
     840!                                      ru, rv, ww, mut, mub, mu_old,       &
     841!                                      config_flags,                       &
     842!                                      msfu, msfv, msft, fnm, fnp,         &
     843!                                      rdx, rdy, rdnw,dt,                  &
     844!                                      ids, ide, jds, jde, kds, kde,       &
     845!                                      ims, ime, jms, jme, kms, kme,       &
     846!                                      its, ite, jts, jte, kts, kte     )
    848847
    849848
Note: See TracChangeset for help on using the changeset viewer.