From a3e3a424d8fd8d379768adfdc26d319bd1f40c36 Mon Sep 17 00:00:00 2001 From: Jiri Janos Date: Fri, 19 Jun 2026 10:04:25 +0200 Subject: [PATCH] Changing velocity rescaling default to 'nac' --- src/surfacehop.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/surfacehop.F90 b/src/surfacehop.F90 index e329019a..d5906047 100644 --- a/src/surfacehop.F90 +++ b/src/surfacehop.F90 @@ -50,7 +50,7 @@ module mod_sh ! velocity_rescaling = 'velocity' (adjmom=1) - Rescale along the velocity vector ! velocity_rescaling = 'nac' (adjmom=2) - Adjust velocity along the NAC vector. integer :: adjmom = 0 ! for working within the code - character(len=50) :: velocity_rescaling = 'nac_then_velocity' ! for reading the input file + character(len=50) :: velocity_rescaling = 'nac' ! for reading the input file, default is set here ! 1 - Reverse momentum direction after frustrated hop integer :: revmom = 0