Changeset 2695 for trunk/LMDZ.GENERIC


Ignore:
Timestamp:
Jun 21, 2022, 11:05:33 AM (3 years ago)
Author:
aslmd
Message:

fixed the update of tracer tendencies which was wrong

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r2694 r2695  
    15561556                                       dqvaplscale_generic,dqcldlscale_generic)
    15571557               pdt(1:ngrid,1:nlayer) = pdt(1:ngrid,1:nlayer)+dtlscale_generic(1:ngrid,1:nlayer)
    1558                pdq(1:ngrid,1:nlayer,iq) = pdq(1:ngrid,1:nlayer,iq)+dtlscale_generic(1:ngrid,1:nlayer)
     1558               pdq(1:ngrid,1:nlayer,iq) = pdq(1:ngrid,1:nlayer,iq)+dqvaplscale_generic(1:ngrid,1:nlayer)
    15591559               pdq(1:ngrid,1:nlayer,iq+1) = pdq(1:ngrid,1:nlayer,iq+1)+dqcldlscale_generic(1:ngrid,1:nlayer)
    15601560               !!!!huge assumption in the last line : ice tracer has index +1 of vap tracer
    1561             endif ! (is_generic(iq)==1 .and. (index(noms(iq),"vap")==1))
     1561            endif ! (is_generic(iq)==1 .and. (index(noms(iq),"vap") .ne. 0))
    15621562         enddo ! iq=1,nq
    15631563
Note: See TracChangeset for help on using the changeset viewer.