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:     endif
  
      !--- potential temperature
      if (out_th) then
         do l = 1, ADM_lall
            call thrmdyn_th( ADM_gall,   & ! [IN]
                             th (:,:,l), & ! [OUT]
  
negative.code:   !----------------------------------------------------------------------
    subroutine history_vars
      use mod_adm, only: &
         ADM_prc_me,  &
         ADM_prc_pl,  &
         ADM_gall,    &
         ADM_gall_pl, &
         ADM_kall,    &
  