Changeset 3941 for trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/leapfrog_nogcm_pluto.F

Timestamp:

Oct 29, 2025, 9:10:13 PM (5 weeks ago)

Author:

tbertrand

Message:

PLUTO PCM :
Some options in newstart for Triton simulations
TB

File:

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

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

@@ -257 +257 @@
       do ij=1,ip1jmp1
         do l=2,llm
-!          PRINT*,'pk(ij,l) = ',pk(ij,l)
-!          PRINT*,'pk(ij,l-1) = ',pk(ij,l-1)
+          !PRINT*,'pk(ij,l) = ',l,pk(ij,l)
+          !PRINT*,'pk(ij,l-1) = ',pk(ij,l-1)
           if(pk(ij,l).gt.pk(ij,l-1)) then
 c           write(*,*) ij,l,pk(ij,l)