added added Fortran subroutines for upstream forcing functions(which are still to come)