D:/demona/2.0/manual/doc/2-31set/problems/test/2/info/modelInfo.f90
Go to the documentation of this file.00001 subroutine modelInfo 00002 00003 00004 use global 00005 00006 00007 implicit none 00008 00009 integer i 00010 00011 00012 numberOfPhysics=>myModel%numberOfPhysics 00013 00014 maxPhysicsGroup=>myModel%numberOfPhysicsGroups 00015 00016 00017 00018 !##################################################################### 00019 !user supplied variables 00020 !##################################################################### 00021 00022 00023 !number of physics used in the model 00024 00025 numberOfPhysics=1 00026 numberOfPhysics=2 00027 numberOfPhysics=3 00028 00029 maxPhysicsGroup=2 00030 00031 allocate(myModel%pg(maxPhysicsGroup)) 00032 allocate(myModel%pg(1)%pVec(2)) 00033 allocate(myModel%pg(2)%pVec(1)) 00034 myModel%pg(1)%pVec(1)=1 00035 myModel%pg(1)%pVec(2)=2 00036 myModel%pg(2)%pVec(1)=3 00037 00038 00039 00040 00041 00042 if (partitionedPhysics.eqv.yes) then 00043 !< each phyiscs have to be solved seperately 00044 00045 00046 if (allocated(myModel%pg)) deallocate(myModel%pg) 00047 00048 maxPhysicsGroup=numberOfPhysics 00049 00050 allocate(myModel%pg(maxPhysicsGroup)) 00051 00052 00053 do i=1,maxPhysicsGroup 00054 00055 allocate(myModel%pg(i)%pVec(1)) 00056 myModel%pg(i)%pVec(1)=i 00057 00058 00059 end do 00060 00061 00062 end if 00063 00064 00065 !##################################################################### 00066 00067 00068 00069 00070 allocate(myModel%endIndex(numberOfPhysics)) 00071 myModel%endIndex=1 00072 00073 00074 00075 00076 end subroutine modelInfo
