Changeset 2981


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
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.MARS/changelog.txt

    r2979 r2981  
    40554055+ Introducing a flag "cloud_adapt_ts" (false by default) to set the adaptative timestep (not yet ready). Otherwise fully retrocompatible.
    40564056
     4057
    40574058== 26/05/2023 == RV
    40584059Adapt write_output to be able to output integer and logical in diagfi.nc, but the variables are converted to real by the routine before being written in the netcdf.
    … …  
    40694070Adapt simu_MCS.F90 so that it also recognizes new dust opacity names from aeroptical (since r2817 : "opa_dust" instead of "opadust")
    40704071(retrocompatible with old names as well)
     4072
     4073== 12/06/2023 == EV
     4074+ Created an option to output the profiles in 1D using write_prof (default is false)
     4075for the several years run mostly the PEM

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