Searched refs:fg_couple_type (Results 1 – 4 of 4) sorted by relevance
67 if( fstrPARAM%fg_couple_type==5 .or. &68 fstrPARAM%fg_couple_type==6 ) then136 if( fstrPARAM%fg_couple_type==5 .or. &137 fstrPARAM%fg_couple_type==6 ) then145 if( fstrPARAM%fg_couple_type==1 .or. &146 fstrPARAM%fg_couple_type==3 .or. &147 fstrPARAM%fg_couple_type==5 ) call fstr_rcap_get( fstrCPL )206 if( fstrPARAM%fg_couple_type>1 ) then248 select case ( fstrPARAM%fg_couple_type )322 if( fstrPARAM%fg_couple_type==5 .or. &[all …]
150 if( fstrPARAM%fg_couple_type==1 .or. &151 fstrPARAM%fg_couple_type==3 .or. &152 fstrPARAM%fg_couple_type==5 ) call fstr_rcap_get( fstrCPL )301 if( fstrPARAM%fg_couple_type>1 ) then343 select case ( fstrPARAM%fg_couple_type )
173 integer( kind=kint ) :: fg_couple_type !< (default:0) component977 fstrPARAM%fg_couple_type = 0
1938 P%PARAM%fg_couple_type, &