Changeset 3558 for trunk/LMDZ.PLUTO/libf

Timestamp:

Dec 17, 2024, 2:17:56 PM (6 days ago)

Author:

debatzbr

Message:

Cleaning up temporary tests.

File:

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

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

@@ -1567 +1567 @@
    
             pdq(:,:,:) = pdq(:,:,:) + pdqmufi(:,:,:)
-   
-            ! [BBT: Temporal tests]
-            ! >>>>>>>>>>>>>>>>>>>>>
-            !write(*,*) 'pdqmufi_prod', MAXVAL(pdqmufi_prod(1,:,11)), 'i', MAXLOC(pdqmufi_prod(1,:,11))
-            open(187,file='Mufi_tracers.out')
-            write(187,*) "Pressure (Pa) - Alt (m) - M0as (X/m3) - M3as (m3/m3) - M0af (X/m3) - M3af (m3/m3)"
-            do l=1,nlayer
-               write(187,*) pplay(1,l),zzlay(1,l), &
-               (pq(1,l,micro_indx(1))+pdq(1,l,micro_indx(1))*ptimestep)*int2ext(1,l), &
-               (pq(1,l,micro_indx(2))+pdq(1,l,micro_indx(2))*ptimestep)*int2ext(1,l), &
-               (pq(1,l,micro_indx(3))+pdq(1,l,micro_indx(3))*ptimestep)*int2ext(1,l), &
-               (pq(1,l,micro_indx(4))+pdq(1,l,micro_indx(4))*ptimestep)*int2ext(1,l)
-            enddo
-            close(187)
-            open(188,file='Mufi_tendencies.out')
-            write(188,*) "Pressure (Pa) - Alt (m) - dM0as (X/kg_air/s) - dM3as (m3/kg_air/s) - dM0af (X/kg_air/s) - dM3af (m3/kg_air/s)"
-            do l=1,nlayer
-               write(188,*) pplay(1,l),zzlay(1,l),pdqmufi(1,l,micro_indx(1)),pdqmufi(1,l,micro_indx(2)),pdqmufi(1,l,micro_indx(3)),pdqmufi(1,l,micro_indx(4))
-            enddo
-            close(188)
-            open(189,file='Mufi_diags.out')
-            write(189,*) "Pressure (Pa) - Alt (m) - rc_sph (m) - rc_fra (m) - aer_w_sph (m/s) - aer_w_fra (m/s) - aer_prec_sph (kg/m2/s) - aer_prec_fra (kg/m2/s)"
-            do l=1,nlayer
-               write(189,*) pplay(1,l),zzlay(1,l),mp2m_rc_sph(1,l),mp2m_rc_fra(1,l),mp2m_aer_s_w(1,l),mp2m_aer_f_w(1,l),mp2m_aer_s_prec(1),mp2m_aer_f_prec(1)
-            enddo
-            close(189)
-            ! <<<<<<<<<<<<<<<<<<<<<
          ENDIF ! end callmufi