Changeset 3307


Ignore:
Timestamp:
Apr 19, 2024, 7:02:10 PM (7 months ago)
Author:
jbclement
Message:

Mars PCM:
Correction of a missing argument due to changes introduced in r3305.
JBC

Location:
trunk/LMDZ.MARS
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/changelog.txt

    r3305 r3307  
    46164616- Small update of xml files for XIOS in the deftank, mainly to make the 3D PEM run with slopes.
    46174617- Few cleanings in "phyetat0_mod.F90".
     4618
     4619== 19/04/2024 == JBC
     4620Correction of a missing argument due to changes introduced in r3305.
  • trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90

    r3301 r3307  
    405405! call init_vertical_layers(nlayer,preff,scaleheight,ap,bp,aps,bps,presnivs,pseudoalt)
    406406call init_dimphy(1,nlayer) ! Initialize dimphy module
    407 call phys_state_var_init(1,llm,nq,tname,day0,dayn,time,daysec,dttestphys,rad,g,r,cpp,nqperes,nqfils) ! MVals: variables isotopes
     407call phys_state_var_init(startfiname,1,llm,nq,tname,day0,dayn,time,daysec,dttestphys,rad,g,r,cpp,nqperes,nqfils) ! MVals: variables isotopes
    408408call ini_fillgeom(1,latitude,longitude,(/1.0/))
    409409call conf_phys(1,llm,nq)
  • trunk/LMDZ.MARS/libf/phymars/phyredem.F90

    r3142 r3307  
    337337    enddo
    338338  endif
    339 
     339  print*,'coucou'
    340340  ! Non-orographic gavity waves
    341341  if (calllott_nonoro) then
     
    343343     call put_field("dv_nonoro_gwd","Meridional wind tendency due to GW",dv_nonoro_gwd,time)
    344344  endif
     345  print*,'blabla'
    345346
    346347  ! Geothermal Flux
    347348     call put_field('flux_geo','Geothermal flux',flux_geo,time)
    348349
     350  print*,'yoooo'
    349351  ! Adsorption
    350352  if (adsorption_soil) then
    351353     call put_field("h2o_vap_soil","subsurface water vapour", &
    352354                        qsoil(:,:,igcm_h2o_vap_soil,:), time)
     355  print*,'eheheh'
    353356     call put_field("h2o_ice_soil","subsurface water ice", &
    354357                        qsoil(:,:,igcm_h2o_ice_soil,:), time)
     358  print*,'ah'
    355359     call put_field("h2o_vap_ads", "adsorbed water", &
    356360                        qsoil(:,:,igcm_h2o_vap_ads,:), time)
Note: See TracChangeset for help on using the changeset viewer.