Changeset 3307
- Timestamp:
- Apr 19, 2024, 7:02:10 PM (7 months ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/changelog.txt
r3305 r3307 4616 4616 - Small update of xml files for XIOS in the deftank, mainly to make the 3D PEM run with slopes. 4617 4617 - Few cleanings in "phyetat0_mod.F90". 4618 4619 == 19/04/2024 == JBC 4620 Correction of a missing argument due to changes introduced in r3305. -
trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90
r3301 r3307 405 405 ! call init_vertical_layers(nlayer,preff,scaleheight,ap,bp,aps,bps,presnivs,pseudoalt) 406 406 call 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 isotopes407 call phys_state_var_init(startfiname,1,llm,nq,tname,day0,dayn,time,daysec,dttestphys,rad,g,r,cpp,nqperes,nqfils) ! MVals: variables isotopes 408 408 call ini_fillgeom(1,latitude,longitude,(/1.0/)) 409 409 call conf_phys(1,llm,nq) -
trunk/LMDZ.MARS/libf/phymars/phyredem.F90
r3142 r3307 337 337 enddo 338 338 endif 339 339 print*,'coucou' 340 340 ! Non-orographic gavity waves 341 341 if (calllott_nonoro) then … … 343 343 call put_field("dv_nonoro_gwd","Meridional wind tendency due to GW",dv_nonoro_gwd,time) 344 344 endif 345 print*,'blabla' 345 346 346 347 ! Geothermal Flux 347 348 call put_field('flux_geo','Geothermal flux',flux_geo,time) 348 349 350 print*,'yoooo' 349 351 ! Adsorption 350 352 if (adsorption_soil) then 351 353 call put_field("h2o_vap_soil","subsurface water vapour", & 352 354 qsoil(:,:,igcm_h2o_vap_soil,:), time) 355 print*,'eheheh' 353 356 call put_field("h2o_ice_soil","subsurface water ice", & 354 357 qsoil(:,:,igcm_h2o_ice_soil,:), time) 358 print*,'ah' 355 359 call put_field("h2o_vap_ads", "adsorbed water", & 356 360 qsoil(:,:,igcm_h2o_vap_ads,:), time)
Note: See TracChangeset
for help on using the changeset viewer.