From e110f2072150293c60d051bf6a0029295e430d9e Mon Sep 17 00:00:00 2001
From: fschwarzkopf <51958650+fschwarzkopf@users.noreply.github.com>
Date: Mon, 7 Oct 2024 11:41:07 +0200
Subject: [PATCH] correct ssh-file

for option -ssh2 SSH was read from the t-file, even if ssh is provided in a different file (--ssh-file option)
---
 src/cdfbotpressure.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cdfbotpressure.f90 b/src/cdfbotpressure.f90
index 31a4651..9f17e67 100644
--- a/src/cdfbotpressure.f90
+++ b/src/cdfbotpressure.f90
@@ -202,7 +202,7 @@ PROGRAM cdfbotpressure
         dl_sigi(:,:) = 1000.d0 + sigmai(zt, zs, 0., npiglo, npjglo)
 
         !  CAUTION : hdept is used for reading SSH in the next line
-        hdept(:,:)   = getvar(cf_tfil, cn_sossheig, 1, npiglo, npjglo, ktime=jt )
+        hdept(:,:)   = getvar(cf_sshfil, cn_sossheig, 1, npiglo, npjglo, ktime=jt )
         dl_psurf(:,:) = pp_grav * dl_sigi * hdept(:,:)
         IF (lxtra ) THEN
            ierr = putvar(ncout, id_varout(2) ,hdept   ,       1, npiglo, npjglo, ktime=jt)