Ignore:
Timestamp:
Jun 12, 2023, 5:44:22 PM (19 months ago)
Author:
evos
Message:

EV 1D Mars

Created an option to output the profiles in 1D using write_prof (default is false)
for the several years run mostly the PEM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/write_profile.F90

    r2948 r2981  
    1 SUBROUTINE writeprofile(nlev,data,name2,iq)
     1SUBROUTINE writeprofile(nlev,data,name2,iq,qsurf)
    22
    33
    … …  
    77INTEGER nlev,iq
    88REAL data(nlev)
     9REAL qsurf
    910CHARACTER(len=30) :: name2
    1011
    … …  
    1415!write the data
    1516OPEN(iq,file='profile_out_'//trim(name2),form='formatted')
     17write(iq,*) qsurf
    1618DO il=1,nlev
    1719        write(iq,*) data(il)
Note: See TracChangeset for help on using the changeset viewer.