New dummy routine GFS->finalize for FV3 with corresponding wrapper and cap in the IPD layer.F90

Author: DomHeinzeller

GFS_layer/GFS_abstraction_layer.F90

@@ -15,13 +15,15 @@ module physics_abstraction_layer
 
 #ifdef CCPP
   use GFS_driver,      only: initialize       =>  GFS_initialize,       &
-                             time_vary_step   =>  GFS_time_vary_step
+                             time_vary_step   =>  GFS_time_vary_step,   &
+                             finalize         =>  GFS_finalize
 #else
   use GFS_driver,      only: initialize       =>  GFS_initialize,       &
                              time_vary_step   =>  GFS_time_vary_step,   &
                              radiation_step1  =>  GFS_radiation_driver, &
                              physics_step1    =>  GFS_physics_driver,   &
-                             physics_step2    =>  GFS_stochastic_driver
+                             physics_step2    =>  GFS_stochastic_driver,&
+                             finalize         =>  GFS_finalize
 #endif
 
 !----------------------
@@ -50,6 +52,7 @@ module physics_abstraction_layer
   public  physics_step1
   public  physics_step2
 #endif
+  public  finalize
 
 CONTAINS
 

GFS_layer/GFS_driver.F90

@@ -91,14 +91,15 @@ module GFS_driver
   public  GFS_physics_driver          !< physics_driver (was gbphys)
   public  GFS_stochastic_driver       !< stochastic physics
 #endif
+  public  GFS_finalize
 
   CONTAINS
 !*******************************************************************************************
 
 
-!--------------
-! GFS initialze
-!--------------
+!---------------
+! GFS initialize
+!---------------
   subroutine GFS_initialize (Model, Statein, Stateout, Sfcprop,     &
                              Coupling, Grid, Tbd, Cldprop, Radtend, &
                              Diag, Interstitial, Init_parm)
@@ -378,4 +379,11 @@ subroutine GFS_grid_populate (Grid, xlon, xlat, area)
 
   end subroutine GFS_grid_populate
 
+
+!-------------
+! GFS finalize
+!-------------
+  subroutine GFS_finalize ()
+  end subroutine GFS_finalize
+
 end module GFS_driver

IPD_layer/IPD_driver.F90

@@ -5,11 +5,12 @@ module IPD_driver
                                         IPD_diag_type,     IPD_restart_type, &
                                         IPD_interstitial_type
 #ifdef CCPP
-  use physics_abstraction_layer,  only: initialize,        time_vary_step
+  use physics_abstraction_layer,  only: initialize,        time_vary_step,   &
+                                        finalize
 #else
   use physics_abstraction_layer,  only: initialize,        time_vary_step,   &
                                         radiation_step1,   physics_step1,    &
-                                        physics_step2
+                                        physics_step2,     finalize
 #endif
 
   use physics_diag_layer,         only: diag_populate
@@ -38,13 +39,14 @@ module IPD_driver
   public IPD_physics_step1
   public IPD_physics_step2
 #endif
+  public IPD_finalize
 
   CONTAINS
 !*******************************************************************************************
 
 
 !----------------
-!  IPD Initialize 
+!  IPD initialize 
 !----------------
   subroutine IPD_initialize (IPD_control, IPD_Data, IPD_Diag, IPD_Restart, IPD_Interstitial, IPD_init_parm)
     type(IPD_control_type), intent(inout)      :: IPD_Control
@@ -147,4 +149,12 @@ subroutine IPD_physics_step2 (IPD_Control, IPD_Data, IPD_Diag, IPD_Restart)
   end subroutine IPD_physics_step2
 #endif
 
+!----------------
+!  IPD finalize
+!----------------
+  subroutine IPD_finalize ()
+    !--- finalize the physics suite
+    call finalize ()
+  end subroutine IPD_finalize
+
 end module IPD_driver

IPD_layer/IPD_driver_cap.F90

@@ -34,7 +34,8 @@ module IPD_driver_cap
                             IPD_interstitial_type
     use            :: IPD_driver,                                      &
                       only: IPD_initialize,                            &
-                            IPD_setup_step
+                            IPD_setup_step,                            &
+                            IPD_finalize
     use            :: machine,                                         &
                       only: kind_phys
     use            :: namelist_soilveg,                                &
@@ -44,7 +45,8 @@ module IPD_driver_cap
     private
 
     public :: ipd_initialize_cap,     &
-              ipd_setup_step_cap
+              ipd_setup_step_cap,     &
+              ipd_finalize_cap
 
     contains
 
@@ -173,4 +175,15 @@ function ipd_setup_step_cap(ptr) bind(c) result(ierr)
 
     end function IPD_setup_step_cap
 
+    function ipd_finalize_cap(ptr) bind(c) result(ierr)
+
+        integer(c_int32_t)         :: ierr
+        type(c_ptr), intent(inout) :: ptr
+
+        ierr = 0
+
+        call IPD_finalize()
+
+    end function ipd_finalize_cap
+
 end module IPD_driver_cap