- Timestamp:
- 2019-09-12T14:01:49+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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
Note: See TracChangeset
for help on using the changeset viewer.