Skip to content

Commit

Permalink
Connect nTiedtke to CCPP SCM
Browse files Browse the repository at this point in the history
	modified:   cu_ntiedtke.F90
	modified:   cu_ntiedtke.meta
  • Loading branch information
bluefinweiwei committed Oct 23, 2024
1 parent e0ee7ed commit a3fd82a
Show file tree
Hide file tree
Showing 2 changed files with 92 additions and 110 deletions.
24 changes: 12 additions & 12 deletions cu_ntiedtke.F90
Original file line number Diff line number Diff line change
Expand Up @@ -75,8 +75,8 @@ module cu_ntiedtke


!=================================================================================================================
!>\section arg_table_cu_ntiedtke_init
!!\html\include cu_ntiedtke_init.html
!> \section arg_table_cu_ntiedtke_init
!! \htmlinclude cu_ntiedtke_init.html
!!
subroutine cu_ntiedtke_init(con_cp,con_rd,con_rv,con_xlv,con_xls,con_xlf,con_grav,errmsg,errflg)
!=================================================================================================================
Expand Down Expand Up @@ -123,8 +123,8 @@ subroutine cu_ntiedtke_init(con_cp,con_rd,con_rv,con_xlv,con_xls,con_xlf,con_gra
end subroutine cu_ntiedtke_init

!=================================================================================================================
!>\section arg_table_cu_ntiedtke_finalize
!!\html\include cu_ntiedtke_finalize.html
!> \section arg_table_cu_ntiedtke_finalize
!! \htmlinclude cu_ntiedtke_finalize.html
!!
subroutine cu_ntiedtke_finalize(errmsg,errflg)
!=================================================================================================================
Expand All @@ -141,8 +141,8 @@ subroutine cu_ntiedtke_finalize(errmsg,errflg)
end subroutine cu_ntiedtke_finalize

!=================================================================================================================
!>\section arg_table_cu_ntiedtke_run
!!\html\include cu_ntiedtke_run.html
!> \section arg_table_cu_ntiedtke_run
!! \htmlinclude cu_ntiedtke_run.html
!!
! level 1 subroutine 'cu_ntiedkte_run'
subroutine cu_ntiedtke_run(pu,pv,pt,pqv,pqc,pqi,pqvf,ptf,poz,pzz,pomg, &
Expand Down Expand Up @@ -187,7 +187,7 @@ subroutine cu_ntiedtke_run(pu,pv,pt,pqv,pqc,pqi,pqvf,ptf,poz,pzz,pomg, &

!--- input arguments:
integer,intent(in):: lq,km,km1
integer,intent(in),dimension(:):: lndj
real,intent(in),dimension(:):: lndj !WL:2024 changed from integer to real, since the type of this variable diffs from the rest of the mesoscale_reference suite

real(kind=kind_phys),intent(in):: dt
real(kind=kind_phys),intent(in),dimension(:):: dx
Expand Down Expand Up @@ -411,7 +411,7 @@ subroutine cumastrn &

!--- input arguments:
integer,intent(in):: klev,klon,klevp1,klevm1
integer,intent(in),dimension(klon):: lndj
real,intent(in),dimension(klon):: lndj !WL:2024 changed from integer to real, since the type of this variable diffs from the rest of the mesoscale_reference suite

real(kind=kind_phys),intent(in):: ztmst
real(kind=kind_phys),intent(in),dimension(klon):: dx
Expand Down Expand Up @@ -1271,7 +1271,7 @@ subroutine cutypen &

!--- input arguments:
integer,intent(in):: klon,klev,klevp1,klevm1
integer,intent(in),dimension(klon):: lndj
real,intent(in),dimension(klon):: lndj !WL:2024 changed from integer to real, since the type of this variable diffs from the rest of the mesoscale_reference suite

real(kind=kind_phys),intent(in),dimension(klon):: qfx,hfx
real(kind=kind_phys),intent(in),dimension(klon,klev):: pap,pgeo
Expand Down Expand Up @@ -1837,7 +1837,7 @@ subroutine cuascn &

!--- input arguments:
integer,intent(in):: klev,klon,klevp1,klevm1
integer,intent(in),dimension(klon):: lndj
real,intent(in),dimension(klon):: lndj !WL:2024 changed from integer to real, since the type of this variable diffs from the rest of the mesoscale_reference suite
integer,intent(in),dimension(klon):: klwmin
integer,intent(in),dimension(klon):: kdpl

Expand Down Expand Up @@ -2359,7 +2359,7 @@ subroutine cudlfsn &
logical,intent(in),dimension(klon):: ldcum

integer,intent(in):: klev
integer,intent(in),dimension(klon):: lndj
real,intent(in),dimension(klon):: lndj !WL:2024 changed from integer to real, since the type of this variable diffs from the rest of the mesoscale_reference suite
integer,intent(in),dimension(klon):: kcbot,kctop

real(kind=kind_phys),intent(in),dimension(klon):: pmfub
Expand Down Expand Up @@ -2814,7 +2814,7 @@ subroutine cuflxn &
logical,intent(in),dimension(klon):: ldcum

integer,intent(in):: klev
integer,intent(in),dimension(klon):: lndj
real,intent(in),dimension(klon):: lndj !WL:2024 changed from integer to real, since the type of this variable diffs from the rest of the mesoscale_reference suite
integer,intent(in),dimension(klon):: kcbot,kctop,kdtop

real(kind=kind_phys),intent(in):: ztmst
Expand Down
Loading

0 comments on commit a3fd82a

Please sign in to comment.