Changeset 3992 for trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90

Timestamp:

Dec 23, 2025, 4:10:55 PM (4 days ago)

Author:

tbertrand

Message:

PLUTO PCM :
Fixing bug of tracer index when asking a tendancy as output
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90 (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/condense_n2.F90

@@ -666 +666 @@
               write(*,*) 'zmflux*DT, l=1' ,  zmflux(1)*ptimestep
               write(*,*) 'zmflux*DT, l=2' ,  zmflux(2)*ptimestep
-          write(*,*) 'pq, l=1,2,3' ,  pq(1,1,1), pq(1,2,1),pq(1,3,1)
-          write(*,*) 'zq, l=1,2,3' ,  zq(1,1), zq(2,1),zq(3,1)
-              write(*,*) 'dq*Dt l=1' ,  pdq(1,1,1)*ptimestep
-              write(*,*) 'dqcond*Dt l=1' ,  pdqc(1,1,1)*ptimestep
+          write(*,*) 'pq, l=1,2,3' ,  pq(1,1,igcm_n2), pq(1,2,igcm_n2),pq(1,3,igcm_n2)
+          write(*,*) 'zq, l=1,2,3' ,  zq(1,igcm_n2), zq(2,igcm_n2),zq(3,igcm_n2)
+              write(*,*) 'dq*Dt l=1' ,  pdq(1,1,igcm_n2)*ptimestep
+              write(*,*) 'dqcond*Dt l=1' ,  pdqc(1,1,igcm_n2)*ptimestep
      end if