求一个筛选寒潮的fortran程序

浅墨听檐

　　寒潮：①24h内日最低气温下降幅度≥8℃，或48h内降温幅度≥10℃。②该日日平均气温24h内下降≥8℃，或48h内下降≥10℃，满足①或②且过程最低气温≤4℃。
　　强寒潮：①24h内日最低气温下降幅度≥10℃，或48h内降温幅度≥12℃。②该日日平均气温24h内下降≥10℃，或48h内下降≥12℃，定义满足①或②且过程最低气温≤3℃。
　　特强寒潮：①24h内日最低气温下降幅度≥12℃，或48h内降温幅度≥14℃。②该日日平均气温24h内下降≥12℃，或48h内下降≥14℃，定义满足①或②且过程最低气温≤2℃。
区域性寒潮
　　区域性寒潮：一次寒潮过程中，全区内有≥50%的气象站满足寒潮标准。
　　全区性强寒潮：一次寒潮过程中，全区内有≥60%的气象站满足寒潮标准，其中满足强寒潮标准的≥30%。
　　全区性特强寒潮：一次寒潮过程中，全区内有≥70%的气象站满足寒潮标准，其中满足强寒潮标准的≥40%。
按照这个寒潮标准（可以再简化一些），有日平均温度和最低温度，把寒潮过程筛选出来，最后要统计寒潮发生频次

lqouc

这是老师留的作业么？

lqouc

这是老师留的作业么？