New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5948 for branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/step_oce.F90 – NEMO

Ignore:
Timestamp:
2015-11-30T11:47:24+01:00 (8 years ago)
Author:
timgraham
Message:

Merged in head of trunk (r5936)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r5947 r5948  
    44   !! Ocean time-stepping : module used in both initialisation phase and time stepping 
    55   !!====================================================================== 
    6    !! History :   3.3  ! 2010-08  (C. Ethe)  Original code - reorganisation of the initial phase 
     6   !! History :   3.3  !  2010-08  (C. Ethe)  Original code - reorganisation of the initial phase 
     7   !!             3.7  !  2014-01  (G. Madec) LDF simplication  
    78   !!---------------------------------------------------------------------- 
    89   USE oce              ! ocean dynamics and tracers variables 
    910   USE dom_oce          ! ocean space and time domain variables 
    1011   USE zdf_oce          ! ocean vertical physics variables 
    11    USE ldftra_oce       ! ocean tracer   - trends 
    12    USE ldfdyn_oce       ! ocean dynamics - trends 
    13    USE divcur           ! hor. divergence and curl      (div & cur routines) 
    14    USE in_out_manager   ! I/O manager 
    15    USE iom              ! 
    16    USE lbclnk 
    17    USE restart          ! restart 
    18 #if defined key_iomput 
    19    USE xios 
    20 #endif 
    2112 
    2213   USE daymod           ! calendar                         (day     routine) 
    2314 
     15   USE sbc_oce          ! surface boundary condition: ocean 
    2416   USE sbcmod           ! surface boundary condition       (sbc     routine) 
    2517   USE sbcrnf           ! surface boundary condition: runoff variables 
    2618   USE sbccpl           ! surface boundary condition: coupled formulation (call send at end of step) 
    27    USE sbc_oce          ! surface boundary condition: ocean 
     19   USE sbcapr           ! surface boundary condition: atmospheric pressure 
    2820   USE sbctide          ! Tide initialisation 
    29    USE sbcapr           ! surface boundary condition: ssh_ib required by bdydta  
    3021 
    3122   USE traqsr           ! solar radiation penetration      (tra_qsr routine) 
     
    3627   USE traadv           ! advection scheme control     (tra_adv_ctl routine) 
    3728   USE traldf           ! lateral mixing                   (tra_ldf routine) 
    38    !   zdfkpp           ! KPP non-local tracer fluxes      (tra_kpp routine) 
    3929   USE trazdf           ! vertical mixing                  (tra_zdf routine) 
    4030   USE tranxt           ! time-stepping                    (tra_nxt routine) 
     
    4333   USE eosbn2           ! equation of state                (eos_bn2 routine) 
    4434 
     35   USE divhor           ! horizontal divergence            (div_hor routine) 
    4536   USE dynadv           ! advection                        (dyn_adv routine) 
    4637   USE dynbfr           ! Bottom friction terms            (dyn_bfr routine) 
     
    4940   USE dynldf           ! lateral momentum diffusion       (dyn_ldf routine) 
    5041   USE dynzdf           ! vertical diffusion               (dyn_zdf routine) 
    51    USE dynspg_oce       ! surface pressure gradient        (dyn_spg routine) 
    5242   USE dynspg           ! surface pressure gradient        (dyn_spg routine) 
    53    USE dynnept          ! simp. form of Neptune effect(dyn_nept_cor routine) 
    5443 
    5544   USE dynnxt           ! time-stepping                    (dyn_nxt routine) 
     
    7160 
    7261   USE ldfslp           ! iso-neutral slopes               (ldf_slp routine) 
    73    USE ldfeiv           ! eddy induced velocity coef.      (ldf_eiv routine) 
    74    USE ldftra_smag      ! Smagirinsky diffusion            (ldftra_smag routine) 
    75    USE ldfdyn_smag      ! Smagorinsky viscosity            (ldfdyn_smag routine)  
     62   USE ldfdyn           ! lateral eddy viscosity coef.     (ldf_dyn routine) 
     63   USE ldftra           ! lateral eddy diffusive coef.     (ldf_tra routine) 
    7664 
    7765   USE zdftmx           ! tide-induced vertical mixing     (zdf_tmx routine) 
     
    7967   USE zdftke           ! TKE vertical mixing              (zdf_tke routine) 
    8068   USE zdfgls           ! GLS vertical mixing              (zdf_gls routine) 
    81    USE zdfkpp           ! KPP vertical mixing              (zdf_kpp routine) 
    8269   USE zdfddm           ! double diffusion mixing          (zdf_ddm routine) 
    8370   USE zdfevd           ! enhanced vertical diffusion      (zdf_evd routine) 
     
    10592   USE asmbkg 
    10693   USE stpctl           ! time stepping control            (stp_ctl routine) 
     94   USE restart          ! ocean restart                    (rst_wri routine) 
    10795   USE prtctl           ! Print control                    (prt_ctl routine) 
    10896 
    10997   USE diaobs           ! Observation operator 
    11098 
     99   USE in_out_manager   ! I/O manager 
     100   USE iom              ! 
     101   USE lbclnk 
    111102   USE timing           ! Timing 
    112103 
     104#if defined key_iomput 
     105   USE xios 
     106#endif 
    113107#if defined key_agrif 
    114108   USE agrif_opa_sponge ! Momemtum and tracers sponges 
     109   USE agrif_opa_update ! Update (2-way nesting) 
    115110#endif 
    116111#if defined key_top 
     
    118113#endif 
    119114   !!---------------------------------------------------------------------- 
    120    !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     115   !! NEMO/OPA 3.7 , NEMO Consortium (2014) 
    121116   !! $Id$ 
    122117   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
Note: See TracChangeset for help on using the changeset viewer.