Searched refs:atm_name2 (Results 1 – 6 of 6) sorted by relevance
31 CHARACTER(LEN=default_string_length) :: atm_name1, atm_name2 component
2259 CHARACTER(len=default_string_length) :: atm_name1, atm_name2, my_atm_name1, & local2278 my_atm_name2 = inp_info%damping_list(i)%atm_name22291 name=atm_name2)2292 CALL UPPERCASE(atm_name2)2294 IF (my_atm_name2 == atm_name2) THEN
1485 damping_list(start_damp + isec_damp)%atm_name2 = atm_name1486 CALL uppercase(damping_list(start_damp + isec_damp)%atm_name2)