Where are the variable values in the file `cfupdateold.f` come from

Hi everyone,

cfupdateold.f is used to “update old arrays to store current time step information before the new arrays are updated”. But, where are the variable values— such as DES_POS_NEW(LL,:), DES_VEL_NEW(LL,:), and OMEGA_NEW(LL,:)—in the file cfupdateold.f come from?

     DES_POS_OLD(LL,:)  = DES_POS_NEW(LL,:)
     DES_VEL_OLD(LL,:)  = DES_VEL_NEW(LL,:)
     OMEGA_OLD(LL,:)    = OMEGA_NEW(LL,:)

Thanks

It comes from discretelement, as can be found by searching the code (case-insensitive) for DES_POS_NEW and USE:

    des/cfupdateold.f:20:       USE discretelement, only: max_pip, des_pos_old, des_pos_new, des_vel_old, des_vel_new, omega_old, omega_new
    des/calc_epg_des.f:34:      use discretelement, only: DES_POS_NEW