Searched refs:fg_couple (Results 1 – 6 of 6) sorted by relevance
41 if( fstrPARAM%fg_couple /= 1 ) return113 if( fstrPARAM%fg_couple == 0 ) return135 if( fstrPARAM%fg_couple /= 1 ) return175 if( fstrPARAM%fg_couple == 0 ) return
72 write(*,*) 'fg_couple ',p%fg_couple
1948 P%PARAM%fg_couple = 1
66 if( fstrPARAM%fg_couple == 1) then135 if( fstrPARAM%fg_couple == 1 ) then144 if( fstrPARAM%fg_couple == 1 ) then205 if( fstrPARAM%fg_couple == 1 ) then321 if( fstrPARAM%fg_couple == 1) then
149 if( fstrPARAM%fg_couple == 1) then194 if( fstrPARAM%fg_couple == 1) then300 if( fstrPARAM%fg_couple == 1 ) then669 if( fstrPARAM%fg_couple == 1) then
172 integer( kind=kint ) :: fg_couple !< (default:0) component976 fstrPARAM%fg_couple = 0