Changeset 3438 for trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto

Timestamp:

Sep 25, 2024, 4:43:31 PM (5 months ago)

Author:

afalco

Message:

Pluto PCM: Minor fixes.
AF

File:

• trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/newstart.F (modified) (1 diff)

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

@@ -1454 +1454 @@
      &              (lonfi(ig)*180./pi.ge.val4)  .and.
      &              (lonfi(ig)*180./pi.lt.val5)  .and. 
-     &              (qsurf(ig,igcm_n2).lt.val7))  then     
+     &              (qsurf(ig,igcm_n2).gt.val7))  then     
                     qsurf(ig,igcm_co_ice)=qsurf(ig,igcm_co_ice)*val3
                     qsurf(ig,igcm_co_ice)=qsurf(ig,igcm_co_ice)+val6