Changeset 6981 for trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2016-10-04T14:34:18+02:00 (8 years ago)

Author:

nicolasmartin

Message:

Bugfixes for compilation issues : last commit for trcstp and gfortran doesn't allow starting lines with semicolon

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -137 +137 @@
             nb_rec_per_day = ncpl_qsr_freq
          ELSE  
-            rdt_sampl = MAX( 3600., rdttrc(1) )
+            rdt_sampl = MAX( 3600., rdttrc )
             nb_rec_per_day = INT( rday / rdt_sampl )
          ENDIF
@@ -154 +154 @@
                             iom_varid( numrtr, 'ktdcy'    , ldstop = .FALSE. ) > 0 ) THEN 
             CALL iom_get( numrtr, 'ktdcy', zkt )   !  A mean of qsr
-            rsecfst = INT( zkt ) * rdttrc(1)
+            rsecfst = INT( zkt ) * rdttrc
             IF(lwp) WRITE(numout,*) 'trc_qsr_mean:   qsr_mean read in the restart file at time-step rsecfst =', rsecfst, ' s '
             CALL iom_get( numrtr, jpdom_autoglo, 'qsr_mean', qsr_mean )   !  A mean of qsr
@@ -168 +168 @@
          ELSE                                         !* no restart: set from nit000 values
             IF(lwp) WRITE(numout,*) 'trc_qsr_mean:   qsr_mean set to nit000 values'
-            rsecfst  = kt * rdttrc(1)
+            rsecfst  = kt * rdttrc
             !
             qsr_mean(:,:) = qsr(:,:)
@@ -178 +178 @@
       ENDIF
       !
-      rseclast = kt * rdttrc(1)
+      rseclast = kt * rdttrc
       !
       llnew   = ( rseclast - rsecfst ) .ge.  rdt_sampl    !   new shortwave to store