Changeset 3467 for palm/trunk/SOURCE/check_parameters.f90

Timestamp:

Oct 30, 2018 7:05:21 PM (6 years ago)

Author:

suehring

Message:

Branch salsa @3446 re-integrated into trunk

Location:

palm/trunk/SOURCE

Files:

• . (modified) (1 prop)
• check_parameters.f90 (modified) (4 diffs, 1 prop)

palm/trunk/SOURCE/check_parameters.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-! 
+!
+! 2017-10-10 11:29:14Z monakurppa
+! Implementation of a new aerosol module salsa.
 ! 
 ! Former revisions:
@@ -781 +783 @@
         ONLY:  radiation, radiation_check_data_output,                         &
                radiation_check_data_output_pr, radiation_check_parameters
+                            
+    USE salsa_mod,                                                             &
+        ONLY:  salsa, salsa_check_data_output, salsa_check_parameters        
 
     USE spectra_mod,                                                           &
@@ -1514 +1519 @@
 !-- Checks for surface data output
     IF ( surface_data_output )  CALL surface_output_check_parameters
+!    
+!-- When SALSA is used, perform additional checks 
+    IF ( salsa )  CALL salsa_check_parameters     
 
 !
@@ -3214 +3222 @@
              ENDIF
 
+             IF ( unit == 'illegal' .AND. salsa ) THEN
+                 CALL salsa_check_data_output( var, unit )
+             ENDIF   
+
              IF ( unit == 'illegal'  .AND.  urban_surface                      &
                                      .AND.  var(1:4) == 'usm_' )  THEN