setup Subroutine

public subroutine setup()

Arguments

None

Calls

proc~~setup~2~~CallsGraph proc~setup~2 setup ESMF_ConfigCreate ESMF_ConfigCreate proc~setup~2->ESMF_ConfigCreate ESMF_ConfigLoadFile ESMF_ConfigLoadFile proc~setup~2->ESMF_ConfigLoadFile assertequal assertequal proc~setup~2->assertequal

Source Code

   subroutine setup()
      integer :: unit, status
      
      open (newunit=unit, file = 'tmp.rc', access='sequential', form='formatted')
      write (unit,*) 'default.GRID_TYPE: grid_type_1'
      write (unit,*) 'other.GRID_TYPE: grid_type_2'
      close (unit)

      config = ESMF_ConfigCreate(rc=status)
      @assertEqual(0, status)
      call ESMF_ConfigLoadFile (config, 'tmp.rc', rc=status)
      @assertEqual(0, status)
 
   end subroutine setup