Changeset 9565


Ignore:
Timestamp:
2018-05-09T11:25:07+02:00 (2 years ago)
Author:
smasson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/stpctl.F90

    r9441 r9565  
    6868      INTEGER , DIMENSION(2) ::   iloch 
    6969      REAL(wp), DIMENSION(4) ::   zmax 
     70      CHARACTER(len=20) :: clname 
    7071      !!---------------------------------------------------------------------- 
    7172      ! 
     
    8081 
    8182         IF( lwm ) THEN 
    82             istatus = NF90_CREATE( 'run.stat.nc', NF90_CLOBBER, idrun ) 
     83            clname = 'run.stat.nc' 
     84            IF( .NOT. Agrif_Root() )   clname = TRIM(Agrif_CFixed())//"_"//TRIM(clname) 
     85            istatus = NF90_CREATE( TRIM(clname), NF90_CLOBBER, idrun ) 
    8386            istatus = NF90_DEF_DIM( idrun, 'time', NF90_UNLIMITED, idtime ) 
    8487            istatus = NF90_DEF_VAR( idrun, 'abs_ssh_max', NF90_DOUBLE, (/ idtime /), idssh ) 
Note: See TracChangeset for help on using the changeset viewer.