Ignore:
Timestamp:
2015-06-02T16:43:22+02:00 (5 years ago)
Author:
cetlod
Message:

dev_r5204_CNRS_PISCES_dcy : remove output formatting

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r5237 r5335  
    160160      llnew   = ( iseclast - isecfst )  > INT( rdt_sampl )   !   new shortwave to store 
    161161      IF( kt /= nittrc000 .AND. llnew ) THEN 
    162           IF( lwp ) WRITE(numout,9000) ' New shortwave to sample for TOP at time kt = ', kt, & 
     162          IF( lwp ) WRITE(numout,*) ' New shortwave to sample for TOP at time kt = ', kt, & 
    163163             &                      ' time = ', (iseclast+rdt*nn_dttrc/2.)/3600.,'hours ' 
    164164          isecfst = iseclast 
     
    169169          qsr_mean(:,:                ) = SUM( qsr_arr(:,:,:), 3 ) / nb_rec_per_days 
    170170      ENDIF 
    171       ! 
    172  9000 FORMAT(i10,f10.1) 
    173171      ! 
    174172   END SUBROUTINE trc_mean_qsr 
Note: See TracChangeset for help on using the changeset viewer.