anchor.diff:        
               ! Eqn 1.21 + 1.23 + 1.25a
            Cm_alpha_nc = - Cn_alpha_nc / 4.0_ReKi 
  -         Cm_common = Cm_q_circ + Cm_alpha_nc + Cm_q_nc
  -         Cm_Lookup = 0.0_ReKi
  +         Cm_common   = Cm_q_circ + Cm_alpha_nc + Cm_q_nc
  +         Cm_temp     = 0.0_ReKi
      
            if ( p%UAMod == 1 ) then
                  ! Eqn 1.40
  
positive.code:       Cm_temp         = 0.0_ReKi
        T_f               = 0.0_ReKi
        T_V               = 0.0_ReKi
     else
        M           = u%U / p%a_s
        
  
negative.code:       s1 = size(AFInfo%Table(1)%Coefs,2)
        if (s1 < 3) then      
           y%Cm = 0.0_ReKi
           Cm_alpha_nc = 0.0_ReKi        
           Cm_temp     = 0.0_ReKi
           Cm_v        = 0.0_ReKi
           alpha_prime_f = 0.0_ReKi
       
        else
              ! Eqn 1.55
              ! Compute Cn_FS using Eqn 1.35 or 1.36 depending on option selected
  