program Godfred_MET
 implicit none
 ! question 1. The valid names are T_max and windspeed10m
 ! question 2. Evaluate the following
 
 print *, " =======Godfred_MET2_Evaluation======="
 print *, " 7/2 * 2          =", 7/2 * 2
 print *, " 7.0/2.0 * 2.0    =", 7.0/2.0 * 2.0
 print *, " 2 ** 3 ** 2      =", 2 ** 3 ** 2
 print *, " -2.0 ** 2        =", -2.0 ** 2
 print *, " MOD(17,5)        =", MOD(17, 5)
 print *, " NINT(2.5)        =", NINT(2.5)
 print *, " INT(-2.5)        =", INT(-2.5)
 print *, " ======= Godfred_MET2_Evaluation======="
 ! question 3.
 ! real, parameter :: g = 9.81
 ! g = 9.80665
 ! T_eff = ((1 - albedo) * SO / (4 / sigma)) ** (1/4)
 ! An error popped up saying T_eff, albedo, sigma and SO have no implicit type
 
 end program Godfred_MET