Changeset 3611 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Dec 7, 2018 2:14:11 PM (6 years ago)

Author:

banzhafs

Message:

chem_emissions_mod and chem_modules update to comply PALM coding rules

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Minor formatting             
+!
+! 3600 2018-12-04 13:49:07Z banzhafs
 ! Code update to comply PALM coding rules            
 ! Bug fix in par_dir_diff subroutine                 
@@ -825 +828 @@
     INTEGER(iwp) ::  ss        !< 
     REAL(wp), DIMENSION(nzb:nzt+1) ::  cs_pr_init
-    REAL(wp), DIMENSION(nzb:nzt+1, nysg:nyng, nxlg:nxrg) ::  cs_3d
+    REAL(wp), DIMENSION(nzb:nzt+1,nysg:nyng,nxlg:nxrg) ::  cs_3d
     REAL(wp) ::  flag !< flag to mask topography grid points
 
@@ -1207 +1210 @@
     LOGICAL      ::  two_d           !< flag parameter that indicates 2D variables (horizontal cross sections)
     REAL(wp)     ::  fill_value 
-    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb:nzt+1) ::  local_pf !< 
+    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb:nzt+1) ::  local_pf  
 
     !
@@ -1294 +1297 @@
 
     REAL(wp)             ::  fill_value   !<
-    REAL(sp), DIMENSION(nxl:nxr, nys:nyn, nzb_do:nzt_do) ::  local_pf 
+    REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf 
 
 
@@ -2359 +2362 @@
 
     INTEGER(iwp),INTENT(IN) :: i, j, i_omp_start, tn, ilsp
-    REAL(wp), DIMENSION(nzb+1:nzt, 0:threads_per_task-1)          :: flux_s_cs   !<
-    REAL(wp), DIMENSION(nzb+1:nzt, 0:threads_per_task-1)          :: diss_s_cs   !<
-    REAL(wp), DIMENSION(nzb+1:nzt, nys:nyn, 0:threads_per_task-1) :: flux_l_cs   !<
-    REAL(wp), DIMENSION(nzb+1:nzt, nys:nyn, 0:threads_per_task-1) :: diss_l_cs   !<
-    REAL(wp), DIMENSION(0:nz+1)                                 :: pr_init_cs  !<
+    REAL(wp), DIMENSION(nzb+1:nzt,0:threads_per_task-1)          :: flux_s_cs   !<
+    REAL(wp), DIMENSION(nzb+1:nzt,0:threads_per_task-1)          :: diss_s_cs   !<
+    REAL(wp), DIMENSION(nzb+1:nzt,nys:nyn,0:threads_per_task-1)  :: flux_l_cs   !<
+    REAL(wp), DIMENSION(nzb+1:nzt,nys:nyn,0:threads_per_task-1)  :: diss_l_cs   !<
+    REAL(wp), DIMENSION(0:nz+1)                                  :: pr_init_cs  !<
 
     !
@@ -2473 +2476 @@
     LOGICAL, INTENT(OUT) :: found 
 
-    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
+    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