Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine fill_time_dict(dict)type(StringUnlimitedmap),intent(out)::dictinteger::statustype(ESMF_Time)::timeinteger::yy,mm,dd,h,m,scall ESMF_ClockValidate(reference_clock,rc=status)if(status/=0)error stop"Must pass reference via set_reference_clock() before use."call ESMF_ClockGet(reference_clock,currTime=time,rc=status)if(status/=0)error stop"could not get current time in SimulationTime.F90"call ESMF_TimeGet(time,yy=yy,mm=mm,dd=dd,h=h,m=m,s=s,rc=status)if(status/=0)error stop"Failed to get data from ESMF_TimeGet()."call dict%insert('Y',yy)call dict%insert('M',mm)call dict%insert('D',dd)call dict%insert('HH',h)call dict%insert('MM',m)call dict%insert('SS',s)call dict%insert('MS',0)end subroutine Fill_Time_Dict