https://github.com/RAMSmodel/RAMS/blob/c8f4e39439a6578140b7d0e0d2b52170a34cbf02/src/isan/asgen.f90#L695-L698