Changeset a4288fa in flexpart.git for src/readoutgrid.f90

Timestamp:

Dec 15, 2020, 2:15:39 PM (3 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

GFS_025, dev

Children:

759df5f

Parents:

5635973

Message:

Added option to write surface pressure/temperature to netcdf output

File:

• src/readoutgrid.f90 (modified) (1 diff, 1 prop)

src/readoutgrid.f90

@@ -210 +210 @@
   allocate(areanorth(0:numxgrid-1,0:numygrid-1,numzgrid),stat=stat)
   if (stat.ne.0) write(*,*)'ERROR: could not allocate areanorth'
+! ESO: surface pressure/temperature
+  if (write_p0t0) then
+     allocate(t0out(0:numxgrid-1,0:numygrid-1),stat=stat)
+     allocate(p0out(0:numxgrid-1,0:numygrid-1),stat=stat)
+  end if
+
+
   return