Changeset 4270 for palm/trunk/SOURCE/nesting_offl_mod.f90

Timestamp:

Oct 23, 2019 10:46:20 AM (5 years ago)

Author:

monakurppa

Message:

Updates for the aerosol module salsa

• Reformat the emission data for the pre-processed mode (lod=2) to limit the size of the input file. Now, the emission is given as total number emission per emission category (ncat) and the number size distribution is given in variable emission_number_fracs(ncat,nbins).
• Implement offline nesting for salsa. Additionally, offline nesting can be turn off specifically for salsa using the switch nesting_offline_salsa.
• Remove init_aerosol_type and init_gases_type from salsa_parin and define them based on the initializing_actions
• parameter definition removed from "season" and "season_z01" is added to parin
• bugfix in application of index_hh after implementing the new palm_date_time_mod

File:

• palm/trunk/SOURCE/nesting_offl_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/nesting_offl_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Implement offline nesting for salsa variables.
+! 
+! 4231 2019-09-12 11:22:00Z suehring
 ! Bugfix in array deallocation
 ! 
@@ -163 +166 @@
                rayleigh_damping_factor,                                        & 
                rayleigh_damping_height,                                        &
+               salsa,                                                          &
                spinup_time,                                                    &
                time_since_reference_point,                                     &
@@ -200 +204 @@
 
     USE pegrid
+
+    USE salsa_mod,                                                             &
+        ONLY:  salsa_nesting_offl_bc,                                          &
+               salsa_nesting_offl_init,                                        &
+               salsa_nesting_offl_input
 
     IMPLICIT NONE
@@ -803 +812 @@
        nest_offl%init = .TRUE.
 !
+!--    Call offline nesting for salsa
+       IF ( salsa )  CALL salsa_nesting_offl_input
+!
 !--    End of CPU measurement
        CALL cpu_log( log_point_s(86), 'NetCDF input forcing', 'stop' )
@@ -1414 +1426 @@
 !--    lateral boundary grid points. 
        w(nzt+1,:,:) = w(nzt,:,:)       
+!
+!--    Offline nesting for salsa
+       IF ( salsa )  CALL salsa_nesting_offl_bc
 !
 !--    In case of Rayleigh damping, where the profiles u_init, v_init
@@ -1994 +2009 @@
           ENDDO
        ENDIF
+!
+!--    Offline nesting for salsa
+       IF ( salsa )  CALL salsa_nesting_offl_init
 !
 !--    Before initial data input is initiated, check if dynamic input file is