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/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/OPA_SRC – NEMO

source: branches/2015/dev_r5803_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/step_oce.F90 @ 5870

Last change on this file since 5870 was 5870, checked in by acc, 8 years ago

Branch 2015/dev_r5803_NOC_WAD. Merge in trunk changes from 5803 to 5869 in preparation for merge. Also tidied and reorganised some wetting and drying code. Renamed wadlmt.F90 to wetdry.F90. Wetting drying code changes restricted to domzgr.F90, domvvl.F90 nemogcm.F90 sshwzv.F90, dynspg_ts.F90, wetdry.F90 and dynhpg.F90. Code passes full SETTE tests with ln_wd=.false.. Still awaiting test case for checking with ln_wd=.false.

  • Property svn:keywords set to Id
File size: 6.3 KB
Line 
1MODULE step_oce
2   !!======================================================================
3   !!                       ***  MODULE step_oce  ***
4   !! Ocean time-stepping : module used in both initialisation phase and time stepping
5   !!======================================================================
6   !! History :   3.3  !  2010-08  (C. Ethe)  Original code - reorganisation of the initial phase
7   !!             3.7  !  2014-01  (G. Madec) LDF simplication
8   !!----------------------------------------------------------------------
9   USE oce              ! ocean dynamics and tracers variables
10   USE dom_oce          ! ocean space and time domain variables
11   USE zdf_oce          ! ocean vertical physics variables
12
13   USE daymod           ! calendar                         (day     routine)
14
15   USE sbc_oce          ! surface boundary condition: ocean
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)
19   USE sbcapr           ! surface boundary condition: atmospheric pressure
20   USE sbctide          ! Tide initialisation
21
22   USE traqsr           ! solar radiation penetration      (tra_qsr routine)
23   USE trasbc           ! surface boundary condition       (tra_sbc routine)
24   USE trabbc           ! bottom boundary condition        (tra_bbc routine)
25   USE trabbl           ! bottom boundary layer            (tra_bbl routine)
26   USE tradmp           ! internal damping                 (tra_dmp routine)
27   USE traadv           ! advection scheme control     (tra_adv_ctl routine)
28   USE traldf           ! lateral mixing                   (tra_ldf routine)
29   USE trazdf           ! vertical mixing                  (tra_zdf routine)
30   USE tranxt           ! time-stepping                    (tra_nxt routine)
31   USE tranpc           ! non-penetrative convection       (tra_npc routine)
32
33   USE eosbn2           ! equation of state                (eos_bn2 routine)
34
35   USE divhor           ! horizontal divergence            (div_hor routine)
36   USE dynadv           ! advection                        (dyn_adv routine)
37   USE dynbfr           ! Bottom friction terms            (dyn_bfr routine)
38   USE dynvor           ! vorticity term                   (dyn_vor routine)
39   USE dynhpg           ! hydrostatic pressure grad.       (dyn_hpg routine)
40   USE dynldf           ! lateral momentum diffusion       (dyn_ldf routine)
41   USE dynzdf           ! vertical diffusion               (dyn_zdf routine)
42   USE dynspg_oce       ! surface pressure gradient        (dyn_spg routine)
43   USE dynspg           ! surface pressure gradient        (dyn_spg routine)
44
45   USE dynnxt           ! time-stepping                    (dyn_nxt routine)
46
47   USE stopar           ! Stochastic parametrization       (sto_par routine)
48   USE stopts 
49
50   USE bdy_par          ! for lk_bdy
51   USE bdy_oce          ! for dmp logical
52   USE bdydta           ! open boundary condition data     (bdy_dta routine)
53   USE bdytra           ! bdy cond. for tracers            (bdy_tra routine)
54   USE bdydyn3d         ! bdy cond. for baroclinic vel.  (bdy_dyn3d routine)
55
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)
61
62   USE ldfslp           ! iso-neutral slopes               (ldf_slp routine)
63   USE ldfdyn           ! lateral eddy viscosity coef.     (ldf_dyn routine)
64   USE ldftra           ! lateral eddy diffusive coef.     (ldf_tra routine)
65
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)
69   USE zdfgls           ! GLS vertical mixing              (zdf_gls routine)
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)
74
75   USE zpshde           ! partial step: hor. derivative     (zps_hde routine)
76
77   USE diawri           ! Standard run outputs             (dia_wri routine)
78   USE diaptr           ! poleward transports              (dia_ptr routine)
79   USE diadct           ! sections transports              (dia_dct routine)
80   USE diaar5           ! AR5 diagnosics                   (dia_ar5 routine)
81   USE diahth           ! thermocline depth                (dia_hth routine)
82   USE diafwb           ! freshwater budget                (dia_fwb routine)
83   USE diahsb           ! heat, salt and volume budgets    (dia_hsb routine)
84   USE diaharm
85   USE flo_oce          ! floats variables
86   USE floats           ! floats computation               (flo_stp routine)
87
88   USE crsfld           ! Standard output on coarse grid   (crs_fld routine)
89
90   USE asminc           ! assimilation increments      (tra_asm_inc routine)
91   !                                                   (dyn_asm_inc routine)
92   USE asmbkg
93   USE stpctl           ! time stepping control            (stp_ctl routine)
94   USE restart          ! ocean restart                    (rst_wri routine)
95   USE prtctl           ! Print control                    (prt_ctl routine)
96
97   USE diaobs           ! Observation operator
98
99   USE in_out_manager   ! I/O manager
100   USE iom              !
101   USE lbclnk
102   USE timing           ! Timing
103
104#if defined key_iomput
105   USE xios
106#endif
107#if defined key_agrif
108   USE agrif_opa_sponge ! Momemtum and tracers sponges
109   USE agrif_opa_update ! Update (2-way nesting)
110#endif
111#if defined key_top
112   USE trcstp           ! passive tracer time-stepping      (trc_stp routine)
113#endif
114   !!----------------------------------------------------------------------
115   !! NEMO/OPA 3.7 , NEMO Consortium (2014)
116   !! $Id$
117   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
118   !!======================================================================
119END MODULE step_oce
Note: See TracBrowser for help on using the repository browser.