Ignore:
Timestamp:
May 6, 2009, 7:09:41 PM (16 years ago)
Author:
jghattas
Message:

Correction pour compilation en double precision :
Enleve kind=FourByteReal? pour les arguments. Les arguments restent REAL, donc le precision choisi pendant la compilation (double ou simple).

Lionel+Josefine

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ4/branches/LMDZ4-dev/libf/bibio/nf95_put_var_m.f90

    r1154 r1155  
    2222       stride, map, ncerr)
    2323
    24     use typesizes, only: FourByteReal
    2524    use netcdf, only: nf90_put_var
    2625    use handle_err_m, only: handle_err
    2726
    2827    integer,                         intent(in) :: ncid, varid
    29     real(kind = FourByteReal), intent(in) :: values(:)
     28    real, intent(in) :: values(:)
    3029    integer, dimension(:), optional, intent(in) :: start, count, stride, map
    3130    integer, intent(out), optional:: ncerr
    … …  
    5251       stride, map, ncerr)
    5352
    54     use typesizes, only: FourByteReal
    5553    use netcdf, only: nf90_put_var
    5654    use handle_err_m, only: handle_err
    5755
    5856    integer,                         intent( in) :: ncid, varid
    59     real (kind = FourByteReal), intent( in) :: values(:, :)
     57    real, intent( in) :: values(:, :)
    6058    integer, dimension(:), optional, intent( in) :: start, count, stride, map
    6159    integer, intent(out), optional:: ncerr
    … …  
    8280       stride, map, ncerr)
    8381
    84     use typesizes, only: FourByteReal
    8582    use netcdf, only: nf90_put_var
    8683    use handle_err_m, only: handle_err
    8784
    8885    integer,                         intent( in) :: ncid, varid
    89     real (kind = FourByteReal), intent( in) :: values(:, :, :)
     86    real, intent( in) :: values(:, :, :)
    9087    integer, dimension(:), optional, intent( in) :: start, count, stride, map
    9188    integer, intent(out), optional:: ncerr
    … …  
    112109       stride, map, ncerr)
    113110
    114     use typesizes, only: FourByteReal
    115111    use netcdf, only: nf90_put_var
    116112    use handle_err_m, only: handle_err
    117113
    118114    integer,                         intent( in) :: ncid, varid
    119     real (kind = FourByteReal), intent( in) :: values(:, :, :, :)
     115    real, intent( in) :: values(:, :, :, :)
    120116    integer, dimension(:), optional, intent( in) :: start, count, stride, map
    121117    integer, intent(out), optional:: ncerr
Note: See TracChangeset for help on using the changeset viewer.