Ignore:
Location:
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/ICB/icbrst.F90

    r11476 r11539  
    222222         ENDIF 
    223223         IF( lk_mpp ) THEN 
    224             WRITE(cl_filename,'(A,"_icebergs_",A,"_restart_",I4.4,".nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)), narea-1 
     224            WRITE(cl_filename,'(A,"_icebergs_",A,"_restart_",I6.6,".nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)), narea-1 
    225225         ELSE 
    226226            WRITE(cl_filename,'(A,"_icebergs_",A,"_restart.nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)) 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/ICB/icbtrj.F90

    r11476 r11539  
    8080 
    8181      ! define trajectory output name 
    82       IF ( lk_mpp ) THEN   ;   WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A,"_",I4.4,".nc")')   & 
     82      IF ( lk_mpp ) THEN   ;   WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A,"_",I6.6,".nc")')   & 
    8383         &                        TRIM(ADJUSTL(cldate_ini)), TRIM(ADJUSTL(cldate_end)), narea-1 
    8484      ELSE                 ;   WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A         ,".nc")')   & 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/IOM/iom_nf90.F90

    r11476 r11539  
    104104         IF( ldwrt ) THEN              !* the file should be open in write mode so we create it... 
    105105            IF( jpnij > 1 ) THEN 
    106                WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea-1, '.nc' 
     106               WRITE(cltmp,'(a,a,i6.6,a)') cdname(1:iln-1), '_', narea-1, '.nc' 
    107107               cdname = TRIM(cltmp) 
    108108            ENDIF 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/LBC/lib_mpp.F90

    r11476 r11539  
    19741974      clfile = TRIM(cdfile) 
    19751975      IF( PRESENT( karea ) ) THEN 
    1976          IF( karea > 1 )   WRITE(clfile, "(a,'_',i4.4)") TRIM(clfile), karea-1 
     1976         IF( karea > 1 )   WRITE(clfile, "(a,'_',i6.6)") TRIM(clfile), karea-1 
    19771977      ENDIF 
    19781978#if defined key_agrif 
  • NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/timing.F90

    r11476 r11539  
    667667         cllignes(2)='1x,"--------------------",//,' 
    668668         cllignes(3)='1x,"Process Rank |"," Elapsed Time (s) |"," CPU Time (s) |"," Ratio CPU/Elapsed",/,' 
    669          cllignes(4)='    (1x,i4,9x,"|",f12.3,6x,"|",f12.3,2x,"|",4x,f7.3,/),' 
    670          WRITE(cllignes(4)(1:4),'(I4)') jpnij 
     669         cllignes(4)='    (1x,i6,9x,"|",f12.3,6x,"|",f12.3,2x,"|",4x,f7.3,/),' 
     670         WRITE(cllignes(4)(1:4),'(I6)') jpnij 
    671671         cllignes(5)='1x,"Total        |",f12.3,6x,"|",F12.3,2x,"|",4x,f7.3,/,' 
    672672         cllignes(6)='1x,"Minimum      |",f12.3,6x,"|",F12.3,2x,"|",4x,f7.3,/,' 
Note: See TracChangeset for help on using the changeset viewer.