anchor.diff:         if(      item_save(n) == 'ml_omg'             ) out_omg       = .true.
          if(      item_save(n) == 'ml_hgt'             ) out_hgt       = .true.
          if(      item_save(n) == 'ml_th'              ) out_th        = .true.
  +       if(      item_save(n) == 'ml_th_prime'        ) out_th_prime  = .true.
          if(      item_save(n) == 'ml_rh'              ) out_rh        = .true.
   
          if(      item_save(n) == 'sl_cld_frac'        ) out_cld_frac  = .true.
  
positive.code:     real(8) :: th  (ADM_gall,ADM_kall,ADM_lall)
  !    real(8) :: rh  (ADM_gall,ADM_kall,ADM_lall)
  
      real(8) :: q_clw     (ADM_gall,ADM_kall,ADM_lall)
      real(8) :: q_cli     (ADM_gall,ADM_kall,ADM_lall)
      real(8) :: qtot      (ADM_gall,ADM_kall,ADM_lall)
  
negative.code:   logical, private, save :: out_omg       = .false.
    logical, private, save :: out_hgt       = .false.
    logical, private, save :: out_th        = .false.
    logical, private, save :: out_th_prime  = .false.
    logical, private, save :: out_rh        = .false.
  
    logical, private, save :: out_cld_frac  = .false.
  