anchor.diff:      endif
   
       !--- potential temperature
  -    if (out_th) then
  +    if ( out_th ) then
          do l = 1, ADM_lall
             call thrmdyn_th( ADM_gall,   & ! [IN]
                              th (:,:,l), & ! [OUT]
  
positive.code:                            pre(:,:,l)  ) ! [IN]
  
            call history_in( 'ml_th', th(:,:,l) )
         enddo
      endif
  
  
negative.code:          GTL_output_var2,       &
           GTL_output_var2_da,    &
           GTL_generate_uv,       &
         GTL_global_sum_eachlayer, &
           GTL_clip_region_1layer , &  ! [add] 2010.08.20 C.Kodama
         GTL_max, &
         GTL_min
  