Changeset 3914 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Sep 5, 2025, 4:26:19 PM (3 months ago)
Author:
vbelissa
Message:

Pluto PCM : Correcting bug in newstart. Victor Belissa

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/newstart.F

    r3910 r3914  
    28492849                 DO compt=1,4
    28502850                    if (qsurf(edge(compt),igcm_n2).le.1.e-6.and.
    2851      &                                       tsurf(ig).gt.val7) then
     2851     &                          tsurf(edge(compt)).gt.val7) then
    28522852                       ignew=edge(compt)
    28532853                    endif
Note: See TracChangeset for help on using the changeset viewer.