Home


About us
PALM
PALM-4U
Installation
Release notes
Documentation
Getting Help
Gallery
Developers area

Ignore:
Timestamp:
Feb 27, 2019 2:35:58 PM (5 years ago)
Author:
raasch
Message:

variables commented out + statement added to avoid compiler warnings about unused variables

File:
1 edited

Legend:

Unmodified
Added
Removed

  • palm/trunk/SOURCE/user_module.f90

    r3767 r3768  
    2525! -----------------
    2626! $Id$
     27! variables commented + statements added to avoid compiler warnings about unused variables
     28!
     29! 3767 2019-02-27 08:18:02Z raasch
    2730! unused variable for file index removed from rrd-subroutines parameter list
    2831!
    … …  
    247250
    248251!
     252!-- Next statement is to avoid compiler warnings about unused variables. Please remove in case
     253!-- that you are using them.
     254    IF ( dots_num_palm == 0  .OR.  dots_num_user == 0  .OR.  user_idummy == 0  .OR.                &
     255         user_rdummy == 0.0_wp )  CONTINUE
     256
     257!
    249258!-- Set revision number of this default interface version. It will be checked within
    250259!-- the main program (palm). Please change the revision number in case that the
    … …  
    325334
    326335
    327    INTEGER(iwp),      INTENT(IN)     ::  dots_max
    328    INTEGER(iwp),      INTENT(INOUT)  ::  dots_num
    329    CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_label
    330    CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_unit
    331 
    332 
     336    INTEGER(iwp),      INTENT(IN)     ::  dots_max
     337    INTEGER(iwp),      INTENT(INOUT)  ::  dots_num
     338    CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_label
     339    CHARACTER (LEN=*), DIMENSION(dots_max), INTENT(INOUT)  :: dots_unit
     340
     341!
     342!-- Next line is to avoid compiler warning about unused variables. Please remove.
     343    IF ( dots_num == 0  .OR.  dots_label(1)(1:1) == ' '  .OR.  dots_unit(1)(1:1) == ' ' )  CONTINUE
     344
     345!
    333346!-- Sample for user-defined time series
    334347!-- For each time series quantity you have to give a label and a unit,
    … …  
    373386    CHARACTER (LEN=*) ::  dopr_unit !< local value of dopr_unit
    374387
    375     INTEGER(iwp) ::  user_pr_index !<
    376     INTEGER(iwp) ::  var_count     !<
     388!    INTEGER(iwp) ::  user_pr_index !<
     389    INTEGER(iwp) ::  var_count     !<
     390
     391!
     392!-- Next line is to avoid compiler warning about unused variables. Please remove.
     393    IF ( unit(1:1) == ' '  .OR.  dopr_unit(1:1) == ' '  .OR.  var_count == 0 )  CONTINUE
    377394
    378395    SELECT CASE ( TRIM( variable ) )
    … …  
    448465
    449466
    450     INTEGER(iwp) :: i       !< loop index
    451     INTEGER(iwp) :: j       !< loop index
    452     INTEGER(iwp) :: region  !< index for loop over statistic regions
     467!    INTEGER(iwp) :: i       !< loop index
     468!    INTEGER(iwp) :: j       !< loop index
     469!    INTEGER(iwp) :: region  !< index for loop over statistic regions
    453470
    454471!
    … …  
    487504
    488505
    489     CHARACTER (LEN=20) :: field_char   !<
     506!    CHARACTER (LEN=20) :: field_char   !<
    490507!
    491508!-- Here the user-defined initializing actions follow:
    … …  
    598615    CHARACTER (LEN=*) ::  location !<
    599616
    600     INTEGER(iwp) ::  i !<
    601     INTEGER(iwp) ::  j !<
    602     INTEGER(iwp) ::  k !<
     617!    INTEGER(iwp) ::  i !<
     618!    INTEGER(iwp) ::  j !<
     619!    INTEGER(iwp) ::  k !<
    603620
    604621    CALL cpu_log( log_point(24), 'user_actions', 'start' )
    … …  
    688705
    689706
    690        CHARACTER (LEN=*) ::  location
    691 
    692        INTEGER(iwp) ::  i
    693        INTEGER(iwp) ::  idum
    694        INTEGER(iwp) ::  j
     707    CHARACTER (LEN=*) ::  location
     708
     709    INTEGER(iwp) ::  i
     710    INTEGER(iwp) ::  j
    695711
    696712!
    … …  
    699715
    700716       CASE ( 'u-tendency' )
     717
     718!
     719!--       Next line is to avoid compiler warning about unused variables. Please remove.
     720          IF ( i == 0  .OR.  j == 0 )  CONTINUE
     721
    701722!
    702723!--       Enter actions to be done in the u-tendency term here
    … …  
    752773    CHARACTER (LEN=*) :: variable !<
    753774
    754     INTEGER(iwp) ::  i !<
    755     INTEGER(iwp) ::  j !<
    756     INTEGER(iwp) ::  k !<
     775!    INTEGER(iwp) ::  i !<
     776!    INTEGER(iwp) ::  j !<
     777!    INTEGER(iwp) ::  k !<
    757778
    758779    IF ( mode == 'allocate' )  THEN
    … …  
    843864
    844865    INTEGER(iwp) ::  av     !< flag to control data output of instantaneous or time-averaged data
    845     INTEGER(iwp) ::  i      !< grid index along x-direction
    846     INTEGER(iwp) ::  j      !< grid index along y-direction
    847     INTEGER(iwp) ::  k      !< grid index along z-direction
    848     INTEGER(iwp) ::  m      !< running index surface elements
     866!    INTEGER(iwp) ::  i      !< grid index along x-direction
     867!    INTEGER(iwp) ::  j      !< grid index along y-direction
     868!    INTEGER(iwp) ::  k      !< grid index along z-direction
     869!    INTEGER(iwp) ::  m      !< running index surface elements
    849870    INTEGER(iwp) ::  nzb_do !< lower limit of the domain (usually nzb)
    850871    INTEGER(iwp) ::  nzt_do !< upper limit of the domain (usually nzt+1)
    … …  
    853874    LOGICAL      ::  two_d !< flag parameter that indicates 2D variables (horizontal cross sections)
    854875
    855     REAL(wp) ::  fill_value = -999.0_wp    !< value for the _FillValue attribute
     876!    REAL(wp) ::  fill_value = -999.0_wp    !< value for the _FillValue attribute
    856877
    857878    REAL(wp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !<
     879
     880!
     881!-- Next line is to avoid compiler warning about unused variables. Please remove.
     882    IF ( av == 0  .OR.  local_pf(nxl,nys,nzb_do) == 0.0_wp  .OR.  two_d )  CONTINUE
    858883
    859884
    … …  
    948973
    949974    INTEGER(iwp) ::  av    !<
    950     INTEGER(iwp) ::  i     !<
    951     INTEGER(iwp) ::  j     !<
    952     INTEGER(iwp) ::  k     !<
     975!    INTEGER(iwp) ::  i     !<
     976!    INTEGER(iwp) ::  j     !<
     977!    INTEGER(iwp) ::  k     !<
    953978    INTEGER(iwp) ::  nzb_do !< lower limit of the data output (usually 0)
    954979    INTEGER(iwp) ::  nzt_do !< vertical upper limit of the data output (usually nz_do3d)
    … …  
    956981    LOGICAL      ::  found !<
    957982
    958     REAL(wp) ::  fill_value = -999.0_wp    !< value for the _FillValue attribute
     983!    REAL(wp) ::  fill_value = -999.0_wp    !< value for the _FillValue attribute
    959984
    960985    REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do) ::  local_pf !<
     986
     987!
     988!-- Next line is to avoid compiler warning about unused variables. Please remove.
     989    IF ( av == 0  .OR.  local_pf(nxl,nys,nzb_do) == 0.0_wp )  CONTINUE
    961990
    962991
    … …  
    10171046
    10181047    CHARACTER (LEN=*) ::  mode   !<
    1019     INTEGER(iwp) ::  i    !<
    1020     INTEGER(iwp) ::  j    !<
    1021     INTEGER(iwp) ::  k    !<
     1048!    INTEGER(iwp) ::  i    !<
     1049!    INTEGER(iwp) ::  j    !<
     1050!    INTEGER(iwp) ::  k    !<
    10221051    INTEGER(iwp) ::  sr   !<
    10231052    INTEGER(iwp) ::  tn   !<
    10241053
    1025     REAL(wp), DIMENSION(:), ALLOCATABLE ::  ts_value_l   !<
     1054!    REAL(wp), DIMENSION(:), ALLOCATABLE ::  ts_value_l   !<
     1055
     1056!
     1057!-- Next line is to avoid compiler warning about unused variables. Please remove.
     1058    IF ( sr == 0  .OR.  tn == 0 )  CONTINUE
    10261059
    10271060    IF ( mode == 'profiles' )  THEN
    … …  
    10961129!> Reading global restart data that has been defined by the user.
    10971130!------------------------------------------------------------------------------!
    1098     SUBROUTINE user_rrd_global( found )
    1099 
    1100 
    1101        USE control_parameters,                                                 &
    1102            ONLY: length, restart_string
    1103 
    1104 
    1105        LOGICAL, INTENT(OUT)  ::  found
    1106 
    1107 
    1108        found = .TRUE.
    1109 
    1110 
    1111        SELECT CASE ( restart_string(1:length) )
    1112 
    1113           CASE ( 'global_paramter' )
    1114 !             READ ( 13 )  global_parameter
    1115 
    1116           CASE DEFAULT
     1131 SUBROUTINE user_rrd_global( found )
     1132
     1133
     1134    USE control_parameters,                                                 &
     1135        ONLY: length, restart_string
     1136
     1137
     1138    LOGICAL, INTENT(OUT)  ::  found
     1139
     1140
     1141    found = .TRUE.
     1142
     1143
     1144    SELECT CASE ( restart_string(1:length) )
     1145
     1146       CASE ( 'global_paramter' )
     1147!          READ ( 13 )  global_parameter
     1148
     1149       CASE DEFAULT
    11171150 
    1118              found = .FALSE.
    1119 
    1120        END SELECT
    1121 
    1122 
    1123     END SUBROUTINE user_rrd_global
     1151          found = .FALSE.
     1152
     1153    END SELECT
     1154
     1155
     1156 END SUBROUTINE user_rrd_global
    11241157
    11251158
    … …  
    11341167!> calculated in routine rrd_local.
    11351168!------------------------------------------------------------------------------!
    1136     SUBROUTINE user_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,         &
    1137                                nxr_on_file, nynf, nync, nyn_on_file, nysf,     &
    1138                                nysc, nys_on_file, tmp_3d, found )
    1139 
    1140 
    1141        INTEGER(iwp) ::  k               !<
    1142        INTEGER(iwp) ::  nxlc            !<
    1143        INTEGER(iwp) ::  nxlf            !<
    1144        INTEGER(iwp) ::  nxl_on_file     !<
    1145        INTEGER(iwp) ::  nxrc            !<
    1146        INTEGER(iwp) ::  nxrf            !<
    1147        INTEGER(iwp) ::  nxr_on_file     !<
    1148        INTEGER(iwp) ::  nync            !<
    1149        INTEGER(iwp) ::  nynf            !<
    1150        INTEGER(iwp) ::  nyn_on_file     !<
    1151        INTEGER(iwp) ::  nysc            !<
    1152        INTEGER(iwp) ::  nysf            !<
    1153        INTEGER(iwp) ::  nys_on_file     !<
    1154 
    1155        LOGICAL, INTENT(OUT)  ::  found
    1156 
    1157        REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !<
     1169 SUBROUTINE user_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,         &
     1170                            nxr_on_file, nynf, nync, nyn_on_file, nysf,     &
     1171                            nysc, nys_on_file, tmp_3d, found )
     1172
     1173
     1174    INTEGER(iwp) ::  idum            !<
     1175    INTEGER(iwp) ::  k               !<
     1176    INTEGER(iwp) ::  nxlc            !<
     1177    INTEGER(iwp) ::  nxlf            !<
     1178    INTEGER(iwp) ::  nxl_on_file     !<
     1179    INTEGER(iwp) ::  nxrc            !<
     1180    INTEGER(iwp) ::  nxrf            !<
     1181    INTEGER(iwp) ::  nxr_on_file     !<
     1182    INTEGER(iwp) ::  nync            !<
     1183    INTEGER(iwp) ::  nynf            !<
     1184    INTEGER(iwp) ::  nyn_on_file     !<
     1185    INTEGER(iwp) ::  nysc            !<
     1186    INTEGER(iwp) ::  nysf            !<
     1187    INTEGER(iwp) ::  nys_on_file     !<
     1188
     1189    LOGICAL, INTENT(OUT)  ::  found
     1190
     1191    REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !<
     1192
     1193!
     1194!-- Next line is to avoid compiler warning about unused variables. Please remove.
     1195    idum = k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf +                             &
     1196           INT( tmp_3d(nzb,nys_on_file,nxl_on_file) )
    11581197
    11591198!
    … …  
    11611200!-- Sample for user-defined output
    11621201
    1163 
    1164        found = .TRUE.
    1165 
    1166 
    1167           SELECT CASE ( restart_string(1:length) )
    1168 
    1169              CASE ( 'u2_av' )
    1170 !                IF ( .NOT. ALLOCATED( u2_av ) ) THEN
    1171 !                     ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
    1172 !                ENDIF
    1173 !                IF ( k == 1 )  READ ( 13 )  tmp_3d
    1174 !                   u2_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =         &
    1175 !                      tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
    1176 !
    1177              CASE DEFAULT
    1178 
    1179                 found = .FALSE.
    1180 
    1181              END SELECT
    1182 
    1183 
    1184     END SUBROUTINE user_rrd_local
     1202    found = .TRUE.
     1203
     1204    SELECT CASE ( restart_string(1:length) )
     1205
     1206       CASE ( 'u2_av' )
     1207!          IF ( .NOT. ALLOCATED( u2_av ) ) THEN
     1208!               ALLOCATE( u2_av(nzb:nzt+1,nysg:nyng,nxlg:nxrg) )
     1209!          ENDIF
     1210!          IF ( k == 1 )  READ ( 13 )  tmp_3d
     1211!             u2_av(:,nysc-nbgp:nync+nbgp,nxlc-nbgp:nxrc+nbgp) =         &
     1212!                tmp_3d(:,nysf-nbgp:nynf+nbgp,nxlf-nbgp:nxrf+nbgp)
     1213!
     1214       CASE DEFAULT
     1215
     1216          found = .FALSE.
     1217
     1218    END SELECT
     1219
     1220 END SUBROUTINE user_rrd_local
    11851221
    11861222
    … …  
    11911227!> runs.
    11921228!------------------------------------------------------------------------------!
    1193     SUBROUTINE user_wrd_global
    1194 
    1195 
    1196 !       CALL wrd_write_string( 'global_parameter' )
    1197 !       WRITE ( 14 )  global_parameter
    1198 
    1199 
    1200     END SUBROUTINE user_wrd_global   
     1229 SUBROUTINE user_wrd_global
     1230
     1231!    CALL wrd_write_string( 'global_parameter' )
     1232!    WRITE ( 14 )  global_parameter
     1233
     1234 END SUBROUTINE user_wrd_global
    12011235
    12021236
    … …  
    12071241!> for restart runs.
    12081242!------------------------------------------------------------------------------!
    1209     SUBROUTINE user_wrd_local
    1210 
     1243 SUBROUTINE user_wrd_local
    12111244
    12121245!
    12131246!-- Here the user-defined actions at the end of a job follow.
    12141247!-- Sample for user-defined output:
    1215 !          IF ( ALLOCATED( u2_av ) )  THEN
    1216 !             CALL wrd_write_string( 'u2_av' ) 
    1217 !             WRITE ( 14 )  u2_av
    1218 !          ENDIF
    1219 
    1220 
    1221 
    1222     END SUBROUTINE user_wrd_local
     1248!    IF ( ALLOCATED( u2_av ) )  THEN
     1249!       CALL wrd_write_string( 'u2_av' )
     1250!       WRITE ( 14 )  u2_av
     1251!    ENDIF
     1252
     1253 END SUBROUTINE user_wrd_local
    12231254
    12241255
    … …  
    12361267 END SUBROUTINE user_last_actions
    12371268
    1238 
    12391269 END MODULE user
Note: See TracChangeset for help on using the changeset viewer.
                                                                                                                                                                                                                                                                                                                                                                               
  | Impressum | ©Leibniz Universität Hannover |