Ignore:
Timestamp:
Mar 6, 2019 10:41:14 AM (3 years ago)
Author:
eckhard
Message:

inifor: Removed unused variables, improved coding style

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/src/inifor_io.f90

    r3779 r3785  
    177177          CALL inifor_abort('get_netcdf_variable', message)
    178178
    179        END IF
     179       ENDIF
    180180
    181181       CALL check(nf90_close(ncid))
     
    221221          CALL inifor_abort('get_netcdf_variable', message)
    222222
    223        END IF
     223       ENDIF
    224224
    225225       CALL check(nf90_close(ncid))
     
    259259          CALL inifor_abort('get_netcdf_dim_vector', message)
    260260
    261        END IF
     261       ENDIF
    262262
    263263    END SUBROUTINE get_netcdf_dim_vector
     
    291291                                             name = in_var % dimname(i),       &
    292292                                             len  = in_var % dimlen(i) ))
    293        END DO
     293       ENDDO
    294294
    295295    END SUBROUTINE get_input_dimensions
     
    318318          CALL inifor_abort('get_netcdf_start_and_count', message)
    319319
    320        END IF
     320       ENDIF
    321321
    322322       start = (/ 1, 1, 1 /)
     
    329329!--       Start reading from second level, e.g. depth = 0.005 instead of 0.0
    330330          start(3) = 2
    331        END IF
     331       ENDIF
    332332
    333333       IF (in_var % ndim .EQ. 2)  THEN
     
    358358        IF ( var % lod .GE. 0 )  THEN
    359359           CALL check(nf90_put_att(ncid, var % varid, "lod",           var % lod))
    360         END IF
     360        ENDIF
    361361        CALL check(nf90_put_att(ncid, var % varid, "source",        var % source))
    362362        CALL check(nf90_put_att(ncid, var % varid, "_FillValue",    NF90_FILL_REAL))
     
    383383                                             name = null, &
    384384                                             len  = var % dimlen(i)  ) )
    385         END DO
     385        ENDDO
    386386
    387387    END SUBROUTINE netcdf_get_dimensions
     
    538538             i = i + 1
    539539
    540           END DO
     540          ENDDO
    541541
    542542       ELSE
     
    545545          CALL report('parse_command_line_arguments', message)
    546546
    547        END IF
     547       ENDIF
    548548
    549549   END SUBROUTINE parse_command_line_arguments
     
    574574                          TRIM(date_string) // TRIM(suffix) // '.nc'
    575575
    576       END DO
     576      ENDDO
    577577
    578578   END SUBROUTINE get_datetime_file_list
     
    594594      LOGICAL, OPTIONAL, INTENT(IN)    ::  nocheck
    595595
    596       INTEGER             ::  number_of_intervals, hour, i
    597       CHARACTER(LEN=DATE) ::  date_string
    598       CHARACTER(LEN=PATH) ::  file_name
    599       LOGICAL             ::  check_files
     596      INTEGER ::  i
     597      LOGICAL ::  check_files
    600598
    601599      CALL get_datetime_file_list( start_date_string, start_hour, end_hour,    &
     
    606604      IF ( PRESENT ( nocheck ) )  THEN
    607605         IF ( nocheck )  check_files = .FALSE.
    608       END IF
     606      ENDIF
    609607
    610608      IF ( check_files )  THEN
     
    615613         DO i = 1, SIZE(file_list)
    616614             CALL verify_file(file_list(i), 'input', tip)
    617          END DO
    618 
    619       END IF
     615         ENDDO
     616
     617      ENDIF
    620618
    621619   END SUBROUTINE get_input_file_list
     
    645643            IF (PRESENT(tip))  THEN
    646644               message = TRIM(message) // " " // TRIM(tip)
    647             END IF
    648 
    649          END IF
     645            ENDIF
     646
     647         ENDIF
    650648
    651649         CALL inifor_abort('verify_file', message)
    652650
    653       END IF
     651      ENDIF
    654652
    655653      message = "Set up input file name '" // TRIM(file_name) // "'"
     
    691689      IF (TRIM(cfg % static_driver_file) .NE. '')  THEN
    692690         CALL verify_file(cfg % static_driver_file, 'static driver')
    693       END IF
     691      ENDIF
    694692
    695693      SELECT CASE( TRIM(cfg % ic_mode) )
     
    739737                   "wind. Please specify either both or none."
    740738         CALL inifor_abort( 'validate_config', message )
    741       END IF
     739      ENDIF
    742740
    743741   END SUBROUTINE validate_config
     
    958956!> Defines the netCDF variables to be written to the dynamic driver file
    959957!------------------------------------------------------------------------------!
    960     SUBROUTINE setup_netcdf_variables(filename, output_variable_table, debug)
     958    SUBROUTINE setup_netcdf_variables(filename, output_variable_table)
    961959
    962960       CHARACTER (LEN=*), INTENT(IN)        ::  filename
    963961       TYPE(nc_var), INTENT(INOUT), TARGET  ::  output_variable_table(:)
    964        LOGICAL, INTENT(IN)                  ::  debug
    965962
    966963       TYPE(nc_var), POINTER                ::  var
     
    988985             CALL netcdf_define_variable(var, ncid)
    989986             CALL netcdf_get_dimensions(var, ncid)
    990           END IF
     987          ENDIF
    991988           
    992        END DO
     989       ENDDO
    993990
    994991       CALL check(nf90_enddef(ncid))
     
    10431040                       TRIM( str(SIZE(group % in_var_list)) ) // "."
    10441041             CALL inifor_abort('read_input_variables | accumulation', message)
    1045           END IF
     1042          ENDIF
    10461043
    10471044!
     
    10951092                input_var % name = TRIM( get_pressure_varname(input_file) )
    10961093 CALL run_control('time', 'read')
    1097              END IF
     1094             ENDIF
    10981095
    10991096             CALL get_netcdf_variable(input_file, input_var, buffer(ivar) % array)
     
    11021099 CALL run_control('time', 'comp')
    11031100
    1104           END DO
    1105        END IF
     1101          ENDDO
     1102       ENDIF
    11061103
    11071104    END SUBROUTINE read_input_variables
     
    11591156          CALL inifor_abort('get_pressure_var', message)
    11601157
    1161        END IF
     1158       ENDIF
    11621159
    11631160       CALL check(nf90_close(ncid))
     
    11891186          CALL inifor_abort('get_netcdf_attribute', message)
    11901187
    1191        END IF
     1188       ENDIF
    11921189
    11931190    END FUNCTION get_netcdf_attribute
     
    12521249                 SIZE(array, 2), ")."
    12531250             STOP
    1254           END IF
     1251          ENDIF
    12551252         
    12561253
     
    13031300                                      start=start(1:ndim+1),                   &
    13041301                                      count=count(1:ndim) ) )
    1305           END IF
     1302          ENDIF
    13061303
    13071304       CASE ( 'large-scale scalar forcing', 'large-scale w forcing' )
     
    13361333                    TRIM( nf90_strerror(status) )
    13371334          CALL inifor_abort('io.check', message)
    1338        END IF
     1335       ENDIF
    13391336
    13401337    END SUBROUTINE check
Note: See TracChangeset for help on using the changeset viewer.