compiling warning

[redhat007]

hi
would you please tell me what cause following warning in compile step? i don't know these warning massage are important or not but please guide me to how i can fix it?

Code: Select all

creating /home/user/Build/libANA.a
inp_par.f90:549.39:
            Npts=load_i(Nval, Rval, 1, NAT)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:587.39:
            Npts=load_i(Nval, Rval, 1, ERstr)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:589.39:
            Npts=load_i(Nval, Rval, 1, ERend)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:591.39:
            Npts=load_i(Nval, Rval, 1, Nouter)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:593.39:
            Npts=load_i(Nval, Rval, 1, Ninner)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:595.39:
            Npts=load_i(Nval, Rval, 1, Nintervals)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:650.39:
            Npts=load_l(Nval, Cval, 1, LrstGST)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:652.39:
            Npts=load_i(Nval, Rval, 1, MaxIterGST)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:654.39:
            Npts=load_i(Nval, Rval, 1, nGST)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:813.39:
            Npts=load_r(Nval, Rval, 1, rho0)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:815.39:
            Npts=load_r(Nval, Rval, 1, bvf_bak)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:817.39:
            Npts=load_r(Nval, Rval, 1, dstart)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:819.39:
            Npts=load_r(Nval, Rval, 1, tide_start)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:821.39:
            Npts=load_r(Nval, Rval, 1, time_ref)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:1320.39:
            Npts=load_i(Nval, Rval, 1, Nuser)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:1324.39:
            Npts=load_i(Nval, Rval, 1, shuffle)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:1326.39:
            Npts=load_i(Nval, Rval, 1, deflate)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)
inp_par.f90:1328.39:
            Npts=load_i(Nval, Rval, 1, deflate_level)
                                       1
Warning: Rank mismatch in argument 'vout' at (1) (rank-1 and scalar)

cheers
redhat

[kate]

Those are not important. It is telling you that Vout in load_r is a vector (here of size 1) while NAT is a scalar. Compare

Code: Select all

      Npts=load_i(Nval, Rval, 1, NAT)

with

Code: Select all

      FUNCTION load_i (Ninp, Vinp, Nout, Vout)
      integer, intent(in) :: Ninp, Nout 
      real(r8), intent(in) :: Vinp(Ninp)
      integer, intent(out) :: Vout(Nout)