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

Timestamp:

Jul 27, 2018 1:36:03 PM (6 years ago)

Author:

suehring

Message:

New Inifor features: grid stretching, improved command-interface, support start dates in different formats in both YYYYMMDD and YYYYMMDDHH, Ability to manually control input file prefixes (--radiation-prefix, --soil-preifx, --flow-prefix, --soilmoisture-prefix) for compatiblity with DWD forcast naming scheme; GNU-style short and long option; Prepared output of large-scale forcing profiles (no computation yet); Added preprocessor flag netcdf4 to switch output format between netCDF 3 and 4; Updated netCDF variable names and attributes to comply with PIDS v1.9; Inifor bugfixes: Improved compatibility with older Intel Intel compilers by avoiding implicit array allocation; Added origin_lon/_lat values and correct reference time in dynamic driver global attributes; corresponding PALM changes: adjustments to revised Inifor; variables names in dynamic driver adjusted; enable geostrophic forcing also in offline nested mode; variable names in LES-LES and COSMO offline nesting changed; lateral boundary flags for nesting, in- and outflow conditions renamed

File:

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

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+! Rename variables for boundary flags
 ! 
 ! Former revisions:
@@ -1765 +1765 @@
                       READ ( 13 )  tmp_3dwul
                    ENDIF
-                   IF ( outflow_l )  THEN
+                   IF ( bc_radiation_l )  THEN
                       u_m_l(:,nysc-nbgp:nync+nbgp,:) =                         & 
                          tmp_3dwul(:,nysf-nbgp:nynf+nbgp,:)
@@ -1776 +1776 @@
                       READ ( 13 )  tmp_3dwun
                    ENDIF
-                   IF ( outflow_n )  THEN
+                   IF ( bc_radiation_n )  THEN
                       u_m_n(:,:,nxlc-nbgp:nxrc+nbgp) =                         & 
                          tmp_3dwun(:,:,nxlf-nbgp:nxrf+nbgp)
@@ -1787 +1787 @@
                       READ ( 13 )  tmp_3dwur
                    ENDIF
-                   IF ( outflow_r )  THEN
+                   IF ( bc_radiation_r )  THEN
                       u_m_r(:,nysc-nbgp:nync+nbgp,:) =                         & 
                          tmp_3dwur(:,nysf-nbgp:nynf+nbgp,:)
@@ -1798 +1798 @@
                       READ ( 13 )  tmp_3dwus
                    ENDIF
-                   IF ( outflow_s )  THEN
+                   IF ( bc_radiation_s )  THEN
                       u_m_s(:,:,nxlc-nbgp:nxrc+nbgp) =                         &
                          tmp_3dwus(:,:,nxlf-nbgp:nxrf+nbgp)
@@ -1830 +1830 @@
                       READ ( 13 )  tmp_3dwvl
                    ENDIF
-                   IF ( outflow_l )  THEN
+                   IF ( bc_radiation_l )  THEN
                       v_m_l(:,nysc-nbgp:nync+nbgp,:) =                         & 
                          tmp_3dwvl(:,nysf-nbgp:nynf+nbgp,:)
@@ -1841 +1841 @@
                       READ ( 13 )  tmp_3dwvn
                    ENDIF
-                   IF ( outflow_n )  THEN
+                   IF ( bc_radiation_n )  THEN
                       v_m_n(:,:,nxlc-nbgp:nxrc+nbgp) =                         &
                          tmp_3dwvn(:,:,nxlf-nbgp:nxrf+nbgp)
@@ -1852 +1852 @@
                       READ ( 13 )  tmp_3dwvr
                    ENDIF
-                   IF ( outflow_r )  THEN
+                   IF ( bc_radiation_r )  THEN
                       v_m_r(:,nysc-nbgp:nync+nbgp,:) =                         &
                          tmp_3dwvr(:,nysf-nbgp:nynf+nbgp,:)
@@ -1863 +1863 @@
                       READ ( 13 )  tmp_3dwvs
                    ENDIF
-                   IF ( outflow_s )  THEN
+                   IF ( bc_radiation_s )  THEN
                       v_m_s(:,:,nxlc-nbgp:nxrc+nbgp) =                         &
                          tmp_3dwvs(:,:,nxlf-nbgp:nxrf+nbgp)
@@ -1900 +1900 @@
                       READ ( 13 )  tmp_3dwwl
                    ENDIF
-                   IF ( outflow_l )  THEN
+                   IF ( bc_radiation_l )  THEN
                       w_m_l(:,nysc-nbgp:nync+nbgp,:) =                         & 
                          tmp_3dwwl(:,nysf-nbgp:nynf+nbgp,:)
@@ -1911 +1911 @@
                       READ ( 13 )  tmp_3dwwn
                    ENDIF
-                   IF ( outflow_n )  THEN
+                   IF ( bc_radiation_n )  THEN
                       w_m_n(:,:,nxlc-nbgp:nxrc+nbgp) =                         &
                          tmp_3dwwn(:,:,nxlf-nbgp:nxrf+nbgp)
@@ -1922 +1922 @@
                       READ ( 13 )  tmp_3dwwr
                    ENDIF
-                   IF ( outflow_r )  THEN
+                   IF ( bc_radiation_r )  THEN
                       w_m_r(:,nysc-nbgp:nync+nbgp,:) =                         & 
                          tmp_3dwwr(:,nysf-nbgp:nynf+nbgp,:)
@@ -1933 +1933 @@
                       READ ( 13 )  tmp_3dwws
                    ENDIF
-                   IF ( outflow_s )  THEN
+                   IF ( bc_radiation_s )  THEN
                       w_m_s(:,:,nxlc-nbgp:nxrc+nbgp) =                         & 
                          tmp_3dwws(:,:,nxlf-nbgp:nxrf+nbgp)