Changeset 3452 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Oct 9, 2024, 2:06:36 PM (2 months ago)
Author:
afalco
Message:

Pluto PCM: fix bug when calldifv not activated

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

    r3444 r3452  
    17001700                        (pu(ig,1)*pu(ig,1)+pv(ig,1)*pv(ig,1))**0.5*  &
    17011701                        (tsurf(ig)-pt(ig,1))
    1702          sensiblehf2(ig)=zflubid(ig)-capcal(ig)*zdtsdif(ig)
     1702         if (calldifv) then
     1703            sensiblehf2(ig)=zflubid(ig)-capcal(ig)*zdtsdif(ig)
     1704         end if
    17031705
    17041706      ENDDO
Note: See TracChangeset for help on using the changeset viewer.