Changeset 5335

Timestamp:

2015-06-02T16:43:22+02:00 (9 years ago)

Author:

cetlod

Message:

dev_r5204_CNRS_PISCES_dcy : remove output formatting

File:

• branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (2 diffs)

branches/2015/dev_r5204_CNRS_PISCES_dcy/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -160 +160 @@
       llnew   = ( iseclast - isecfst )  > INT( rdt_sampl )   !   new shortwave to store
       IF( kt /= nittrc000 .AND. llnew ) THEN
-          IF( lwp ) WRITE(numout,9000) ' New shortwave to sample for TOP at time kt = ', kt, &
+          IF( lwp ) WRITE(numout,*) ' New shortwave to sample for TOP at time kt = ', kt, &
              &                      ' time = ', (iseclast+rdt*nn_dttrc/2.)/3600.,'hours '
           isecfst = iseclast
@@ -169 +169 @@
           qsr_mean(:,:                ) = SUM( qsr_arr(:,:,:), 3 ) / nb_rec_per_days
       ENDIF
-      !
- 9000 FORMAT(i10,f10.1)
       !
    END SUBROUTINE trc_mean_qsr