Changeset 3583 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Jan 17, 2025, 4:05:50 PM (3 days ago)
Author:
debatzbr
Message:

Fixes the display of microphysical parameters

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/muphypluto/mp2m_globals.F90

    r3560 r3583  
    915915      ! Haze production:
    916916      WRITE(*,'(a,L2)')      "mm_w_haze_prod             : ", mm_w_haze_prod
     917      WRITE(*,'(a,ES14.7)')  "mm_rc_prod (m)             : ", mm_rc_prod
    917918      WRITE(*,'(a,L2)')      "mm_haze_prod_pCH4          : ", mm_haze_prod_pCH4
    918919      IF (.NOT. mm_haze_prod_pCH4) THEN
    919920        WRITE(*,'(a,ES14.7)')  "   --> mm_p_prod (Pa)         : ", mm_p_prod
    920921        WRITE(*,'(a,ES14.7)')  "   --> mm_tx_prod (kg.m-2.s-1): ", mm_tx_prod
    921         WRITE(*,'(a,ES14.7)')  "   --> mm_rc_prod (m)         : ", mm_rc_prod
     922       
    922923      ENDIF
    923924     
Note: See TracChangeset for help on using the changeset viewer.