Why the same f90 code can be compiled by the linux version of matlab 2017a but not the windows version of matlab 2017a

1 次查看(过去 30 天)
This is part of the code of the f90 file named turbulence.F90,
subroutine report_model
!
! !DESCRIPTION:
! This routine reports on the parameters and the propeties
! of all turbulence models implemented in GOTM. Results are
! written to the screen.
! !USES:
IMPLICIT NONE
!
! !REVISION HISTORY:
! Original author(s): Lars Umlauf
!
!EOP
!-----------------------------------------------------------------------
!BOC
! Report on the properties of each model
select case(len_scale_method)
case(Parabola)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using a one-equation model'
LEVEL2 'with a parabolic prescribed length-scale.'
LEVEL2 'The properties of this model are:'
LEVEL2 ' '
LEVEL3 'Schmidt-number for k, sig_k =', sig_k
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'At the surface:'
LEVEL3 'spatial decay rate (no shear), alpha =', gen_alpha
LEVEL3 'length-scale slope (no shear), L =', gen_l
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case(Triangle)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using a one-equation model'
LEVEL2 'with a triangular prescribed length-scale.'
LEVEL2 'The properties of this model are:'
LEVEL2 ' '
LEVEL3 'Schmidt-number for k, sig_k =', sig_k
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'At the surface:'
LEVEL3 'spatial decay rate (no shear), alpha =', gen_alpha
LEVEL3 'length-scale slope (no shear), L =', gen_l
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case(Xing)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using a one-equation model'
LEVEL2 'with the prescribed length-scale of Xing and Davies (1995)'
LEVEL2 'The properties of this model are:'
LEVEL2 ' '
LEVEL3 'Schmidt-number for k, sig_k =', sig_k
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'At the surface:'
LEVEL3 'spatial decay rate (no shear), alpha =', gen_alpha
LEVEL3 'length-scale slope (no shear), L =', gen_l
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case(RobertOuellet)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using a one-equation model'
LEVEL2 'with the prescribed length-scale of Robert and Ouellet (1987)'
LEVEL2 ' '
LEVEL2 'The properties of this model are:'
LEVEL3 'Schmidt-number for k, sig_k =', sig_k
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'At the surface:'
LEVEL3 'spatial decay rate (no shear), alpha = not computed'
LEVEL3 'length-scale slope (no shear), L = not computed'
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case(Blackadar)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using a one-equation model'
LEVEL2 'with the length-scale of Blackadar (1962)'
LEVEL2 'The properties of this model are:'
LEVEL2 ' '
LEVEL3 'Schmidt-number for k, sig_k =', sig_k
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'At the surface:'
LEVEL3 'spatial decay rate (no shear), alpha =', gen_alpha
LEVEL3 'length-scale slope (no shear), L =', gen_l
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case(BougeaultAndre)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using a one-equation model'
LEVEL2 'with the length-scale of Bougeault and Andre (1986)'
LEVEL2 'The properties of this model are:'
LEVEL2 ' '
LEVEL3 'Schmidt-number for k, sig_k =', sig_k
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL2 ' '
case(ispra_length)
LEVEL2 ' '
LEVEL2 'You are using a one-equation model'
LEVEL2 'with the ISPRAMIX length-scale (see GOTM-report)'
LEVEL2 'The properties of this model are:'
LEVEL2 ' '
LEVEL3 'Schmidt-number for k, sig_k =', sig_k
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'At the surface:'
LEVEL3 'spatial decay rate (no shear), alpha =', gen_alpha
LEVEL3 'length-scale slope (no shear), L =', gen_l
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case(diss_eq)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using the k-epsilon model'
LEVEL2 'with the following properties:'
LEVEL2 ' '
LEVEL3 'ce1 =', ce1
LEVEL3 'ce2 =', ce2
LEVEL3 'ce3minus =', ce3minus
LEVEL3 'ce3plus =', ce3plus
LEVEL3 'sig_k =', sig_k
LEVEL3 'sig_e =', sig_e
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL3 'homogeneous decay rate, d =', gen_d
LEVEL3 'spatial decay rate (no shear), alpha =', gen_alpha
LEVEL3 'length-scale slope (no shear), L =', gen_l
LEVEL3 'steady-state Richardson-number, Ri_st=', ri_st
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case(length_eq)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using the Mellor-Yamada model'
LEVEL2 'with the following properties:'
LEVEL2 ' '
LEVEL3 'B1 =', b1
LEVEL3 'E1 =', e1
LEVEL3 'E2 =', e2
LEVEL3 'E3 =', e3
LEVEL3 'Sq =', sq
LEVEL3 'Sl =', sl
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL3 'homogeneous decay rate, d =', gen_d
LEVEL3 'steady-state Richardson-number, Ri_st=', ri_st
LEVEL2 ' '
LEVEL3 'At the surface (i.e. with wall-function):'
LEVEL3 'spatial decay rate (no shear), alpha =', gen_alpha
LEVEL3 'length-scale slope (no shear), L =', gen_l
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case(generic_eq)
LEVEL2 ' '
LEVEL2 '--------------------------------------------------------'
LEVEL2 'You are using the generic two-equation model'
LEVEL2 'with the following properties:'
LEVEL2 ' '
LEVEL3 'exponent of k in psi-equation, m =', gen_m
LEVEL3 'exponent of l in psi-equation, n =', gen_n
LEVEL3 'exponent of cm0 in psi-equation, p =', gen_p
LEVEL3 'cpsi1 =', cpsi1
LEVEL3 'cpsi2 =', cpsi2
LEVEL3 'cpsi3minus =', cpsi3minus
LEVEL3 'cpsi3plus =', cpsi3plus
LEVEL3 'sig_k =', sig_kpsi
LEVEL3 'sig_psi =', sig_psi
LEVEL2 ' '
LEVEL3 'Value of the stability function'
LEVEL3 'in the log-law, cm0 =', cm0
LEVEL3 'in shear-free turbulence, cmsf =', cmsf
LEVEL2 ' '
LEVEL3 'von Karman constant, kappa =', kappa
LEVEL3 'homogeneous decay rate, d =', gen_d
LEVEL3 'spatial decay rate (no shear), alpha =', gen_alpha
LEVEL3 'length-scale slope (no shear), L =', gen_l
LEVEL3 'steady-state Richardson-number, Ri_st=', ri_st
LEVEL2 '--------------------------------------------------------'
LEVEL2 ' '
case default
end select
return
end subroutine report_model
And I compiled this source file with the following commands,
mex -c turbulence.F90 -largeArrayDims
If everything goes well, I should get the file named turbulence.obj. But I got the following error
捕获.JPG
What really confuse me is that the exactly same file can be compiled successfully on system Ubuntu with the the linux version of matlab 2017a.
This problem has confused me for several days, and I hope someone could help me. And I have attatched source code.
Thanks a lot.

回答(0 个)

类别

Help CenterFile Exchange 中查找有关 MATLAB Compiler 的更多信息

产品


版本

R2017a

Community Treasure Hunt

Find the treasures in MATLAB Central and discover how the community can help you!

Start Hunting!

Translated by