Changeset 15305

Timestamp:

2021-09-30T17:06:33+02:00 (3 years ago)

Author:

jpalmier

Message:

fix conflict

File:

• NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/OCE/ICB/icbrst.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_MEDUSA_externals/src/OCE/ICB/icbrst.F90

@@ -210 +210 @@
          IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/'
          WRITE(cl_kt, '(i8.8)') kt
-         cl_filename = TRIM(cexper)//"_"//cl_kt//"_restart_icebergs"
+         cl_filename = TRIM(cexper)//"_icebergs_"//cl_kt//"_restart"
          IF( lk_mpp ) THEN
             idg = MAX( INT(LOG10(REAL(MAX(1,jpnij-1),wp))) + 1, 4 )          ! how many digits to we need to write? min=4, max=9