Ignore:
Timestamp:
Oct 12, 2018 3:17:09 PM (3 years ago)
Author:
kanani
Message:

reintegrate branch resler to trunk

Location:
palm/trunk/SOURCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE

  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r3298 r3337  
    2525! -----------------
    2626! $Id$
     27! (from branch resler)
     28! Formatting
     29!
     30! 3298 2018-10-02 12:21:11Z kanani
    2731! Modified EXPERT mode to PRE-PROCESSED mode (Russo)
    2832! Introduced Chemistry static netcdf file (Russo)
     
    10301034                ALLOCATE(emt_att%hourly_emis_time_factor(1:emt_att%ncat,1:emt_att%nhoursyear))
    10311035                !Read-in Variable
    1032                 CALL get_variable(id_emis,"emission_time_factors",emt_att%hourly_emis_time_factor,1,emt_att%ncat,1,emt_att%nhoursyear)
     1036                CALL get_variable(id_emis,"emission_time_factors",emt_att%hourly_emis_time_factor,1,   &
     1037                                  emt_att%ncat,1,emt_att%nhoursyear)
    10331038
    10341039                !-- MDH
     
    10381043                ALLOCATE(emt_att%mdh_emis_time_factor(1:emt_att%ncat,1:emt_att%nmonthdayhour))
    10391044                !-- Read-in Variable
    1040                 CALL get_variable(id_emis,"emission_time_factors",emt_att%mdh_emis_time_factor,1,emt_att%ncat,1,emt_att%nmonthdayhour)
     1045                CALL get_variable(id_emis,"emission_time_factors",emt_att%mdh_emis_time_factor,1,       &
     1046                                  emt_att%ncat,1,emt_att%nmonthdayhour)
    10411047
    10421048             ELSE
     
    10551061             DO ispec=1,emt_att%nspec
    10561062
    1057                 IF ( .NOT. ALLOCATED( emt(ispec)%default_emission_data ) ) ALLOCATE(emt(ispec)%default_emission_data(1:emt_att%ncat,1:ny+1,1:nx+1))
     1063                IF ( .NOT. ALLOCATED( emt(ispec)%default_emission_data ) )                              &
     1064                    ALLOCATE(emt(ispec)%default_emission_data(1:emt_att%ncat,1:ny+1,1:nx+1))
    10581065
    10591066                ALLOCATE(dum_var_3d(1:emt_att%ncat,nys+1:nyn+1,nxl+1:nxr+1))
     
    10611068                CALL get_variable(id_emis,"emission_values",dum_var_3d,ispec,1,emt_att%ncat,nys,nyn,nxl,nxr)         
    10621069
    1063                 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)
     1070                emt(ispec)%default_emission_data(:,nys+1:nyn+1,nxl+1:nxr+1) =                           &
     1071                    dum_var_3d(1:emt_att%ncat,nys+1:nyn+1,nxl+1:nxr+1)
    10641072
    10651073                DEALLOCATE (dum_var_3d)
     
    11051113
    11061114                !Allocation for the entire domain has to be done only for the first processor between all the subdomains     
    1107                 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))
     1115                IF ( .NOT. ALLOCATED( emt(ispec)%preproc_emission_data ) )                              &
     1116                    ALLOCATE(emt(ispec)%preproc_emission_data(emt_att%dt_emission,1,1:ny+1,1:nx+1))
    11081117
    11091118                !> allocate variable where to pass emission values read from netcdf
     
    11141123
    11151124     
    1116                 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)
     1125                emt(ispec)%preproc_emission_data(:,1,nys+1:nyn+1,nxl+1:nxr+1) =                         &
     1126                      dum_var_4d(1:emt_att%dt_emission,1,nys+1:nyn+1,nxl+1:nxr+1)
    11171127
    11181128                DEALLOCATE ( dum_var_4d )
Note: See TracChangeset for help on using the changeset viewer.