Changeset 4331 for palm/trunk/SOURCE/read_restart_data_mod.f90

Timestamp:

Dec 10, 2019 6:25:02 PM (4 years ago)

Author:

suehring

Message:

New diagnostic output for 10-m wind speed; Diagnostic output of 2-m potential temperature moved to diagnostic output

File:

• palm/trunk/SOURCE/read_restart_data_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Enable restart data for 2-m potential temperature output
+! 
+! 4301 2019-11-22 12:09:09Z oliver.maas
 ! removed recycling_yshift
 ! 
@@ -101 +104 @@
 
     USE diagnostic_output_quantities_mod,                                      &
-        ONLY:  ti_av, uu_av, vv_av, ww_av
+        ONLY:  pt_2m_av,                                                       &
+               ti_av,                                                          &
+               uu_av,                                                          &
+               uv_10m_av,                                                      &
+               vv_av,                                                          &
+               ww_av
 
     USE grid_variables,                                                        &
@@ -1525 +1533 @@
                    uu_av(:,nysc:nync,nxlc:nxrc) = tmp_3d_non_standard(:,nysf:nynf,nxlf:nxrf)
 
+                CASE ( 'uv_10m_av' )
+                   IF ( .NOT. ALLOCATED( uv_10m_av ) )  THEN
+                      ALLOCATE( uv_10m_av(nysg:nyng,nxlg:nxrg) )
+                   ENDIF
+                   IF ( k == 1 )  READ ( 13 )  tmp_2d
+                   uv_10m_av(nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp)  =                           &
+                      tmp_2d(nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
+
                 CASE ( 'u_m_l' )
                    IF ( k == 1 )  THEN