EMTCCM Fortran - Exercise 2