Changeset 3308 for trunk/LMDZ.MARS/libf

Timestamp:

Apr 19, 2024, 7:17:31 PM (8 months ago)

Author:

jbclement

Message:

PEM:
Few small corrections to make the PEM work in 3D, in particular concerning the initialization of the planet type and the evolution of ice with slopes.
JBC

File:

• trunk/LMDZ.MARS/libf/phymars/phyredem.F90 (modified) (2 diffs)

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)