Changeset 2926 for trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F

Timestamp:

Mar 31, 2023, 11:48:38 AM (23 months ago)

Author:

romain.vande

Message:

1D Mars PCM:
Following r2924, the 1D model always output a restarfi
RV

File:

• trunk/LMDZ.MARS/libf/phymars/dyn1d/testphys1d.F (modified) (3 diffs)

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

@@ -686 +686 @@
       
 
-
-
 ! Initialize soil properties and temperature
 ! ------------------------------------------
@@ -792 +790 @@
      &              tsurf,tsoil,albedo,emis,q2,qsurf,tauscaling,
      &              totcloudfrac,wstar,watercap)
-      else
-         CALL phyetat0 ("startfi.nc",0,0,
-     &         nsoilmx,ngrid,nlayer,nq,
-     &         day0,time,
-     &         tsurf,tsoil,albedo_read,emis,
-     &         q2,qsurf,tauscaling,totcloudfrac,wstar,
-     &         watercap,def_slope,def_slope_mean,subslope_dist)
-         day=real(day0)
-         albedo(1,1)=albedo_read(1,1,1)
       endif !(.not. startfile_1D )
 
@@ -950 +939 @@
         CALL endg1d(1,nlayer,zlay/1000.,ndt)
 
-c      if(startfile_1D) then
-c       call physdem0("restartfi.nc",longitude,latitude,nsoilmx,ngrid,
-c     &              llm,nq,dtphys,float(day0),0.,cell_area,
-c     &              albedodat,inertiedat,def_slope,subslope_dist)
-c       call physdem1("restartfi.nc",nsoilmx,ngrid,llm,nq,
-c     &              dtphys,time,
-c     &              tsurf,tsoil,albedo,emis,q2,qsurf,tauscaling,
-c     &              totcloudfrac,wstar,watercap)
-c      endif! startfile_1D
-
       write(*,*) "testphys1d: Everything is cool."