& OBCS_u1_adv_T, OBCS_u1_adv_S,
INTEGER OBCS_u1_adv_T, OBCS_u1_adv_S
CALL WRITE_0D_I( OBCS_u1_adv_S, INDEX_NONE,
OBCS_u1_adv_S = 0
updateAdvFlx = OBCS_u1_adv_S