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

Timestamp:

Jan 24, 2018 3:38:29 PM (6 years ago)

Author:

kanani

Message:

Added parameter check, reduced line length, some formatting

File:

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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! Shorten lines to maximum length of 132 characters
+! 
+! 2766 2018-01-22 17:17:47Z kanani
 ! Removed preprocessor directive __chem
 ! 
@@ -813 +816 @@
 
             IF(myid == 0)  THEN
-               WRITE(6,'(a,3x,a,3x,a,e12.4)')  '   Species:     ',chem_species(lsp)%name(1:7),' Initial Value = ',chem_species(lsp)%conc(nzb,nysg,nxlg)
+               WRITE(6,'(a,3x,a,3x,a,e12.4)')  '   Species:     ',chem_species(lsp)%name(1:7),' & 
+                                        Initial Value = ',chem_species(lsp)%conc(nzb,nysg,nxlg)
             ENDIF
          ENDDO
@@ -1237 +1241 @@
        DO lsp=1,nspec
           IF (TRIM(spec_name) == TRIM(chem_species(lsp)%name))   THEN
-             IF(myid == 0 .AND. chem_debug0 )  WRITE(6,*) 'Output of species ',TRIM(variable),' ',TRIM(chem_species(lsp)%name)       
+             IF(myid == 0 .AND. chem_debug0 )  WRITE(6,*) 'Output of species ',TRIM(variable),'  &
+                                                          ',TRIM(chem_species(lsp)%name)       
              
              IF (av == 0) THEN
@@ -1507 +1512 @@
 !------------------------------------------------------------------------------!
 
- SUBROUTINE chem_tendency ( cs_scalar_p, cs_scalar, tcs_scalar_m, pr_init_cs, i, j, i_omp_start, tn, ilsp, flux_s_cs, diss_s_cs, flux_l_cs, diss_l_cs )
+ SUBROUTINE chem_tendency ( cs_scalar_p, cs_scalar, tcs_scalar_m, pr_init_cs,  &
+                            i, j, i_omp_start, tn, ilsp, flux_s_cs, diss_s_cs, &
+                            flux_l_cs, diss_l_cs )
     USE pegrid         
     USE advec_ws,        ONLY:  advec_s_ws 
@@ -1514 +1521 @@
     USE diffusion_s_mod, ONLY:  diffusion_s
     USE indices,         ONLY:  wall_flags_0
-    USE surface_mod,                                                                            &
-                         ONLY :  surf_def_h, surf_def_v, surf_lsm_h, surf_lsm_v, surf_usm_h,    &
-                                 surf_usm_v
+    USE surface_mod,     ONLY:  surf_def_h, surf_def_v, surf_lsm_h, surf_lsm_v, surf_usm_h,    &
+                                surf_usm_v
 !> Only one chem_spcs recieved prog_eqns at time.
 !> cem_tendency is called in prog_eqns over loop => nvar
@@ -1522 +1528 @@
     IMPLICIT NONE
 
-    REAL(wp), DIMENSION(:,:,:), POINTER                         :: cs_scalar_p, cs_scalar, tcs_scalar_m
+    REAL(wp), DIMENSION(:,:,:), POINTER   :: cs_scalar_p, cs_scalar, tcs_scalar_m
 
     INTEGER(iwp),INTENT(IN) :: i, j, i_omp_start, tn, ilsp