Changeset 3694 for trunk/LMDZ.PLUTO/libf

Timestamp:

Mar 18, 2025, 3:52:13 PM (9 months ago)

Author:

afalco

Message:

Pluto: xios-linked changes, some new variables;
zrecast reads aps and bps in start.nc if it fails to find it in Xhistins.nc.
AF

File:

• trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90 (modified) (2 diffs)

trunk/LMDZ.PLUTO/libf/phypluto/physiq_mod.F90

@@ -2129 +2129 @@
       call write_output("ps","Surface pressure","Pa",ps)
       call write_output("emis","Emissivity","",emis)
+      call write_output('phisfi','Surface Geopotential','m2s-2',phisfi)
       if (grid_type == regular_lonlat) then
           call write_output("area","Mesh area","m2", &
@@ -2168 +2169 @@
          call write_output("zzlay","Midlayer altitude", "m",zzlay(:,:))
          call write_output("zzlev","Interlayer altitude", "m",zzlev(:,1:nlayer))
-         !call write_output('pphi','Geopotential',' ',pphi)
+         call write_output('pphi','Geopotential','m2s-2',pphi)
 
          call write_output("temperature","temperature","K",zt)