Changeset 9189


Ignore:
Timestamp:
2018-01-05T18:13:56+01:00 (3 years ago)
Author:
kingr
Message:

Minor changes to avoid conflicts with OBS branch.

Location:
branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90

    r8059 r9189  
    121121      IF( lk_bdy )   CALL bdy_tra( kt )  ! BDY open boundaries 
    122122#endif 
     123  
     124      ! set time step size (Euler/Leapfrog) 
     125      IF( neuler == 0 .AND. kt == nit000 ) THEN   ;   r2dtra(:) =     rdttra(:)      ! at nit000             (Euler) 
     126      ELSEIF( kt <= nit000 + 1 )           THEN   ;   r2dtra(:) = 2._wp* rdttra(:)      ! at nit000 or nit000+1 (Leapfrog) 
     127      ENDIF 
    123128 
    124129#if ( ! defined key_lim3 && ! defined key_lim2 && ! key_cice ) 
     
    151156#endif 
    152157 
    153       ! set time step size (Euler/Leapfrog) 
    154       IF( neuler == 0 .AND. kt == nit000 ) THEN   ;   r2dtra(:) =     rdttra(:)      ! at nit000             (Euler) 
    155       ELSEIF( kt <= nit000 + 1 )           THEN   ;   r2dtra(:) = 2._wp* rdttra(:)      ! at nit000 or nit000+1 (Leapfrog) 
    156       ENDIF 
    157  
    158158      ! trends computation initialisation 
    159159      IF( l_trdtra )   THEN                    ! store now fields before applying the Asselin filter 
  • branches/UKMO/AMM15_v3_6_STABLE_package/NEMOGCM/NEMO/OPA_SRC/step.F90

    r9180 r9189  
    375375                               CALL ssh_swp( kstp )         ! swap of sea surface height 
    376376      IF( lk_vvl           )   CALL dom_vvl_sf_swp( kstp )  ! swap of vertical scale factors 
    377       ! 
    378377 
    379378#if defined key_agrif 
     
    405404         IF( lwm.AND.numoni /= -1 ) CALL FLUSH    ( numoni )     ! flush output namelist ice 
    406405      ENDIF 
    407       IF( lrst_oce         )   CALL rst_write( kstp )       ! write output ocean restart file 
     406      IF( lrst_oce         )   CALL rst_write    ( kstp )   ! write output ocean restart file 
    408407 
    409408      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Note: See TracChangeset for help on using the changeset viewer.