Changeset 2919 for trunk/LMDZ.MARS/libf/phymars/dyn1d

Timestamp:

Mar 22, 2023, 5:37:37 PM (22 months ago)

Author:

llange

Message:

PCM
Flux_geo is now correctled initialized (wasnot correctly read in the startfi) for the 3D and 1D
Minor fix in the pem (wrong name for a variable)
LL

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (4 diffs)

trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

@@ -6 +6 @@
       use mod_grid_phy_lmdz, only : regular_lonlat
       use infotrac, only: nqtot, tname, nqperes,nqfils
-      use comsoil_h, only: volcapa, layer, mlayer, inertiedat, nsoilmx
+      use comsoil_h, only: volcapa, layer, mlayer, inertiedat, nsoilmx,flux_geo
       use comgeomfi_h, only: sinlat, ini_fillgeom
       use surfdat_h, only: albedodat, z0_default, emissiv, emisice,
@@ -144 +144 @@
       logical :: present
 
+c   LL: Subsurface geothermal flux
+      real :: flux_geo_tmp
 c=======================================================================
 
@@ -626 +628 @@
 
 
+
 ! Initialize soil properties and temperature
 ! ------------------------------------------
@@ -634 +637 @@
       ENDDO
 
+      call getin("flux_geo",flux_geo_tmp)
+      flux_geo(:,:) = flux_geo_tmp
+
+
+
+
+flux_geo
 ! Initialize depths
 ! -----------------