Ignore:
Timestamp:
Dec 7, 2018 2:14:11 PM (3 years ago)
Author:
banzhafs
Message:

chem_emissions_mod and chem_modules update to comply PALM coding rules

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/chemistry_model_mod.f90

    r3600 r3611  
    2727! -----------------
    2828! $Id$
     29! Minor formatting             
     30!
     31! 3600 2018-12-04 13:49:07Z banzhafs
    2932! Code update to comply PALM coding rules           
    3033! Bug fix in par_dir_diff subroutine                 
     
    825828    INTEGER(iwp) ::  ss        !<
    826829    REAL(wp), DIMENSION(nzb:nzt+1) ::  cs_pr_init
    827     REAL(wp), DIMENSION(nzb:nzt+1, nysg:nyng, nxlg:nxrg) ::  cs_3d
     830    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  cs_3d
    828831    REAL(wp) ::  flag !< flag to mask topography grid points
    829832
     
    12071210    LOGICAL      ::  two_d           !< flag parameter that indicates 2D variables (horizontal cross sections)
    12081211    REAL(wp)     ::  fill_value
    1209     REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb:nzt+1) ::  local_pf !<
     1212    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb:nzt+1) ::  local_pf
    12101213
    12111214    !
     
    12941297
    12951298    REAL(wp)             ::  fill_value   !<
    1296     REAL(sp), DIMENSION(nxl:nxr, nys:nyn, nzb_do:nzt_do) ::  local_pf
     1299    REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf
    12971300
    12981301
     
    23592362
    23602363    INTEGER(iwp),INTENT(IN) :: i, j, i_omp_start, tn, ilsp
    2361     REAL(wp), DIMENSION(nzb+1:nzt, 0:threads_per_task-1)          :: flux_s_cs   !<
    2362     REAL(wp), DIMENSION(nzb+1:nzt, 0:threads_per_task-1)          :: diss_s_cs   !<
    2363     REAL(wp), DIMENSION(nzb+1:nzt, nys:nyn, 0:threads_per_task-1) :: flux_l_cs   !<
    2364     REAL(wp), DIMENSION(nzb+1:nzt, nys:nyn, 0:threads_per_task-1) :: diss_l_cs   !<
    2365     REAL(wp), DIMENSION(0:nz+1)                                 :: pr_init_cs  !<
     2364    REAL(wp), DIMENSION(nzb+1:nzt,0:threads_per_task-1)          :: flux_s_cs   !<
     2365    REAL(wp), DIMENSION(nzb+1:nzt,0:threads_per_task-1)          :: diss_s_cs   !<
     2366    REAL(wp), DIMENSION(nzb+1:nzt,nys:nyn,0:threads_per_task-1) :: flux_l_cs   !<
     2367    REAL(wp), DIMENSION(nzb+1:nzt,nys:nyn,0:threads_per_task-1) :: diss_l_cs   !<
     2368    REAL(wp), DIMENSION(0:nz+1)                                  :: pr_init_cs  !<
    23662369
    23672370    !
     
    24732476    LOGICAL, INTENT(OUT) :: found
    24742477
    2475     REAL(wp), DIMENSION(nzb:nzt+1, nys_on_file-nbgp:nyn_on_file+nbgp, nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !< 3D array to temp store data
     2478    REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !< 3D array to temp store data
    24762479
    24772480
Note: See TracChangeset for help on using the changeset viewer.