module
cldconst
2
implicit none
integer :: k700
! model level nearest 700 mb
end module cldconst
module cldconst 2
implicit none
integer :: k700 ! model level nearest 700 mb
end module cldconst
module cldconst 2
implicit none
integer :: k700 ! model level nearest 700 mb
end module cldconst