发展模式 Fortran 错误记录2023-12-15

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(476): error #6236: A specification statement cannot appear in the executable section.

real(r8) :: rrho(pcols) ! 1/rho m^3/kg

-----^

定义语句不能出现在可执行部分。

我忘记把临时写的定义语句移到前面了。

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(478): error #6285: There is no matching specific subroutine for this generic subroutine call. [CALC_USTAR]

call calc_ustar(ncol,state%t(:ncol,pver),state%pmid(:ncol,pver),taux,tauy,rrho,ustar)

----------^

该通用子程序调用没有匹配的特定子程序

可是这不是有吗，难道是因为没有public吗

加上 public calc_ustar先试试

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(480): error #6404: This name does not have a type, and must have an explicit type. [THVS]

thvs = state%t(:ncol,pver) * ( 1_r8 + 0.61*state%q(:ncol,pver) )

-----^

这个感觉是忘记定义thvs

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(480): error #6351: The number of subscripts is incorrect. [Q]

thvs = state%t(:ncol,pver) * ( 1_r8 + 0.61*state%q(:ncol,pver) )

------------------------------------------------------^

这应该是索引少写了一个，因为q(:,:,1)才是液态水比湿，2好像是固态冰比湿等

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(480): error #6366: The shapes of the array expressions do not conform. [THVS]

thvs = state%t(:ncol,pver) * ( 1_r8 + 0.61*state%q(:ncol,pver) )

-----^

定义好了这个问题应该就没了吧

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(482): error #6460: This is not a field name that is defined in the encompassing structure. [LHFLX]

call calc_obklen(ncol , state%t(:ncol,pver) , thvs , state%lhflx/latvap, state%shflx(:ncol) , rrho , ustar ,&

----------------------------------------------------------------^

这不是包含结构中定义的字段名称，或许是因为我的变量名写错了，我直接用lhflx 了

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(482): error #6460: This is not a field name that is defined in the encompassing structure. [SHFLX]

call calc_obklen(ncol , state%t(:ncol,pver) , thvs , state%lhflx/latvap, state%shflx(:ncol) , rrho , ustar ,&

------------------------------------------------------------------------------------^

同上

好吧state中就没有lhf,shf ,cam_in 里面才有的

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(482): error #6158: The structure-name is invalid or is missing. [STATE]

call calc_obklen(ncol , state%t(:ncol,pver) , thvs , state%lhflx/latvap, state%shflx(:ncol) , rrho , ustar ,&

------------------------------------------------------------------------------^

同上问题

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(483): error #6404: This name does not have a type, and must have an explicit type. [KHFS]

khfs , kqfs , kbfs ,obklen) !位温，虚位温，比湿通量，位温通量，1/rho , u_star

----------------^

忘记定义了

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(483): error #6404: This name does not have a type, and must have an explicit type. [KQFS]

khfs , kqfs , kbfs ,obklen) !位温，虚位温，比湿通量，位温通量，1/rho , u_star

-----------------------^

忘记定义了

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(483): error #6404: This name does not have a t

ype, and must have an explicit type. [KBFS]

忘记定义了

khfs , kqfs , kbfs ,obklen) !位温，虚位温，比湿通量，位温通量，1/rho , u_star

------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(482): error #6285: There is no matching specific subroutine for this generic subroutine call. [CALC_OBKLEN]

call calc_obklen(ncol , state%t(:ncol,pver) , thvs , state%lhflx/latvap, state%shflx(:ncol) , rrho , ustar ,&

----------^

同上面问题

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(202): warning #6843: A dummy argument with an explicit INTENT(OUT) declaration is not given an explicit value. [PBLH]

taux , tauy , shflx , cflx , pblh , &

----------------------------------------------------------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(203): warning #6843: A dummy argument with an

explicit INTENT(OUT) declaration is not given an explicit value. [USTAR]

tpert , qpert , ustar , obklen , ptend , &

------------------------------------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(203): warning #6843: A dummy argument with an explicit INTENT(OUT) declaration is not given an explicit value. [OBKLEN]

tpert , qpert , ustar , obklen , ptend , &

-----------------------------------------------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(1639): warning #6843: A dummy argument with an

explicit INTENT(OUT) declaration is not given an explicit value. [SIGMA_THETA]

subroutine calc_sigma_scalar(zeta,sigma_u,sigma_v,sigma_w,sigma_theta,sigma_q)

------------------------------------------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(1639): warning #6843: A dummy argument with an explicit INTENT(OUT) declaration is not given an explicit value. [SIGMA_Q]

subroutine calc_sigma_scalar(zeta,sigma_u,sigma_v,sigma_w,sigma_theta,sigma_q)

这几个warning 是老演员了不想管他们。

---

再次编译出现问题

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(363): error #6417: The dimensions of this array have been defined more than once. [RRHO]

real(r8) :: rrho(pcols) ! 1/rho m^3/kg

------------------------^

应该多次定义的问题，删去其中一个

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(483): error #6285: There is no matching specific subroutine for this generic subroutine call. [CALC_USTAR]

call calc_ustar(ncol,state%t(:ncol,pver),state%pmid(:ncol,pver),taux(:ncol),tauy(:ncol),rrho(:ncol),ustar(:ncol

))

----------^

interface 目的是为了能自己判断选用哪个函数，为什么会没有适合的函数呢？难道是因为变量的维度不对吗，是这个原因的。rrho正确后这个问题消失了。

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(488): error #6285: There is no matching specific subroutine for this generic subroutine call. [CALC_OBKLEN]

call calc_obklen(ncol , state%t(:ncol,pver) , thvs(:ncol) , lhflx(:ncol)/latvap, shflx(:ncol) , rrho(:ncol) , u

star(:ncol) ,&

----------^同上问题

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(203): warning #6843: A dummy argument with an

explicit INTENT(OUT) declaration is not given an explicit value. [PBLH]

taux , tauy , shflx , cflx , pblh , &

----------------------------------------------------------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(204): warning #6843: A dummy argument with anexplicit INTENT(OUT) declaration is not given an explicit value. [USTAR]

tpert , qpert , ustar , obklen , ptend , &

------------------------------------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(204): warning #6843: A dummy argument with an

explicit INTENT(OUT) declaration is not given an explicit value. [OBKLEN]

tpert , qpert , ustar , obklen , ptend , &

-----------------------------------------------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(1645): warning #6843: A dummy argument with an

explicit INTENT(OUT) declaration is not given an explicit value. [SIGMA_THETA]

subroutine calc_sigma_scalar(zeta,sigma_u,sigma_v,sigma_w,sigma_theta,sigma_q)

------------------------------------------------------------------^

/data/chengxl/CAS-ESM2.0-test1/models/atm/iap/src/physics/pbl_iap.F90(1645): warning #6843: A dummy argument with an

explicit INTENT(OUT) declaration is not given an explicit value. [SIGMA_Q]

subroutine calc_sigma_scalar(zeta,sigma_u,sigma_v,sigma_w,sigma_theta,sigma_q)

------------------------------------------------------------------------------^