Ignore:
Timestamp:
2018-11-21T11:25:53+01:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: merge with trunk@10344, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OFF/nemogcm.F90

    r10297 r10345  
    110110         IF( istp /= nit000 )   CALL day        ( istp )         ! Calendar (day was already called at nit000 in day_init) 
    111111                                CALL iom_setkt  ( istp - nit000 + 1, cxios_context )   ! say to iom that we are at time step kstp 
     112#if defined key_sed_off 
     113                                CALL dta_dyn_sed( istp )         ! Interpolation of the dynamical fields 
     114#else 
    112115                                CALL dta_dyn    ( istp )         ! Interpolation of the dynamical fields 
    113116         IF( .NOT.ln_linssh )   CALL dta_dyn_swp( istp )         ! swap of sea  surface height and vertical scale factors 
    114  
     117#endif 
    115118                                CALL trc_stp    ( istp )         ! time-stepping 
    116119                                CALL stp_ctl    ( istp, indic )  ! Time loop: control and print 
     
    287290                           CALL trc_nam_run    ! Needed to get restart parameters for passive tracers 
    288291                           CALL trc_rst_cal( nit000, 'READ' )   ! calendar 
     292#if defined key_sed_off 
     293                           CALL dta_dyn_sed_init ! Initialization for the dynamics 
     294#else 
    289295                           CALL dta_dyn_init   ! Initialization for the dynamics 
     296#endif 
    290297 
    291298                           CALL     trc_init   ! Passive tracers initialization 
Note: See TracChangeset for help on using the changeset viewer.