Changeset 4067 for trunk/LMDZ.MARS/libf/phymars/dyn1d/init_testphys1d_mod.F90

Timestamp:

Feb 12, 2026, 12:20:33 PM (7 days ago)

Author:

jbclement

Message:

Mars PCM:
Deletion of 'tsurf' in the information provided by "start1D.txt" since it is unused and unnecessary until now (see r4059).
JBC

File:

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

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

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