- Timestamp:
- 2020-10-22T20:49:56+02:00 (3 years ago)
- Location:
- NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP
- Property svn:externals
-
old new 1 ^/utils/build/arch@HEAD arch 2 ^/utils/build/makenemo@HEAD makenemo 3 ^/utils/build/mk@HEAD mk 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev@HEAD ext/AGRIF 6 ^/vendors/FCM@HEAD ext/FCM 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 1 ^/utils/build/arch@12130 arch 2 ^/utils/build/makenemo@12191 makenemo 3 ^/utils/build/mk@11662 mk 4 ^/utils/tools_r4.0-HEAD@12672 tools 5 ^/vendors/AGRIF/dev@10586 ext/AGRIF 6 ^/vendors/FCM@10134 ext/FCM 7 ^/vendors/IOIPSL@9655 ext/IOIPSL 8 9 # SETTE mapping (inactive) 10 #^/utils/CI/sette@12135 sette
-
- Property svn:externals
-
NEMO/branches/2019/dev_r11842_SI3-10_EAP/src/OCE/IOM/iom_nf90.F90
r11536 r13662 60 60 CHARACTER(LEN=256) :: clinfo ! info character 61 61 CHARACTER(LEN=256) :: cltmp ! temporary character 62 CHARACTER(LEN=12 ) :: clfmt ! writing format 63 INTEGER :: idg ! number of digits 62 64 INTEGER :: iln ! lengths of character 63 65 INTEGER :: istop ! temporary storage of nstop … … 69 71 INTEGER :: ihdf5 ! local variable for retrieval of value for NF90_HDF5 70 72 LOGICAL :: llclobber ! local definition of ln_clobber 71 INTEGER :: ilevels 73 INTEGER :: ilevels ! vertical levels 72 74 !--------------------------------------------------------------------- 73 75 ! … … 104 106 IF( ldwrt ) THEN !* the file should be open in write mode so we create it... 105 107 IF( jpnij > 1 ) THEN 106 WRITE(cltmp,'(a,a,i4.4,a)') cdname(1:iln-1), '_', narea-1, '.nc' 108 idg = MAX( INT(LOG10(REAL(MAX(1,jpnij-1),wp))) + 1, 4 ) ! how many digits to we need to write? min=4, max=9 109 WRITE(clfmt, "('(a,a,i', i1, '.', i1, ',a)')") idg, idg ! '(a,a,ix.x,a)' 110 WRITE(cltmp,clfmt) cdname(1:iln-1), '_', narea-1, '.nc' 107 111 cdname = TRIM(cltmp) 108 112 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.