Changeset 3337 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Oct 12, 2018 3:17:09 PM (6 years ago)

Author:

kanani

Message:

reintegrate branch resler to trunk

Location:

palm/trunk/SOURCE

Files:

• . (modified) (1 prop)
• netcdf_data_input_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! (from branch resler)
+! Formatting
+! 
+! 3298 2018-10-02 12:21:11Z kanani
 ! Modified EXPERT mode to PRE-PROCESSED mode (Russo)
 ! Introduced Chemistry static netcdf file (Russo)
@@ -1030 +1034 @@
                 ALLOCATE(emt_att%hourly_emis_time_factor(1:emt_att%ncat,1:emt_att%nhoursyear))
                 !Read-in Variable
-                CALL get_variable(id_emis,"emission_time_factors",emt_att%hourly_emis_time_factor,1,emt_att%ncat,1,emt_att%nhoursyear)
+                CALL get_variable(id_emis,"emission_time_factors",emt_att%hourly_emis_time_factor,1,   &
+                                  emt_att%ncat,1,emt_att%nhoursyear)
 
                 !-- MDH
@@ -1038 +1043 @@
                 ALLOCATE(emt_att%mdh_emis_time_factor(1:emt_att%ncat,1:emt_att%nmonthdayhour))
                 !-- Read-in Variable
-                CALL get_variable(id_emis,"emission_time_factors",emt_att%mdh_emis_time_factor,1,emt_att%ncat,1,emt_att%nmonthdayhour)
+                CALL get_variable(id_emis,"emission_time_factors",emt_att%mdh_emis_time_factor,1,       &
+                                  emt_att%ncat,1,emt_att%nmonthdayhour)
 
              ELSE
@@ -1055 +1061 @@
              DO ispec=1,emt_att%nspec
 
-                IF ( .NOT. ALLOCATED( emt(ispec)%default_emission_data ) ) ALLOCATE(emt(ispec)%default_emission_data(1:emt_att%ncat,1:ny+1,1:nx+1))
+                IF ( .NOT. ALLOCATED( emt(ispec)%default_emission_data ) )                              &
+                    ALLOCATE(emt(ispec)%default_emission_data(1:emt_att%ncat,1:ny+1,1:nx+1))
 
                 ALLOCATE(dum_var_3d(1:emt_att%ncat,nys+1:nyn+1,nxl+1:nxr+1))
@@ -1061 +1068 @@
                 CALL get_variable(id_emis,"emission_values",dum_var_3d,ispec,1,emt_att%ncat,nys,nyn,nxl,nxr)          
 
-                emt(ispec)%default_emission_data(:,nys+1:nyn+1,nxl+1:nxr+1)=dum_var_3d(1:emt_att%ncat,nys+1:nyn+1,nxl+1:nxr+1)
+                emt(ispec)%default_emission_data(:,nys+1:nyn+1,nxl+1:nxr+1) =                           &
+                    dum_var_3d(1:emt_att%ncat,nys+1:nyn+1,nxl+1:nxr+1)
 
                 DEALLOCATE (dum_var_3d)
@@ -1105 +1113 @@
 
                 !Allocation for the entire domain has to be done only for the first processor between all the subdomains     
-                IF ( .NOT. ALLOCATED( emt(ispec)%preproc_emission_data ) ) ALLOCATE(emt(ispec)%preproc_emission_data(emt_att%dt_emission,1,1:ny+1,1:nx+1)) 
+                IF ( .NOT. ALLOCATED( emt(ispec)%preproc_emission_data ) )                              &
+                    ALLOCATE(emt(ispec)%preproc_emission_data(emt_att%dt_emission,1,1:ny+1,1:nx+1))
 
                 !> allocate variable where to pass emission values read from netcdf
@@ -1114 +1123 @@
 
       
-                emt(ispec)%preproc_emission_data(:,1,nys+1:nyn+1,nxl+1:nxr+1)=dum_var_4d(1:emt_att%dt_emission,1,nys+1:nyn+1,nxl+1:nxr+1)
+                emt(ispec)%preproc_emission_data(:,1,nys+1:nyn+1,nxl+1:nxr+1) =                         &
+                      dum_var_4d(1:emt_att%dt_emission,1,nys+1:nyn+1,nxl+1:nxr+1)
 
                 DEALLOCATE ( dum_var_4d )