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.
step_oce.F90 in branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC – NEMO

source: branches/2016/dev_INGV_UKMO_2016/NEMOGCM/NEMO/OPA_SRC/step_oce.F90 @ 7422

Last change on this file since 7422 was 7422, checked in by gm, 7 years ago

#1805 dev_INGV_UKMO_2016: improve Stokes drift (including dynspg_ts , Stokes-Coriolis force , and GLS surface roughness

  • Property svn:keywords set to Id
File size: 6.7 KB
RevLine 
[2027]1MODULE step_oce
2   !!======================================================================
3   !!                       ***  MODULE step_oce  ***
[2382]4   !! Ocean time-stepping : module used in both initialisation phase and time stepping
[2104]5   !!======================================================================
[5836]6   !! History :   3.3  !  2010-08  (C. Ethe)  Original code - reorganisation of the initial phase
7   !!             3.7  !  2014-01  (G. Madec) LDF simplication
[2287]8   !!----------------------------------------------------------------------
[2104]9   USE oce              ! ocean dynamics and tracers variables
[3764]10   USE dom_oce          ! ocean space and time domain variables
[2104]11   USE zdf_oce          ! ocean vertical physics variables
[2027]12
[2104]13   USE daymod           ! calendar                         (day     routine)
[2027]14
[5836]15   USE sbc_oce          ! surface boundary condition: ocean
[2104]16   USE sbcmod           ! surface boundary condition       (sbc     routine)
17   USE sbcrnf           ! surface boundary condition: runoff variables
18   USE sbccpl           ! surface boundary condition: coupled formulation (call send at end of step)
[5836]19   USE sbcapr           ! surface boundary condition: atmospheric pressure
[3294]20   USE sbctide          ! Tide initialisation
[7350]21   USE sbcwave          ! Wave intialisation
[2027]22
[2104]23   USE traqsr           ! solar radiation penetration      (tra_qsr routine)
24   USE trasbc           ! surface boundary condition       (tra_sbc routine)
25   USE trabbc           ! bottom boundary condition        (tra_bbc routine)
26   USE trabbl           ! bottom boundary layer            (tra_bbl routine)
27   USE tradmp           ! internal damping                 (tra_dmp routine)
28   USE traadv           ! advection scheme control     (tra_adv_ctl routine)
29   USE traldf           ! lateral mixing                   (tra_ldf routine)
30   USE trazdf           ! vertical mixing                  (tra_zdf routine)
31   USE tranxt           ! time-stepping                    (tra_nxt routine)
32   USE tranpc           ! non-penetrative convection       (tra_npc routine)
[2027]33
[2104]34   USE eosbn2           ! equation of state                (eos_bn2 routine)
[2027]35
[5836]36   USE divhor           ! horizontal divergence            (div_hor routine)
[2104]37   USE dynadv           ! advection                        (dyn_adv routine)
38   USE dynbfr           ! Bottom friction terms            (dyn_bfr routine)
39   USE dynvor           ! vorticity term                   (dyn_vor routine)
40   USE dynhpg           ! hydrostatic pressure grad.       (dyn_hpg routine)
41   USE dynldf           ! lateral momentum diffusion       (dyn_ldf routine)
42   USE dynzdf           ! vertical diffusion               (dyn_zdf routine)
43   USE dynspg           ! surface pressure gradient        (dyn_spg routine)
[3294]44
[2104]45   USE dynnxt           ! time-stepping                    (dyn_nxt routine)
[2027]46
[5329]47   USE stopar           ! Stochastic parametrization       (sto_par routine)
48   USE stopts 
49
[3294]50   USE bdy_par          ! for lk_bdy
[3651]51   USE bdy_oce          ! for dmp logical
[3294]52   USE bdydta           ! open boundary condition data     (bdy_dta routine)
[3651]53   USE bdytra           ! bdy cond. for tracers            (bdy_tra routine)
54   USE bdydyn3d         ! bdy cond. for baroclinic vel.  (bdy_dyn3d routine)
[2027]55
[4292]56   USE sshwzv           ! vertical velocity and ssh        (ssh_nxt routine)
57   !                                                       (ssh_swp routine)
58   !                                                       (wzv     routine)
59   USE domvvl           ! variable vertical scale factors  (dom_vvl_sf_nxt routine)
60   !                                                       (dom_vvl_sf_swp routine)
[2027]61
[2104]62   USE ldfslp           ! iso-neutral slopes               (ldf_slp routine)
[5836]63   USE ldfdyn           ! lateral eddy viscosity coef.     (ldf_dyn routine)
64   USE ldftra           ! lateral eddy diffusive coef.     (ldf_tra routine)
[2027]65
[2104]66   USE zdftmx           ! tide-induced vertical mixing     (zdf_tmx routine)
67   USE zdfbfr           ! bottom friction                  (zdf_bfr routine)
68   USE zdftke           ! TKE vertical mixing              (zdf_tke routine)
[2329]69   USE zdfgls           ! GLS vertical mixing              (zdf_gls routine)
[2104]70   USE zdfddm           ! double diffusion mixing          (zdf_ddm routine)
71   USE zdfevd           ! enhanced vertical diffusion      (zdf_evd routine)
72   USE zdfric           ! Richardson vertical mixing       (zdf_ric routine)
73   USE zdfmxl           ! Mixed-layer depth                (zdf_mxl routine)
[7350]74   USE zdfqiao          !Qiao module wave induced mixing   (zdf_qiao routine)
[2027]75
[7351]76   USE step_diu        ! Time stepping for diurnal sst
77   USE diurnal_bulk    ! diurnal SST bulk routines  (diurnal_sst_takaya routine)
78   USE cool_skin       ! diurnal cool skin correction (diurnal_sst_coolskin routine)   
79   USE sbc_oce         ! surface fluxes 
80   
[2104]81   USE zpshde           ! partial step: hor. derivative     (zps_hde routine)
[2027]82
[2104]83   USE diawri           ! Standard run outputs             (dia_wri routine)
84   USE diaptr           ! poleward transports              (dia_ptr routine)
[3294]85   USE diadct           ! sections transports              (dia_dct routine)
[2104]86   USE diaar5           ! AR5 diagnosics                   (dia_ar5 routine)
87   USE diahth           ! thermocline depth                (dia_hth routine)
88   USE diafwb           ! freshwater budget                (dia_fwb routine)
[2148]89   USE diahsb           ! heat, salt and volume budgets    (dia_hsb routine)
[3294]90   USE diaharm
[7351]91   USE diacfl
[2104]92   USE flo_oce          ! floats variables
93   USE floats           ! floats computation               (flo_stp routine)
[2027]94
[4152]95   USE crsfld           ! Standard output on coarse grid   (crs_fld routine)
96
[3294]97   USE asminc           ! assimilation increments      (tra_asm_inc routine)
98   !                                                   (dyn_asm_inc routine)
[3764]99   USE asmbkg
[2104]100   USE stpctl           ! time stepping control            (stp_ctl routine)
[5836]101   USE restart          ! ocean restart                    (rst_wri routine)
[2104]102   USE prtctl           ! Print control                    (prt_ctl routine)
[2027]103
[2239]104   USE diaobs           ! Observation operator
105
[5836]106   USE in_out_manager   ! I/O manager
107   USE iom              !
108   USE lbclnk
[3764]109   USE timing           ! Timing
[3294]110
[5836]111#if defined key_iomput
112   USE xios
113#endif
[2027]114#if defined key_agrif
115   USE agrif_opa_sponge ! Momemtum and tracers sponges
[5656]116   USE agrif_opa_update ! Update (2-way nesting)
[2027]117#endif
[3769]118#if defined key_top
119   USE trcstp           ! passive tracer time-stepping      (trc_stp routine)
120#endif
[2382]121   !!----------------------------------------------------------------------
[5836]122   !! NEMO/OPA 3.7 , NEMO Consortium (2014)
[2382]123   !! $Id$
124   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
[2027]125   !!======================================================================
126END MODULE step_oce
Note: See TracBrowser for help on using the repository browser.