Ignore:
Timestamp:
2020-10-20T17:48:54+02:00 (7 months ago)
Author:
cguiavarch
Message:

iceberg restart fix

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.3_GO8_package/src/OCE/ICB/icbrst.F90

    r13590 r13647  
    198198      CHARACTER(len=256)  :: cl_filename 
    199199      CHARACTER(LEN=20)   ::   clkt     ! ocean time-step deine as a character 
    200       CHARACTER(len=8  )     :: cl_kt 
    201200      CHARACTER(LEN=12 )     :: clfmt            ! writing format 
    202201      TYPE(iceberg), POINTER :: this 
     
    224223            ENDIF 
    225224         ENDIF 
    226          cl_filename = TRIM(cexper)//"_icebergs_"//cl_kt//"_restart" 
     225         cl_filename = TRIM(cexper)//"_icebergs_"//TRIM(ADJUSTL(clkt))//"_restart" 
    227226         IF( lk_mpp ) THEN 
    228227            idg = MAX( INT(LOG10(REAL(MAX(1,jpnij-1),wp))) + 1, 4 )          ! how many digits to we need to write? min=4, max=9 
Note: See TracChangeset for help on using the changeset viewer.