Changeset 3307 for trunk/LMDZ.MARS

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:

• changelog.txt (modified) (1 diff)
• libf/phymars/dyn1d/init_testphys1d_mod.F90 (modified) (1 diff)
• libf/phymars/phyredem.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/changelog.txt

@@ -4616 +4616 @@
 - Small update of xml files for XIOS in the deftank, mainly to make the 3D PEM run with slopes.
 - Few cleanings in "phyetat0_mod.F90".
+
+== 19/04/2024 == JBC
+Correction of a missing argument due to changes introduced in r3305.

trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90

@@ -405 +405 @@
 ! call init_vertical_layers(nlayer,preff,scaleheight,ap,bp,aps,bps,presnivs,pseudoalt)
 call init_dimphy(1,nlayer) ! Initialize dimphy module
-call phys_state_var_init(1,llm,nq,tname,day0,dayn,time,daysec,dttestphys,rad,g,r,cpp,nqperes,nqfils) ! MVals: variables isotopes
+call phys_state_var_init(startfiname,1,llm,nq,tname,day0,dayn,time,daysec,dttestphys,rad,g,r,cpp,nqperes,nqfils) ! MVals: variables isotopes
 call ini_fillgeom(1,latitude,longitude,(/1.0/))
 call conf_phys(1,llm,nq)

trunk/LMDZ.MARS/libf/phymars/phyredem.F90

@@ -337 +337 @@
     enddo
   endif
-
+  print*,'coucou'
   ! Non-orographic gavity waves
   if (calllott_nonoro) then
@@ -343 +343 @@
      call put_field("dv_nonoro_gwd","Meridional wind tendency due to GW",dv_nonoro_gwd,time)
   endif
+  print*,'blabla'
 
   ! Geothermal Flux
      call put_field('flux_geo','Geothermal flux',flux_geo,time)
 
+  print*,'yoooo'
   ! Adsorption
   if (adsorption_soil) then
      call put_field("h2o_vap_soil","subsurface water vapour", &
                         qsoil(:,:,igcm_h2o_vap_soil,:), time)
+  print*,'eheheh'
      call put_field("h2o_ice_soil","subsurface water ice", &
                         qsoil(:,:,igcm_h2o_ice_soil,:), time)
+  print*,'ah'
      call put_field("h2o_vap_ads", "adsorbed water", &
                         qsoil(:,:,igcm_h2o_vap_ads,:), time)