Changeset 2919 for trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90

Timestamp:

Mar 22, 2023, 5:37:37 PM (21 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/phyetat0_mod.F90 (modified) (1 diff)

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

@@ -732 +732 @@
   call soil_settings(nid_start,ngrid,nsoil,tsurf,tsoil,indextime)
 else
-    flux_geo(:) = 0.
+    flux_geo(:,:) = 0.
 endif ! of if (startphy_file)