Changeset 1833 for palm/trunk/SOURCE/parin.f90

Timestamp:

Apr 7, 2016 2:23:03 PM (8 years ago)

Author:

raasch

Message:

spectrum renamed spactra_par and further modularized, POINTER-attributes added in coupler-routines to avoid gfortran error messages

File:

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

palm/trunk/SOURCE/parin.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-!
+! call of spectra_parin
 ! 
 ! Former revisions:
@@ -245 +245 @@
         ONLY :  batch_job
 
-     USE radiation_model_mod,                                                  &
-         ONLY: radiation_parin  
-        
+    USE radiation_model_mod,                                                   &
+        ONLY: radiation_parin  
+
+    USE spectra_mod,                                                           &
+        ONLY :  spectra_parin
+
     USE statistics,                                                            &
         ONLY:  hom, hom_sum, pr_palm, region, statistic_regions
@@ -473 +476 @@
           ENDIF
 
-          
 !
 !--       Check if land surface model is used and read &lsm_par if required
           CALL lsm_parin
- 
+
+!
+!--       Check if spectra shall be calculated and read spectra_par if required
+          CALL spectra_parin
+
 !
 !--       Check if radiation model is used and read &radiation_par if required