Changeset 11539 for NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled
- Timestamp:
- 2019-09-12T14:01:49+02:00 (5 years ago)
- 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 222 222 ENDIF 223 223 IF( lk_mpp ) THEN 224 WRITE(cl_filename,'(A,"_icebergs_",A,"_restart_",I 4.4,".nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)), narea-1224 WRITE(cl_filename,'(A,"_icebergs_",A,"_restart_",I6.6,".nc")') TRIM(cexper), TRIM(ADJUSTL(clkt)), narea-1 225 225 ELSE 226 226 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
r10888 r11539 80 80 81 81 ! define trajectory output name 82 IF ( lk_mpp ) THEN ; WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A,"_",I 4.4,".nc")') &82 IF ( lk_mpp ) THEN ; WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A,"_",I6.6,".nc")') & 83 83 & TRIM(ADJUSTL(cldate_ini)), TRIM(ADJUSTL(cldate_end)), narea-1 84 84 ELSE ; WRITE(cl_filename,'("trajectory_icebergs_",A,"-",A ,".nc")') & -
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/IOM/iom_nf90.F90
r10888 r11539 104 104 IF( ldwrt ) THEN !* the file should be open in write mode so we create it... 105 105 IF( jpnij > 1 ) THEN 106 WRITE(cltmp,'(a,a,i 4.4,a)') cdname(1:iln-1), '_', narea-1, '.nc'106 WRITE(cltmp,'(a,a,i6.6,a)') cdname(1:iln-1), '_', narea-1, '.nc' 107 107 cdname = TRIM(cltmp) 108 108 ENDIF -
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/LBC/lib_mpp.F90
r11081 r11539 1974 1974 clfile = TRIM(cdfile) 1975 1975 IF( PRESENT( karea ) ) THEN 1976 IF( karea > 1 ) WRITE(clfile, "(a,'_',i 4.4)") TRIM(clfile), karea-11976 IF( karea > 1 ) WRITE(clfile, "(a,'_',i6.6)") TRIM(clfile), karea-1 1977 1977 ENDIF 1978 1978 #if defined key_agrif -
NEMO/branches/UKMO/NEMO_4.0_mirror_SI3_decoupled/src/OCE/timing.F90
r10888 r11539 667 667 cllignes(2)='1x,"--------------------",//,' 668 668 cllignes(3)='1x,"Process Rank |"," Elapsed Time (s) |"," CPU Time (s) |"," Ratio CPU/Elapsed",/,' 669 cllignes(4)=' (1x,i 4,9x,"|",f12.3,6x,"|",f12.3,2x,"|",4x,f7.3,/),'670 WRITE(cllignes(4)(1:4),'(I 4)') jpnij669 cllignes(4)=' (1x,i6,9x,"|",f12.3,6x,"|",f12.3,2x,"|",4x,f7.3,/),' 670 WRITE(cllignes(4)(1:4),'(I6)') jpnij 671 671 cllignes(5)='1x,"Total |",f12.3,6x,"|",F12.3,2x,"|",4x,f7.3,/,' 672 672 cllignes(6)='1x,"Minimum |",f12.3,6x,"|",F12.3,2x,"|",4x,f7.3,/,'
Note: See TracChangeset
for help on using the changeset viewer.