source: issm/oecreview/Archive/23390-24306/ISSM-23524-23525.diff

../trunk-jpl/externalpackages/semic/surface_physics.f90.patch

@@ +1 @@
+--- surface_physics.f90 2018-12-10 08:27:55.000000000 +0100
++++ my_surface_physics.f90      2018-12-10 08:58:14.000000000 +0100
+@@ -775,9 +775,9 @@
+         n_ksub        = par%n_ksub
+ 
+         ! Read parameters from input namelist file
+-        open(7,file=trim(filename))
+-        read(7,nml=surface_physics)
+-        close(7)
++        !open(7,file=trim(filename))
++        !read(7,nml=surface_physics)
++        !close(7)
+ !         write(*,nml=surface_physics)
+ 
+         ! Store local parameter values in output object

../trunk-jpl/externalpackages/semic/install.sh

@@ -2 +2 @@
 set -eu
 
 #Some cleanup
-rm -rf install src
-mkdir install
+#rm -rf install src
+#mkdir install
 
 #Download latest version
-git clone https://github.com/mkrapp/semic.git src
+#git clone https://github.com/mkrapp/semic.git src
 
 if which ifort >/dev/null; then
         FC="ifort"
@@ -40 +40 @@
 ) > Makefile
 make
 
+# patch surface_physics
+patch surface_physics.f90 < ../surface_physics.f90.patch
+
 #Compile semic module surface_physics.f90
 (
 cat << EOF