Changeset 4404


Ignore:
Timestamp:
Feb 12, 2020 5:01:53 PM (15 months ago)
Author:
suehring
Message:

Fix misplaced preprocessor directives in netcdf data input

File:
1 edited

Legend:

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

    r4401 r4404  
    2525! -----------------
    2626! $Id$
     27! Fix misplaced preprocessor directives.
     28!
     29! 4401 2020-02-11 16:19:09Z suehring
    2730! Define a default list of coordinate reference system variables used when
    2831! no static driver input is available
     
    39003903!------------------------------------------------------------------------------!
    39013904    SUBROUTINE close_input_file( id )
     3905
     3906       USE pegrid
     3907
     3908       IMPLICIT NONE
     3909
     3910       INTEGER(iwp), INTENT(INOUT)        ::  id        !< file id
     3911
    39023912#if defined( __netcdf )
    3903 
    3904        USE pegrid
    3905 
    3906        IMPLICIT NONE
    3907 
    3908        INTEGER(iwp), INTENT(INOUT)        ::  id        !< file id
    3909 
    39103913       nc_stat = NF90_CLOSE( id )
    39113914       CALL handle_error( 'close', 540 )
     
    39193922!------------------------------------------------------------------------------!
    39203923    SUBROUTINE open_read_file( filename, id )
    3921 #if defined( __netcdf )
    39223924
    39233925       USE pegrid
     
    39273929       CHARACTER (LEN=*), INTENT(IN) ::  filename  !< filename
    39283930       INTEGER(iwp), INTENT(INOUT)   ::  id        !< file id
     3931
     3932#if defined( __netcdf )
    39293933
    39303934#if defined( __netcdf4_parallel )
     
    41664170
    41674171    SUBROUTINE get_variable_string( id, variable_name, var_string, names_number )
    4168 #if defined( __netcdf )
    41694172
    41704173       USE indices
     
    41914194                                                                                            ! the number of the components of the first dimensions
    41924195                                                                                            ! (rows)
    4193 
     4196#if defined( __netcdf )
    41944197
    41954198       ALLOCATE(tmp_var_string(max_string_length,names_number))
     
    44184421!------------------------------------------------------------------------------!
    44194422    SUBROUTINE get_variable_pr( id, variable_name, t, var )
    4420 #if defined( __netcdf )
    44214423
    44224424       USE pegrid
     
    44344436       REAL(wp), DIMENSION(:), INTENT(INOUT) ::  var  !< variable to be read
    44354437
     4438#if defined( __netcdf )
    44364439!
    44374440!--    First, inquire variable ID
     
    44614464!------------------------------------------------------------------------------!
    44624465    SUBROUTINE get_variable_surf( id, variable_name, surf )
    4463 #if defined( __netcdf )
    44644466
    44654467       USE pegrid
     
    44734475       USE grid_variables,                                     &
    44744476           ONLY: dx, dy
    4475        
     4477
    44764478       USE basic_constants_and_equations_mod,                  &
    44774479           ONLY: pi
     
    45064508       REAL(wp)                                  ::  oro_max_l     !< maximum terrain height under building
    45074509
     4510#if defined( __netcdf )
    45084511!
    45094512!--    First, inquire variable ID
     
    55995602!------------------------------------------------------------------------------!
    56005603    SUBROUTINE inquire_fill_value_int( id, var_name, nofill, fill_value )
    5601 #if defined( __netcdf )
     5604
    56025605       CHARACTER(LEN=*), INTENT(IN) ::  var_name    !< variable name
    56035606
     
    56075610       INTEGER(iwp)              ::  id_var      !< netCDF variable id (varid)
    56085611
     5612#if defined( __netcdf )
    56095613       nc_stat = NF90_INQ_VARID( id, TRIM( var_name ), id_var )
    56105614       nc_stat = NF90_INQ_VAR_FILL(id, id_var, no_fill, fill_value )
     
    56235627!------------------------------------------------------------------------------!
    56245628    SUBROUTINE inquire_fill_value_real( id, var_name, nofill, fill_value )
    5625 #if defined( __netcdf )
     5629
    56265630       CHARACTER(LEN=*), INTENT(IN) ::  var_name    !< variable name
    56275631
     
    56325636       REAL(wp), INTENT(OUT)     ::  fill_value  !< fill value
    56335637
     5638#if defined( __netcdf )
    56345639       nc_stat = NF90_INQ_VARID( id, TRIM( var_name ), id_var )
    56355640       nc_stat = NF90_INQ_VAR_FILL(id, id_var, no_fill, fill_value )
Note: See TracChangeset for help on using the changeset viewer.