Changeset 5309


Ignore:
Timestamp:
2015-05-28T18:03:24+02:00 (5 years ago)
Author:
davestorkey
Message:

2014/Restart_functionality branch: Modify names of output iceberg restarts to include
experiment name as is done for ocean restarts.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/ICB/icbrst.F90

    r5251 r5309  
    241241      IF( cl_path(LEN_TRIM(cl_path):) /= '/' ) cl_path = TRIM(cl_path) // '/' 
    242242      IF( lk_mpp ) THEN 
    243          WRITE(cl_filename,'("icebergs_",I8.8,"_restart_",I4.4,".nc")') kt, narea-1 
     243         WRITE(cl_filename,'(A,"_icebergs_",I8.8,"_restart_",I4.4,".nc")') TRIM(cexper), kt, narea-1 
    244244      ELSE 
    245          WRITE(cl_filename,'("icebergs_",I8.8,"_restart.nc")') kt 
     245         WRITE(cl_filename,'(A,"_icebergs_",I8.8,"_restart.nc")') TRIM(cexper), kt 
    246246      ENDIF 
    247247      IF (nn_verbose_level >= 0) WRITE(numout,'(2a)') 'icebergs, write_restart: creating ',TRIM(cl_path)//TRIM(cl_filename) 
Note: See TracChangeset for help on using the changeset viewer.