Ignore:
Timestamp:
2016-10-04T14:34:18+02:00 (4 years ago)
Author:
nicolasmartin
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

    r6968 r6981  
    137137            nb_rec_per_day = ncpl_qsr_freq 
    138138         ELSE   
    139             rdt_sampl = MAX( 3600., rdttrc(1) ) 
     139            rdt_sampl = MAX( 3600., rdttrc ) 
    140140            nb_rec_per_day = INT( rday / rdt_sampl ) 
    141141         ENDIF 
     
    154154                            iom_varid( numrtr, 'ktdcy'    , ldstop = .FALSE. ) > 0 ) THEN  
    155155            CALL iom_get( numrtr, 'ktdcy', zkt )   !  A mean of qsr 
    156             rsecfst = INT( zkt ) * rdttrc(1) 
     156            rsecfst = INT( zkt ) * rdttrc 
    157157            IF(lwp) WRITE(numout,*) 'trc_qsr_mean:   qsr_mean read in the restart file at time-step rsecfst =', rsecfst, ' s ' 
    158158            CALL iom_get( numrtr, jpdom_autoglo, 'qsr_mean', qsr_mean )   !  A mean of qsr 
     
    168168         ELSE                                         !* no restart: set from nit000 values 
    169169            IF(lwp) WRITE(numout,*) 'trc_qsr_mean:   qsr_mean set to nit000 values' 
    170             rsecfst  = kt * rdttrc(1) 
     170            rsecfst  = kt * rdttrc 
    171171            ! 
    172172            qsr_mean(:,:) = qsr(:,:) 
     
    178178      ENDIF 
    179179      ! 
    180       rseclast = kt * rdttrc(1) 
     180      rseclast = kt * rdttrc 
    181181      ! 
    182182      llnew   = ( rseclast - rsecfst ) .ge.  rdt_sampl    !   new shortwave to store 
Note: See TracChangeset for help on using the changeset viewer.