Changeset 13546 for NEMO/trunk/src/SAS/stpctl.F90

Timestamp:

2020-09-30T10:47:59+02:00 (4 years ago)

Author:

smasson

Message:

trunk: supress the use of undefined values, see #2535

File:

• NEMO/trunk/src/SAS/stpctl.F90 (modified) (1 diff)

NEMO/trunk/src/SAS/stpctl.F90

@@ -98 +98 @@
             CALL ctl_opn( numrun, clname, 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, narea )
             !                             ! open run.stat.nc netcdf file, done only by 1st subdomain
-            clname = clname//'.nc'
+            clname = TRIM(clname)//'.nc'
             IF( .NOT. Agrif_Root() )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname)
             istatus = NF90_CREATE( TRIM(clname), NF90_CLOBBER, nrunid )