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

Timestamp:

Feb 12, 2026, 12:20:33 PM (9 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

Location:

trunk/LMDZ.MARS/libf/phymars/dyn1d

Files:

• init_testphys1d_mod.F90 (modified) (1 diff)
• testphys1d.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

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

@@ -139 +139 @@
     endif
 endif
-if (therestart1D .and. .not. therestartfi) error stop 'There is a "start1D.txt" but no "startfi.nc". There might be problems for the initialization (for example ''qsurf'')!'
+if (therestart1D .and. .not. therestartfi) error stop 'There is a "start1D.txt" but no "startfi.nc". There might be problems for the initialization (for example ''qsurf'' and ''tsurf'')!'
 
 call init_testphys1d('start1D.txt','startfi.nc',therestart1D,therestartfi,ngrid,nlayer,odpref,nq,q, &