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 8511 – NEMO

Changeset 8511


Ignore:
Timestamp:
2017-09-07T17:53:42+02:00 (7 years ago)
Author:
lovato
Message:

3.6_stable: correct output format for large timestep values in trcbc

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/TOP_SRC/trcbc.F90

    r5215 r8511  
    277277      ! OPEN boundary conditions: DOES NOT WORK. Waiting for stable BDY 
    278278      IF( nb_trcobc > 0 ) THEN 
    279         if (lwp) write(numout,'(a,i5,a,i5)') '   reading OBC data for ', nb_trcobc ,' variables at step ', kt 
     279        if (lwp) write(numout,'(a,i5,a,i12)') '   reading OBC data for ', nb_trcobc ,' variables at step ', kt 
    280280        CALL fld_read(kt,1,sf_trcobc) 
    281281        ! vertical interpolation on s-grid and partial step to be added 
     
    284284      ! SURFACE boundary conditions        
    285285      IF( nb_trcsbc > 0 ) THEN 
    286         if (lwp) write(numout,'(a,i5,a,i5)') '   reading SBC data for ', nb_trcsbc ,' variables at step ', kt 
     286        if (lwp) write(numout,'(a,i5,a,i12)') '   reading SBC data for ', nb_trcsbc ,' variables at step ', kt 
    287287        CALL fld_read(kt,1,sf_trcsbc) 
    288288      ENDIF 
     
    290290      ! COASTAL boundary conditions        
    291291      IF( nb_trccbc > 0 ) THEN 
    292         if (lwp) write(numout,'(a,i5,a,i5)') '   reading CBC data for ', nb_trccbc ,' variables at step ', kt 
     292        if (lwp) write(numout,'(a,i5,a,i12)') '   reading CBC data for ', nb_trccbc ,' variables at step ', kt 
    293293        CALL fld_read(kt,1,sf_trccbc) 
    294294      ENDIF    
Note: See TracChangeset for help on using the changeset viewer.