Ignore:
Timestamp:
Jan 29, 2024, 4:18:28 PM (11 months ago)
Author:
jbclement
Message:

Mars PCM:
Addition of the parameter 'CO2cond_ps' (= 1 by default) for 1D. This coefficient controls the surface pressure change. If 'relaxcoef_ps = 1', then surface pressure varies normally. If 'relaxcoef_ps = 0', then surface pressure is kept constant. The ratio of polar cap surface over planetary surface is a typical value (8.3e-4) for tests. To be defined in "callphys.def" so that both PCM and PEM can read it.
JBC

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/evolution/pem.F90

    r3181 r3188  
    137137real, dimension(:,:,:), allocatable :: q             ! champs advectes
    138138real, dimension(ip1jmp1)            :: ps            ! pression au sol
     139real                                :: CO2cond_ps    ! Coefficient to control the surface pressure change
    139140real, dimension(:),     allocatable :: ps_start_PCM  ! (ngrid) surface pressure
    140141real, dimension(:,:),   allocatable :: ps_timeseries ! (ngrid x timelen) instantaneous surface pressure
     
    300301    allocate(q(ip1jmp1,llm,nqtot))
    301302    allocate(longitude(ngrid),latitude(ngrid),cell_area(ngrid))
     303    CO2cond_ps = 1.
    302304#else
    303305    allocate(q(1,llm,nqtot))
     
    319321    call init_testphys1d('start1D_evol.txt','startfi_evol.nc',.true.,therestart1D,therestartfi,ngrid,nlayer,610., &
    320322                         nq,q,time_0,ps(1),ucov,vcov,teta,ndt,ptif,pks,dtphys,zqsat,dq,dqdyn,day0,day,gru,grv,w,  &
    321                          play,plev,latitude,longitude,cell_area,atm_wat_profile,atm_wat_tau)
     323                         play,plev,latitude,longitude,cell_area,atm_wat_profile,atm_wat_tau,CO2cond_ps)
    322324    ps(2) = ps(1)
    323325    nsplit_phys = 1
     
    643645    do i = 1,ngrid
    644646        do islope = 1,nslope
    645             global_avg_press_new = global_avg_press_new - g*cell_area(i)*tend_co2_ice(i,islope)*subslope_dist(i,islope)/cos(pi*def_slope_mean(islope)/180.)/Total_surface
     647            global_avg_press_new = global_avg_press_new - CO2cond_ps*g*cell_area(i)*tend_co2_ice(i,islope)*subslope_dist(i,islope)/cos(pi*def_slope_mean(islope)/180.)/Total_surface
    646648        enddo
    647649    enddo
Note: See TracChangeset for help on using the changeset viewer.