Changeset 2981 for trunk/LMDZ.MARS/libf


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

Location:
trunk/LMDZ.MARS/libf/phymars/dyn1d
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

    r2980 r2981  
    992992      IF (write_prof) then
    993993              DO iq = 1, nq
    994                 call writeprofile(nlayer,q(:,iq),noms(iq),iq)
     994                call writeprofile(nlayer,q(:,iq),noms(iq),iq,qsurf)
    995995              ENDDO
    996996      ENDIF

  • 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.