Changeset 9565

Timestamp:

2018-05-09T11:25:07+02:00 (7 years ago)

Author:

smasson

Message:

dev_merge_2017: fix name of run.stat.nc with AGRIF

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/stpctl.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

@@ -68 +68 @@
       INTEGER , DIMENSION(2) ::   iloch
       REAL(wp), DIMENSION(4) ::   zmax
+      CHARACTER(len=20) :: clname
       !!----------------------------------------------------------------------
       !
@@ -80 +81 @@
 
          IF( lwm ) THEN
-            istatus = NF90_CREATE( 'run.stat.nc', NF90_CLOBBER, idrun )
+            clname = 'run.stat.nc'
+            IF( .NOT. Agrif_Root() )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname)
+            istatus = NF90_CREATE( TRIM(clname), NF90_CLOBBER, idrun )
             istatus = NF90_DEF_DIM( idrun, 'time', NF90_UNLIMITED, idtime )
             istatus = NF90_DEF_VAR( idrun, 'abs_ssh_max', NF90_DOUBLE, (/ idtime /), idssh )