Changeset 3315 for trunk/LMDZ.MARS/libf

Timestamp:

Apr 25, 2024, 12:39:41 PM (8 months ago)

Author:

llange

Message:

Mars PCM
Fixing a bug in the initialization of sub-grid surface temperatures in the 1D
(subgrid slope index was missing)
LL

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90 (modified) (1 diff)

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

@@ -659 +659 @@
     temp = tmp2(1:)
 else
-    read(3,*) header, (tsurf(1,:), j = 1,size(tsurf,2)), (temp(ilayer), ilayer = 1,nlayer)
+    read(3,*) header, (tsurf(1,j), j = 1,size(tsurf,2)), (temp(ilayer), ilayer = 1,nlayer)
     close(3)
 endif