Ignore:
Timestamp:
Jun 15, 2021, 1:18:14 PM (3 years ago)
Author:
crisi
Message:

replace files by symbloic liks from phylmdiso towards phylmd.
Many files at once

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmdiso/infotrac_phy.F90

    r3927 r3940  
    2323  INTEGER, SAVE :: nqtottr
    2424!$OMP THREADPRIVATE(nqtottr)
     25
     26! ThL : number of CO2 tracers                   ModThL
     27  INTEGER, SAVE :: nqCO2
     28!$OMP THREADPRIVATE(nqCO2)
    2529
    2630#ifdef CPP_StratAer
    … …  
    194198    ALLOCATE(solsym(nbtr))
    195199    solsym(:)=solsym_(:)
    196  
     200     
    197201    IF(prt_level.ge.1) THEN
    198       write(lunout,*) TRIM(modname)//": nqtot,nqo,nbtr",nqtot,nqo,nbtr
     202      write(lunout,*) TRIM(modname)//": nqtot,nqo,nbtr,nqCO2",nqtot,nqo,nbtr,nqCO2
    199203    ENDIF
    200204   
Note: See TracChangeset for help on using the changeset viewer.