From dcfb5495cdcbed394fc4bb9d4eafaed9fc425116 Mon Sep 17 00:00:00 2001
From: Tomas Lovato <tomas.lovato@cmcc.it>
Date: Mon, 4 Apr 2022 18:12:36 +0200
Subject: [PATCH] fix filename parsing in iom_open for agrif zooms (#37)
---
src/OCE/IOM/iom.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/OCE/IOM/iom.F90 b/src/OCE/IOM/iom.F90
index dbccf2c7..f6ac95b9 100644
--- a/src/OCE/IOM/iom.F90
+++ b/src/OCE/IOM/iom.F90
@@ -751,7 +751,7 @@ CONTAINS
! =============
clname = trim(cdname)
IF ( .NOT. Agrif_Root() .AND. .NOT. lliof ) THEN
- iln = INDEX(clname,'/')
+ iln = INDEX(clname,'/', BACK=.TRUE.)
cltmpn = clname(1:iln)
clname = clname(iln+1:LEN_TRIM(clname))
clname=TRIM(cltmpn)//TRIM(Agrif_CFixed())//'_'//TRIM(clname)
--
GitLab