Changeset 12858 for NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90
- Timestamp:
- 2020-05-03T11:04:27+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90
r12856 r12858 248 248 INTEGER, INTENT(in ) :: kt, ksum, kmin, kmax 249 249 ! 250 CHARACTER(len=9) :: clkt, clsum, clmin, clmax 251 CHARACTER(len=9) :: cli, clj, clk 252 CHARACTER(len=1) :: clfmt 253 CHARACTER(len=4) :: cl4 ! needed to be able to compile with Agrif, I don't know why 254 INTEGER :: ifmtk 250 CHARACTER(len=80) :: clsuff 251 CHARACTER(len=9 ) :: clkt, clsum, clmin, clmax 252 CHARACTER(len=9 ) :: cli, clj, clk 253 CHARACTER(len=1 ) :: clfmt 254 CHARACTER(len=4 ) :: cl4 ! needed to be able to compile with Agrif, I don't know why 255 INTEGER :: ifmtk 255 256 !!---------------------------------------------------------------------- 256 257 WRITE(clkt , '(i9)') kt … … 268 269 cl4 = '(i'//clfmt//')' ; WRITE(clj, cl4) kloc(2) ! this is ok with AGRIF 269 270 ! 270 IF( ksum == 1 ) THEN ; WRITE(c dline,9100) TRIM(clmin)271 ELSE ; WRITE(c dline,9200) TRIM(clsum), TRIM(clmin), TRIM(clmax)271 IF( ksum == 1 ) THEN ; WRITE(clsuff,9100) TRIM(clmin) 272 ELSE ; WRITE(clsuff,9200) TRIM(clsum), TRIM(clmin), TRIM(clmax) 272 273 ENDIF 273 274 IF(kloc(3) == 0) THEN 274 275 ifmtk = INT(LOG10(REAL(jpk,wp))) + 1 ! how many digits to we need to write jpk? (we decide max = 9) 275 276 clk = REPEAT(' ', ifmtk) ! create the equivalent in blank string 276 WRITE(cdline,9300) TRIM(ADJUSTL(clkt)), TRIM(ADJUSTL(cdprefix)), pval, TRIM(cli), TRIM(clj), clk(1:ifmtk), TRIM(c dline)277 WRITE(cdline,9300) TRIM(ADJUSTL(clkt)), TRIM(ADJUSTL(cdprefix)), pval, TRIM(cli), TRIM(clj), clk(1:ifmtk), TRIM(clsuff) 277 278 ELSE 278 279 WRITE(clfmt, '(i1)') INT(LOG10(REAL(jpk,wp))) + 1 ! how many digits to we need to write jpk? (we decide max = 9) 279 280 !!! WRITE(clk, '(i'//clfmt//')') kloc(3) ! this is creating a compilation error with AGRIF 280 281 cl4 = '(i'//clfmt//')' ; WRITE(clk, cl4) kloc(3) ! this is ok with AGRIF 281 WRITE(cdline,9400) TRIM(ADJUSTL(clkt)), TRIM(ADJUSTL(cdprefix)), pval, TRIM(cli), TRIM(clj), TRIM(clk), TRIM(c dline)282 WRITE(cdline,9400) TRIM(ADJUSTL(clkt)), TRIM(ADJUSTL(cdprefix)), pval, TRIM(cli), TRIM(clj), TRIM(clk), TRIM(clsuff) 282 283 ENDIF 283 284 !
Note: See TracChangeset
for help on using the changeset viewer.