Changeset 3878 for trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/newstart.F

Timestamp:

Aug 5, 2025, 1:29:32 PM (5 weeks ago)

Author:

tbertrand

Message:

LMDZ.PLUTO:
For newstart : reading in the intial albedo map and the new topography map
TB

File:

• trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/newstart.F (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/dynphy_lonlat/phypluto/newstart.F

@@ -567 +567 @@
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,phis,phisfi)
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,surfith,surfithfi)
-        CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,alb,albfi)
+        CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,alb,albfi) ! erased at next step
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,zmeaS,zmea)
         CALL gr_dyn_fi(1,iip1,jjp1,ngridmx,zstdS,zstd)
@@ -584 +584 @@
         write(*,*) 'Reading file START_ARCHIVE'
         CALL lect_start_archive(ngridmx,llm,
-     &   date,tsurf,tsoil,emis,q2,
+     &   date,tsurf,tsoil,emis,albfi,q2,
      &   t,ucov,vcov,ps,teta,phisold_newgrid,q,qsurf,
      &   surfith,nid)