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

Timestamp:

Nov 23, 2022, 3:20:19 PM (2 years ago)

Author:

romain.vande

Message:

Mars PCM:
Cleaning of phyredem0. Argument passed to the subroutines were unused.
RV

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (1 diff)

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

@@ -700 +700 @@
       call physdem0("startfi.nc",longitude,latitude,nsoilmx,ngrid,llm,
      &              nq,dtphys,float(day0),0.,cell_area,
-     &              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe,
-     &              hmons,summit,base)
+     &              albedodat,inertiedat)
       call physdem1("startfi.nc",nsoilmx,ngrid,llm,nq,
      &              dtphys,time,