Changeset 13010
 Timestamp:
 20200603T08:47:01+02:00 (4 years ago)
 Location:
 NEMO/releases/r4.0/r4.0HEAD
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

NEMO/releases/r4.0/r4.0HEAD/src/OCE/stpctl.F90
r12859 r13010 240 240 !!! WRITE(clsum, '(i'//clfmt//')') ksum ! this is creating a compilation error with AGRIF 241 241 cl4 = '(i'//clfmt//')' ; WRITE(clsum, cl4) ksum 242 WRITE(clfmt, '(i1)') INT(LOG10(REAL( jpnij1,wp))) + 1! how many digits to we need to write ? (we decide max = 9)242 WRITE(clfmt, '(i1)') INT(LOG10(REAL(MAX(1,jpnij1),wp))) + 1 ! how many digits to we need to write ? (we decide max = 9) 243 243 cl4 = '(i'//clfmt//')' ; WRITE(clmin, cl4) kmin1 244 244 WRITE(clmax, cl4) kmax1 
NEMO/releases/r4.0/r4.0HEAD/tests/CANAL/MY_SRC/stpctl.F90
r12859 r13010 240 240 !!! WRITE(clsum, '(i'//clfmt//')') ksum ! this is creating a compilation error with AGRIF 241 241 cl4 = '(i'//clfmt//')' ; WRITE(clsum, cl4) ksum 242 WRITE(clfmt, '(i1)') INT(LOG10(REAL( jpnij1,wp))) + 1! how many digits to we need to write ? (we decide max = 9)242 WRITE(clfmt, '(i1)') INT(LOG10(REAL(MAX(1,jpnij1),wp))) + 1 ! how many digits to we need to write ? (we decide max = 9) 243 243 cl4 = '(i'//clfmt//')' ; WRITE(clmin, cl4) kmin1 244 244 WRITE(clmax, cl4) kmax1
Note: See TracChangeset
for help on using the changeset viewer.