Changeset 3241 for palm/trunk/SOURCE/land_surface_model_mod.f90

Timestamp:

Sep 12, 2018 3:02:00 PM (6 years ago)

Author:

raasch

Message:

various changes to avoid compiler warnings (mainly removal of unused variables)

File:

• palm/trunk/SOURCE/land_surface_model_mod.f90 (modified) (8 diffs)

palm/trunk/SOURCE/land_surface_model_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+! 
+! 3233 2018-09-07 13:21:24Z schwenkel
 ! Adapted for the use of cloud_droplets 
 ! 
@@ -565 +568 @@
                 drho_l_lv,                              & !< (rho_l * l_v)**-1
                 exn,                                    & !< value of the Exner function
-                e_s = 0.0_wp,                           & !< saturation water vapour pressure
                 field_capacity = 9999999.9_wp,          & !< NAMELIST m_fc
                 f_shortwave_incoming = 9999999.9_wp,    & !< NAMELIST f_sw_in
@@ -1257 +1259 @@
     CHARACTER (LEN=*) ::  dopr_unit !< local value of dopr_unit
  
-    INTEGER(iwp) ::  user_pr_index !< 
     INTEGER(iwp) ::  var_count     !< 
 
@@ -2480 +2481 @@
        INTEGER(iwp) ::  st                      !< soil-type index
        INTEGER(iwp) ::  n_soil_layers_total     !< temperature variable, stores the total number of soil layers + 4 
-       INTEGER(iwp) ::  n_surf                  !< number of surface types of given surface element 
 
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  bound, bound_root_fr  !< temporary arrays for storing index bounds
@@ -6442 +6442 @@
     REAL(wp), DIMENSION(nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_2d   !< 
 
-    REAL(wp), DIMENSION(nzb_soil:nzt_soil+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !< 
-
-    REAL(wp), DIMENSION(nzb_soil:nzt_soil,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d2   !< 
+    REAL(wp), DIMENSION(nzb_soil:nzt_soil,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !<
 
     TYPE(surf_type_lsm), SAVE :: tmp_walltype_h_1d   !< temporary 1D array containing the respective surface variable stored on file, horizontal surfaces
@@ -6554 +6552 @@
                  ALLOCATE( m_soil_av(nzb_soil:nzt_soil,nysg:nyng,nxlg:nxrg) )
               ENDIF
-              IF ( k == 1 )  READ ( 13 )  tmp_3d2(:,:,:)
+              IF ( k == 1 )  READ ( 13 )  tmp_3d(:,:,:)
               m_soil_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =           &
-                 tmp_3d2(nzb_soil:nzt_soil,nysf                                &
-                         -nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
+                 tmp_3d(nzb_soil:nzt_soil,nysf                                 &
+                        -nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
 
            CASE ( 'qsws_liq_av' )
@@ -6586 +6584 @@
                  ALLOCATE( t_soil_av(nzb_soil:nzt_soil,nysg:nyng,nxlg:nxrg) )
               ENDIF
-              IF ( k == 1 )  READ ( 13 )  tmp_3d2(:,:,:)
+              IF ( k == 1 )  READ ( 13 )  tmp_3d(:,:,:)
               t_soil_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =           &
-                 tmp_3d2(:,nysf-nbgp:nynf+nbgp,                                &
-                         nxlf-nbgp:nxrf+nbgp)
+                 tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
 
            CASE ( 'lsm_start_index_h', 'lsm_start_index_v'  )   
@@ -7014 +7011 @@
 
        USE control_parameters,                                                 &
-           ONLY: g, kappa, message_string, molecular_viscosity
+           ONLY: g, message_string, molecular_viscosity
 
        IMPLICIT NONE