Ignore:
Timestamp:
Jan 10, 2019 8:28:24 AM (3 years ago)
Author:
raasch
Message:

dummy statements added to avoid compiler warnings about unused variables, unused variables removed, ssh-call for submitting batch jobs on remote systems modified again to avoid output of login messages on specific systems

File:
1 edited

Legend:

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

    r3655 r3665  
    2525! -----------------
    2626! $Id$
     27! dummy statements added to avoid compiler warnings about unused variables
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! Bugfix: domain bounds of local_pf corrected
    2831!
     
    5255    IMPLICIT NONE
    5356
    54     LOGICAL  ::  gust_module_enabled = .FALSE.       !< switch, if the entire module is used at all
     57    INTEGER(iwp) ::  idum  !< dummy variable used to avoid compiler warnings about unused variables
     58
     59    LOGICAL ::  dummy_logical = .FALSE.        !< switch to avoid compiler warnings about unused variables
     60    LOGICAL ::  gust_module_enabled = .FALSE.  !< switch, if the entire module is used at all
    5561
    5662    SAVE
     
    228234       INTEGER(iwp) ::  var_count      !<
    229235
     236!
     237!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     238       IF ( dummy_logical )  idum = LEN( unit ) + LEN( variable ) + LEN( dopr_unit ) + var_count
    230239
    231240    END SUBROUTINE gust_check_data_output_pr
     
    244253       CHARACTER (LEN=*) ::  var   !<
    245254
     255!
     256!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     257       IF ( dummy_logical )  idum = LEN( var ) + LEN( unit )
    246258
    247259    END SUBROUTINE gust_check_data_output
     
    277289       CHARACTER (LEN=13), DIMENSION(dots_max) :: dots_label
    278290
     291!
     292!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     293       IF ( dummy_logical )  idum = dots_num + dots_max + LEN( dots_unit(1) ) + LEN( dots_label(1) )
    279294
    280295    END SUBROUTINE gust_init
     
    299314       CHARACTER (LEN=*), INTENT(IN) ::  grid_z      !<
    300315
     316!
     317!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     318       IF ( found )  idum = LEN( var ) + LEN( grid_x ) + LEN( grid_y ) + LEN( grid_z )
    301319
    302320    END SUBROUTINE gust_define_netcdf_grid
     
    315333       INTEGER(iwp), INTENT(IN) ::  io  !< Unit of the output file
    316334
     335!
     336!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     337       IF ( dummy_logical )  idum = io
    317338
    318339    END SUBROUTINE gust_header
     
    331352       CHARACTER (LEN=*) ::  location !<
    332353
     354!
     355!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     356       IF ( dummy_logical )  idum = LEN( location )
    333357
    334358    END SUBROUTINE gust_actions
     
    350374       INTEGER(iwp) ::  j
    351375
     376!
     377!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     378       IF ( dummy_logical )  idum = i + j + LEN( location )
    352379
    353380    END SUBROUTINE gust_actions_ij
     
    364391       IMPLICIT NONE
    365392
    366        INTEGER, INTENT(IN) :: mod_count
    367 
     393       INTEGER, INTENT(IN) ::  mod_count
     394
     395!
     396!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     397       IF ( dummy_logical )  idum = mod_count
    368398
    369399    END SUBROUTINE gust_swap_timelevel
     
    384414       CHARACTER (LEN=*) :: variable !<
    385415
     416!
     417!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     418       IF ( dummy_logical )  idum = LEN( mode ) + LEN( variable )
    386419
    387420    END SUBROUTINE gust_3d_data_averaging
     
    415448          !< array to which output data is resorted to
    416449
     450!
     451!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     452       IF ( found .AND. two_d )  idum = av + LEN( variable ) + LEN( grid ) + local_pf(nxl,nys,nzb_do) + fill_value
    417453
    418454    END SUBROUTINE gust_data_output_2d
     
    441477
    442478       REAL(sp), DIMENSION(nxl:nxr,nys:nyn,nzb_do:nzt_do), INTENT(INOUT) ::  local_pf   !< local
    443           !< array to which output data is resorted to
    444 
     479                                                                                        !< array to which output data is resorted to
     480
     481!
     482!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     483       IF ( found )  idum = av + LEN( variable ) + fill_value + local_pf(nxl,nys,nzb_do)
    445484
    446485    END SUBROUTINE gust_data_output_3d
     
    457496       IMPLICIT NONE
    458497
    459        CHARACTER (LEN=*) ::  mode   !<
    460 
    461        INTEGER(iwp) ::  sr   !<
    462        INTEGER(iwp) ::  tn   !<
     498       CHARACTER (LEN=*) ::  mode  !<
     499
    463500       INTEGER(iwp) ::  dots_max   !<
    464 
     501       INTEGER(iwp) ::  sr         !<
     502       INTEGER(iwp) ::  tn         !<
     503
     504!
     505!--    Next line is just to avoid compiler warnings about unused variables. You may remove it.
     506       IF ( dummy_logical )  idum = dots_max + sr + tn + LEN( mode )
    465507
    466508    END SUBROUTINE gust_statistics
     
    543585       REAL(wp), DIMENSION(nzb:nzt+1,nys_on_file-nbgp:nyn_on_file+nbgp,nxl_on_file-nbgp:nxr_on_file+nbgp) :: tmp_3d   !<
    544586
    545 !
    546 !-- Here the reading of user-defined restart data follows:
    547 !-- Sample for user-defined output
    548 
    549 
     587
     588!
     589!--    Next lins are just to avoid compiler warnings about unused variables in case of empty user interface routine.
     590!--    You may remove them.
     591       IF ( dummy_logical )  THEN
     592          idum = i + k + nxlc + nxlf + nxrc + nxrf + nync + nynf + nysc + nysf +                                       &
     593                 tmp_2d(nys_on_file,nxl_on_file) + tmp_3d(nzb,nys_on_file,nxl_on_file)
     594       ENDIF
     595
     596!
     597!--    Here the reading of user-defined restart data follows:
     598!--    Sample for user-defined output
    550599       found = .TRUE.
    551 
    552600
    553601       SELECT CASE ( restart_string(1:length) )
Note: See TracChangeset for help on using the changeset viewer.