Ignore:
Timestamp:
Feb 27, 2019 8:18:02 AM (2 years ago)
Author:
raasch
Message:

unused variables removed from rrd-subroutines parameter list

File:
1 edited

Legend:

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

    r3766 r3767  
    2525! -----------------
    2626! $Id$
     27! unused variable file_index removed from subroutine parameter list
     28!
     29! 3766 2019-02-26 16:23:41Z raasch
    2730! first argument removed from module_interface_rrd_*, statement added to avoid
    2831! compiler warning about unused variable, file reformatted with respect to coding
     
    11571160!> Read module-specific restart data specific to local MPI ranks
    11581161!------------------------------------------------------------------------------!
    1159  SUBROUTINE module_interface_rrd_local( file_index, map_index,                 &
     1162 SUBROUTINE module_interface_rrd_local( map_index,                             &
    11601163                                        nxlf, nxlc, nxl_on_file,               &
    11611164                                        nxrf, nxrc, nxr_on_file,               &
     
    11651168
    11661169
    1167     INTEGER(iwp),      INTENT(IN)  ::  file_index   !<
    11681170    INTEGER(iwp),      INTENT(IN)  ::  map_index    !<
    11691171    INTEGER(iwp),      INTENT(IN)  ::  nxlc         !<
     
    11901192
    11911193    IF ( .NOT. found ) CALL bcm_rrd_local(                                     &
    1192                                file_index, map_index,                          &
     1194                               map_index,                                      &
    11931195                               nxlf, nxlc, nxl_on_file,                        &
    11941196                               nxrf, nxrc, nxr_on_file,                        &
     
    11991201
    12001202    IF ( .NOT. found ) CALL chem_rrd_local(                                    &
    1201                                file_index, map_index,                          &
     1203                               map_index,                                      &
    12021204                               nxlf, nxlc, nxl_on_file,                        &
    12031205                               nxrf, nxrc, nxr_on_file,                        &
     
    12081210
    12091211    IF ( .NOT. found ) CALL gust_rrd_local(                                    &
    1210                                file_index, map_index,                          &
     1212                               map_index,                                      &
    12111213                               nxlf, nxlc, nxl_on_file,                        &
    12121214                               nxrf, nxrc, nxr_on_file,                        &
     
    12171219
    12181220    IF ( .NOT. found ) CALL lsm_rrd_local(                                     &
    1219                                file_index, map_index,                          &
     1221                               map_index,                                      &
    12201222                               nxlf, nxlc, nxl_on_file,                        &
    12211223                               nxrf, nxrc, nxr_on_file,                        &
     
    12261228
    12271229    IF ( .NOT. found ) CALL ocean_rrd_local(                                   &
    1228                                file_index, map_index,                          &
     1230                               map_index,                                      &
     1231                               nxlf, nxlc, nxl_on_file,                        &
     1232                               nxrf, nxrc, nxr_on_file,                        &
     1233                               nynf, nync, nyn_on_file,                        &
     1234                               nysf, nysc, nys_on_file,                        &
     1235                               tmp_3d, found                                   &
     1236                            ) ! ToDo: change interface to pass variable
     1237
     1238    IF ( .NOT. found ) CALL radiation_rrd_local(                               &
     1239                               map_index,                                      &
    12291240                               nxlf, nxlc, nxl_on_file,                        &
    12301241                               nxrf, nxrc, nxr_on_file,                        &
     
    12341245                            ) ! ToDo: change interface to pass variable
    12351246
    1236     IF ( .NOT. found ) CALL radiation_rrd_local(                               &
    1237                                file_index, map_index,                          &
    1238                                nxlf, nxlc, nxl_on_file,                        &
    1239                                nxrf, nxrc, nxr_on_file,                        &
    1240                                nynf, nync, nyn_on_file,                        &
    1241                                nysf, nysc, nys_on_file,                        &
    1242                                tmp_2d, tmp_3d, found                           &
    1243                             ) ! ToDo: change interface to pass variable
    1244 
    12451247    IF ( .NOT. found ) CALL salsa_rrd_local(                                   &
    1246                                file_index, map_index,                          &
     1248                               map_index,                                      &
    12471249                               nxlf, nxlc, nxl_on_file,                        &
    12481250                               nxrf, nxrc, nxr_on_file,                        &
     
    12531255
    12541256    IF ( .NOT. found ) CALL usm_rrd_local(                                     &
    1255                                file_index, map_index,                          &
     1257                               map_index,                                      &
    12561258                               nxlf, nxlc, nxl_on_file,                        &
    1257                                nxrf, nxrc, nxr_on_file,                        &
    1258                                nynf, nync, nyn_on_file,                        &
     1259                               nxrf, nxr_on_file,                              &
     1260                               nynf, nyn_on_file,                              &
    12591261                               nysf, nysc, nys_on_file,                        &
    12601262                               found                                           &
     
    12651267                           
    12661268    IF ( .NOT. found ) CALL user_rrd_local(                                    &
    1267                                file_index, map_index,                          &
     1269                               map_index,                                      &
    12681270                               nxlf, nxlc, nxl_on_file,                        &
    12691271                               nxrf, nxrc, nxr_on_file,                        &
Note: See TracChangeset for help on using the changeset viewer.