Changeset 3252 for trunk/LMDZ.PLUTO/libf


Ignore:
Timestamp:
Mar 4, 2024, 5:34:44 PM (10 months ago)
Author:
afalco
Message:

Pluto PCM:
Fixed 1d ch4 and co
AF

Location:
trunk/LMDZ.PLUTO/libf/phypluto
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.PLUTO/libf/phypluto/ch4cloud.F90

    r3247 r3252  
    114114        i_ch4=igcm_ch4_gas
    115115        i_ice=igcm_ch4_ice
     116
     117        if (i_ch4.eq.0) then
     118          write(*,*) "stop in ch4cloud: i_ch4=0. "
     119          write(*,*) "Maybe put ch4 in traceur.def?"
     120          stop
     121        endif
    116122
    117123        write(*,*) "methanecloud: i_ch4=",i_ch4

  • trunk/LMDZ.PLUTO/libf/phypluto/cocloud.F90

    r3247 r3252  
    146146      pdqcloud(1:ngrid,1:nlay,1:nq)=0
    147147      pdtcloud(1:ngrid,1:nlay)=0
     148      vecnull(:)=0
    148149
    149150!    ----------------------------------------------
Note: See TracChangeset for help on using the changeset viewer.