New dummy module GFS_finalize_scm.F90

Author: DomHeinzeller

CMakeLists.txt

@@ -110,6 +110,7 @@ set(SOURCES
     ./physics/num_parthds.F
     ./physics/gocart_tracer_config_stub.f
     ./GFS_layer/GFS_initialize_scm.F90
+    ./GFS_layer/GFS_finalize_scm.F90
     ./physics/cldwat2m_micro.F
     ./physics/wv_saturation.F
     ./physics/aer_cloud.F
@@ -223,6 +224,7 @@ set(CAPS
     ./physics/zhaocarr_precpd_cap.F90
     ./physics/sasas_deep_cap.F90
     ./physics/GFS_initialize_scm_cap.F90
+    ./physics/GFS_finalize_scm_cap.F90
     ./physics/GFS_DCNV_generic_pre_cap.F90
     ./physics/gwdc_pre_cap.F90
     ./physics/zhaocarr_gscond_cap.F90

GFS_layer/GFS_finalize_scm.F90

@@ -0,0 +1,42 @@
+module GFS_finalize_scm
+
+  implicit none
+
+  private
+
+!----------------
+! Public entities
+!----------------
+  public  GFS_finalize_scm_init, GFS_finalize_scm_run, GFS_finalize_scm_finalize
+
+  CONTAINS
+!*******************************************************************************************
+
+!--------------
+! GFS initialze
+!--------------
+
+  subroutine GFS_finalize_scm_init()
+  end subroutine GFS_finalize_scm_init
+
+  subroutine GFS_finalize_scm_finalize()
+  end subroutine GFS_finalize_scm_finalize
+
+!> \section arg_table_GFS_finalize_scm_run Argument Table
+!! | local_name           | standard_name                                               | long_name                                                               | units         | rank | type                          |    kind   | intent | optional |
+!! |----------------------|-------------------------------------------------------------|-------------------------------------------------------------------------|---------------|------|-------------------------------|-----------|--------|----------|
+!! | errmsg               | error_message                                               | error message for error handling in CCPP                                | none          |    0 | character                     | len=*     | out    | F        |
+!! | errflg               | error_flag                                                  | error flag for error handling in CCPP                                   | flag          |    0 | integer                       |           | out    | F        |
+!!
+  subroutine GFS_finalize_scm_run (errmsg, errflg)
+
+    character(len=*), intent(out) :: errmsg
+    integer,          intent(out) :: errflg
+
+    ! Initialize CCPP error handling variables
+    errmsg = ''
+    errflg = 0
+
+  end subroutine GFS_finalize_scm_run
+
+end module GFS_finalize_scm