add MPAS suite interstitial 1

Author: grantfirl

physics/Interstitials/MPAS/MPAS_suite_interstitial_1.F90

@@ -0,0 +1,52 @@
+!> \file MPAS_suite_interstitial_1.f90
+!!  Contains code to initialize process-split state tendencies
+
+    module MPAS_suite_interstitial_1
+
+    contains
+
+!> \section arg_table_MPAS_suite_interstitial_1_run Argument Table
+!! \htmlinclude MPAS_suite_interstitial_1_run.html
+!!
+    subroutine MPAS_suite_interstitial_1_run (im, levs, ntrac, &
+      dudt, dvdt, dtdt, dqdt, errmsg, errflg)
+
+      use machine, only: kind_phys
+
+      implicit none
+
+      ! interface variables
+      integer,              intent(in )                   :: im, levs, ntrac
+
+      real(kind=kind_phys), intent(out), dimension(:,:)   :: dudt, dvdt, dtdt
+      real(kind=kind_phys), intent(out), dimension(:,:,:) :: dqdt
+      
+      character(len=*),     intent(out)                   :: errmsg
+      integer,              intent(out)                   :: errflg
+
+      ! local variables
+      real(kind=kind_phys), parameter   :: zero = 0.0_kind_phys
+      integer :: i, k, n
+
+      ! Initialize CCPP error handling variables
+      errmsg = ''
+      errflg = 0
+
+      do k=1,levs
+        do i=1,im
+          dudt(i,k)  = zero
+          dvdt(i,k)  = zero
+          dtdt(i,k)  = zero
+        enddo
+      enddo
+      do n=1,ntrac
+        do k=1,levs
+          do i=1,im
+            dqdt(i,k,n) = zero
+          enddo
+        enddo
+      enddo
+
+    end subroutine MPAS_suite_interstitial_1_run
+
+  end module MPAS_suite_interstitial_1

physics/Interstitials/MPAS/MPAS_suite_interstitial_1.meta

@@ -0,0 +1,78 @@
+########################################################################
+[ccpp-table-properties]
+  name = MPAS_suite_interstitial_1
+  type = scheme
+  dependencies = ../../hooks/machine.F
+
+########################################################################
+[ccpp-arg-table]
+  name = MPAS_suite_interstitial_1_run
+  type = scheme
+[im]
+  standard_name = horizontal_loop_extent
+  long_name = horizontal loop extent
+  units = count
+  dimensions = ()
+  type = integer
+  intent = in
+[levs]
+  standard_name = vertical_layer_dimension
+  long_name = vertical layer dimension
+  units = count
+  dimensions = ()
+  type = integer
+  intent = in
+[ntrac]
+  standard_name = number_of_tracers
+  long_name = number of tracers
+  units = count
+  dimensions = ()
+  type = integer
+  intent = in
+[dudt]
+  standard_name = process_split_cumulative_tendency_of_x_wind
+  long_name = tendency of the x wind
+  units = m s-2
+  dimensions = (horizontal_loop_extent,vertical_layer_dimension)
+  type = real
+  kind = kind_phys
+  intent = out
+[dvdt]
+  standard_name = process_split_cumulative_tendency_of_y_wind
+  long_name = tendency of the y wind
+  units = m s-2
+  dimensions = (horizontal_loop_extent,vertical_layer_dimension)
+  type = real
+  kind = kind_phys
+  intent = out
+[dtdt]
+  standard_name = process_split_cumulative_tendency_of_air_temperature
+  long_name = tendency of the temperature
+  units = K s-1
+  dimensions = (horizontal_loop_extent,vertical_layer_dimension)
+  type = real
+  kind = kind_phys
+  intent = out
+[dqdt]
+  standard_name = process_split_cumulative_tendency_of_tracers
+  long_name = tendency of the tracers
+  units = kg kg-1 s-1
+  dimensions = (horizontal_loop_extent,vertical_layer_dimension,number_of_tracers)
+  type = real
+  kind = kind_phys
+  intent = out
+[errmsg]
+  standard_name = ccpp_error_message
+  long_name = error message for error handling in CCPP
+  units = none
+  dimensions = ()
+  type = character
+  kind = len=*
+  intent = out
+[errflg]
+  standard_name = ccpp_error_code
+  long_name = error code for error handling in CCPP
+  units = 1
+  dimensions = ()
+  type = integer
+  intent = out