Ignore:
Timestamp:
Feb 5, 2026, 5:50:38 PM (4 days ago)
Author:
aslmd
Message:

Titan PCM:
Some comments
EMo

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/WRF.COMMON/INTERFACES_V4/module_lmd_driver.F

    r4045 r4048  
    752752      SCALAR(i,kps:kpe,j,P_MARKER) = SCALAR(i,kps:kpe,j,P_MARKER)*exp(-dt/tau_decay)
    753753      SCALAR(i,1,j,P_MARKER) = 1. !! this tracer is emitted in the surface layer
    754     CASE(61) !emoisan tobechecked
     754    CASE(61) !emoisan
    755755      scalar(i,kps:kpe,j,P_mu_m0as)=scalar(i,kps:kpe,j,P_mu_m0as) &
    756756           +zdqfi_omp(subs,kps:kpe,1)*dt * (1.d0+scalar(i,kps:kpe,j,P_CH4))
Note: See TracChangeset for help on using the changeset viewer.