D:/demona/2.0/manual/doc/2-31set/problems/ldc_fv/1/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 00027 00028 !##################################################################### 00029 00030 00031 00032 00033 allocate(myModel%endIndex(numberOfPhysics)) 00034 myModel%endIndex=1 00035 00036 00037 00038 00039 end subroutine modelInfo
