remove unneccessary lines, add 3D export to no child

geoschem · Jun 28, 2022 · 4945335 · 4945335
1 parent 4f63587
commit 4945335
Show file tree

Hide file tree

Showing 6 changed files with 8 additions and 8 deletions.
diff --git a/tutorial/grid_comps/parent_with_no_children/ParentNoChildren_GridComp.F90 b/tutorial/grid_comps/parent_with_no_children/ParentNoChildren_GridComp.F90
@@ -25,6 +25,10 @@ subroutine setservices(gc,rc)
      call MAPL_AddExportSpec(gc,short_name='output1', long_name='NA',units='NA', &
                                  dims = MAPL_DimsHorzOnly, &
                                  vlocation = MAPL_VLocationNone, _RC)
+     call MAPL_AddExportSpec(gc,short_name='output2', long_name='NA',units='NA', &
+                                 dims = MAPL_DimsHorzVert, &
+                                 vlocation = MAPL_VLocationCenter, _RC)
+
 
 
      call MAPL_GenericSetServices(gc, _RC)
@@ -57,15 +61,17 @@ subroutine my_run(gc, import, export, clock, rc)
      type(ESMF_Clock), intent(inout) :: clock
      integer, intent(out), optional :: rc
 
-     real, pointer :: ptr_2d(:,:)
+     real, pointer :: ptr_2d(:,:), ptr_3d(:,:)
      type (MAPL_MetaComp),      pointer  :: MAPL
      real :: my_constant
      integer :: status
 
      call MAPL_GetObjectFromGC ( GC, MAPL, _RC)
      call MAPL_GetResource(MAPL, my_constant, Label="my_value:", default=17.0,_RC)
      call MAPL_GetPointer(export,ptr_2d,'output1',_RC)
-     ptr_2d = my_constant
+     if (associated(ptr_2d)) ptr_2d = my_constant
+     call MAPL_GetPointer(export,ptr_3d,'output2',_RC)
+     if (associated(ptr_3d)) ptr_3d = my_constant
 
      _RETURN(_SUCCESS)
 

diff --git a/tutorial/tutorials/hello_world/CAP.rc b/tutorial/tutorials/hello_world/CAP.rc
@@ -1,4 +1,3 @@
-MAPLROOT_COMPNAME: hello_world
 ROOT_NAME: hello_world
 HIST_CF: HISTORY.rc
 

diff --git a/tutorial/tutorials/parent_no_children/CAP.rc b/tutorial/tutorials/parent_no_children/CAP.rc
@@ -1,8 +1,6 @@
-MAPLROOT_COMPNAME: root
 ROOT_NAME: root
 HIST_CF: HISTORY.rc
 
-
 ROOT_CF: root.rc
 
 BEG_DATE:     20070801 000000

diff --git a/tutorial/tutorials/parent_one_child_import_via_extdata/CAP.rc b/tutorial/tutorials/parent_one_child_import_via_extdata/CAP.rc
@@ -1,4 +1,3 @@
-MAPLROOT_COMPNAME: root
 ROOT_NAME: root
 HIST_CF: HISTORY.rc
 

diff --git a/tutorial/tutorials/parent_one_child_no_imports/CAP.rc b/tutorial/tutorials/parent_one_child_no_imports/CAP.rc
@@ -1,4 +1,3 @@
-MAPLROOT_COMPNAME: root
 ROOT_NAME: root
 HIST_CF: HISTORY.rc
 

diff --git a/tutorial/tutorials/parent_two_siblings_connect_import_export/CAP.rc b/tutorial/tutorials/parent_two_siblings_connect_import_export/CAP.rc
@@ -1,4 +1,3 @@
-MAPLROOT_COMPNAME: root
 ROOT_NAME: root
 HIST_CF: HISTORY.rc