Changeset 3182 for palm/trunk/SOURCE/chemistry_model_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/chemistry_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -22 +22 @@
 ! Current revisions:
 ! -----------------
-! 
+! Rename flags indicating outflow boundary conditions
 ! 
 ! Former revisions:
@@ -291 +291 @@
                                                                                   
     USE control_parameters,                                                    &  
-        ONLY: air_chemistry, outflow_l, outflow_n, outflow_r, outflow_s                 
+        ONLY:  air_chemistry, bc_radiation_l, bc_radiation_n, bc_radiation_r,  &
+               bc_radiation_s                
     USE indices,                                                               &  
-        ONLY: nxl, nxr,  nxlg, nxrg, nyng, nysg, nzt                              
+        ONLY:  nxl, nxr,  nxlg, nxrg, nyng, nysg, nzt                              
                                                                                   
 !    USE prognostic_equations_mod,                                             &
 
     USE arrays_3d,                                                             &     
-        ONLY: dzu                                                
+        ONLY:  dzu                                                
     USE surface_mod,                                                           &
-        ONLY: bc_h                                                           
+        ONLY:  bc_h                                                           
 
     CHARACTER (len=*), INTENT(IN) :: mode
@@ -420 +421 @@
 !--          Lateral boundary conditions for chem species at outflow boundary 
 
-          IF ( outflow_s )  THEN
+          IF ( bc_radiation_s )  THEN
              DO lsp = 1, nspec
                 chem_species(lsp)%conc_p(:,nys-1,:) = chem_species(lsp)%conc_p(:,nys,:)
              ENDDO
-          ELSEIF ( outflow_n )  THEN
+          ELSEIF ( bc_radiation_n )  THEN
              DO lsp = 1, nspec
                 chem_species(lsp)%conc_p(:,nyn+1,:) = chem_species(lsp)%conc_p(:,nyn,:)
              ENDDO
-          ELSEIF ( outflow_l )  THEN
+          ELSEIF ( bc_radiation_l )  THEN
              DO lsp = 1, nspec
                 chem_species(lsp)%conc_p(:,:,nxl-1) = chem_species(lsp)%conc_p(:,:,nxl)
              ENDDO
-          ELSEIF ( outflow_r )  THEN
+          ELSEIF ( bc_radiation_r )  THEN
              DO lsp = 1, nspec
                 chem_species(lsp)%conc_p(:,:,nxr+1) = chem_species(lsp)%conc_p(:,:,nxr)