New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12858 for NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90 – NEMO

Ignore:
Timestamp:
2020-05-03T11:04:27+02:00 (4 years ago)
Author:
smasson
Message:

r12581_ticket2418: bugfix not seen on X64_IRENE, see #2418

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/r12581_ticket2418/src/OCE/stpctl.F90

    r12856 r12858  
    248248      INTEGER,               INTENT(in   ) ::   kt, ksum, kmin, kmax 
    249249      ! 
    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 
    255256      !!---------------------------------------------------------------------- 
    256257      WRITE(clkt , '(i9)') kt 
     
    268269      cl4 = '(i'//clfmt//')'   ;   WRITE(clj, cl4) kloc(2)      ! this is ok with AGRIF 
    269270      ! 
    270       IF( ksum == 1 ) THEN   ;   WRITE(cdline,9100) TRIM(clmin) 
    271       ELSE                   ;   WRITE(cdline,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) 
    272273      ENDIF 
    273274      IF(kloc(3) == 0) THEN 
    274275         ifmtk = INT(LOG10(REAL(jpk,wp))) + 1                   ! how many digits to we need to write jpk? (we decide max = 9) 
    275276         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(cdline) 
     277         WRITE(cdline,9300) TRIM(ADJUSTL(clkt)), TRIM(ADJUSTL(cdprefix)), pval, TRIM(cli), TRIM(clj), clk(1:ifmtk), TRIM(clsuff) 
    277278      ELSE 
    278279         WRITE(clfmt, '(i1)') INT(LOG10(REAL(jpk,wp))) + 1      ! how many digits to we need to write jpk? (we decide max = 9) 
    279280         !!! WRITE(clk, '(i'//clfmt//')') kloc(3)               ! this is creating a compilation error with AGRIF 
    280281         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(cdline) 
     282         WRITE(cdline,9400) TRIM(ADJUSTL(clkt)), TRIM(ADJUSTL(cdprefix)), pval, TRIM(cli), TRIM(clj),    TRIM(clk), TRIM(clsuff) 
    282283      ENDIF 
    283284      ! 
Note: See TracChangeset for help on using the changeset viewer.