!!****f* source/pathToMyUnits/MyUnitMain/Impl2/MyUnit !! !! NAME !! MyUnit !! !! SYNOPSIS !! MyUnit(integer(in) :: exampleDummyArg, !! real(out) :: anotherDummyArg) !! !! DESCRIPTION !! !! Put the description of this implementation of the MyUnit here. !! !! !! ARGUMENTS !! !! exampleDummyArg - explain argument !! anotherDummyArg - explain argument !! !! EXAMPLE !! give a usage example !! !! NOTES !! !! This file contains one implementation of the main driver of MyUnit. !! The other implementation can be found in file !! "MyUnit/MyUnitMain/MyUnitImpl1/MyUnit.F90". !! !!*** subroutine MyUnit(exampleDummyArg, anotherDummyArg) !list of data items from MyUnit_data, whatever is needed use MyUnit_data, ONLY : nxb, nyb, nzb, fm_ver3, fm_ver2 integer, intent(in) :: exampleDummyArg real, intent(out) :: anotherDummyArg !calculate return end subroutine MyUnit