Changeset 3541 for trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/rcm1d.F

Timestamp:

Dec 10, 2024, 11:39:45 AM (4 days ago)

Author:

tbertrand

Message:

LMDZ.PLUTO
small fix in rcm1d, inertiedat now in physdem1 instead of physdem0
TB

File:

• trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/rcm1d.F (modified) (1 diff)

trunk/LMDZ.PLUTO/libf/phypluto/dyn1d/rcm1d.F

@@ -924 +924 @@
       call physdem0("startfi.nc",longitude,latitude,nsoilmx,1,llm,nq,
      &              dtphys,real(day0),time,cell_area,
-     &              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe)
+     &              albedodat,zmea,zstd,zsig,zgam,zthe)
       call physdem1("startfi.nc",nsoilmx,1,llm,nq,
      &                dtphys,time,
-     &                tsurf,tsoil,emis,q2,qsurf)
+     &                tsurf,tsoil,inertiedat,emis,q2,qsurf)
 
 c=======================================================================