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/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC – NEMO

source: branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/step_oce.F90 @ 2082

Last change on this file since 2082 was 2082, checked in by cetlod, 14 years ago

Improve the merge of TRA-TRC, see ticket #717

File size: 5.8 KB
Line 
1MODULE step_oce
2   !!======================================================================
3   !!                       ***  MODULE step_oce  ***
4   !! Time-stepping    : manager of the ocean, tracer and ice time stepping
5   !!----------------------------------------------------------------------
6   USE oce             ! ocean dynamics and tracers variables
7   USE dom_oce         ! ocean space and time domain variables
8   USE zdf_oce         ! ocean vertical physics variables
9   USE ldftra_oce      ! ocean tracer   - trends
10   USE ldfdyn_oce      ! ocean dynamics - trends
11   USE in_out_manager  ! I/O manager
12   USE iom             !
13   USE lbclnk
14
15   USE daymod          ! calendar                         (day     routine)
16
17   USE dtatem          ! ocean temperature data           (dta_tem routine)
18   USE dtasal          ! ocean salinity    data           (dta_sal routine)
19   USE sbcmod          ! surface boundary condition       (sbc     routine)
20   USE sbcrnf          ! surface boundary condition: runoff variables
21   USE sbccpl          ! surface boundary condition: coupled formulation (call send at end of step)
22   USE cpl_oasis3, ONLY : lk_cpl
23
24#if defined key_top
25   USE trcstp          ! passive tracer time-stepping      (trc_stp routine)
26#endif
27
28   USE traqsr          ! solar radiation penetration      (tra_qsr routine)
29   USE trasbc          ! surface boundary condition       (tra_sbc routine)
30   USE trabbc          ! bottom boundary condition        (tra_bbc routine)
31   USE trabbl          ! bottom boundary layer            (tra_bbl routine)
32   USE tradmp          ! internal damping                 (tra_dmp routine)
33   USE traadv          ! advection scheme control     (tra_adv_ctl routine)
34   USE traldf          ! lateral mixing                   (tra_ldf routine)
35   USE cla             ! cross land advection             (tra_cla routine)
36   !   zdfkpp          ! KPP non-local tracer fluxes      (tra_kpp routine)
37   USE trazdf          ! vertical mixing                  (tra_zdf routine)
38   USE tranxt          ! time-stepping                    (tra_nxt routine)
39   USE tranpc          ! non-penetrative convection       (tra_npc routine)
40
41   USE eosbn2          ! equation of state                (eos_bn2 routine)
42
43   USE dynadv          ! advection                        (dyn_adv routine)
44   USE dynbfr          ! Bottom friction terms            (dyn_bfr routine)
45   USE dynvor          ! vorticity term                   (dyn_vor routine)
46   USE dynhpg          ! hydrostatic pressure grad.       (dyn_hpg routine)
47   USE dynldf          ! lateral momentum diffusion       (dyn_ldf routine)
48   USE dynzdf          ! vertical diffusion               (dyn_zdf routine)
49   USE dynspg_oce      ! surface pressure gradient        (dyn_spg routine)
50   USE dynspg          ! surface pressure gradient        (dyn_spg routine)
51   USE dynnxt          ! time-stepping                    (dyn_nxt routine)
52
53   USE obc_par         ! open boundary condition variables
54   USE obcdta          ! open boundary condition data     (obc_dta routine)
55   USE obcrst          ! open boundary cond. restart      (obc_rst routine)
56   USE obcrad          ! open boundary cond. radiation    (obc_rad routine)
57
58   USE bdy_par         ! unstructured open boundary data variables
59   USE bdydta          ! unstructured open boundary data  (bdy_dta routine)
60
61   USE sshwzv          ! vertical velocity and ssh        (ssh_wzv routine)
62
63   USE ldfslp          ! iso-neutral slopes               (ldf_slp routine)
64   USE ldfeiv          ! eddy induced velocity coef.      (ldf_eiv routine)
65
66   USE zdftmx          ! tide-induced vertical mixing     (zdf_tmx routine)
67   USE zdfbfr          ! bottom friction                  (zdf_bfr routine)
68   USE zdftke_old      ! old TKE vertical mixing      (zdf_tke_old routine)
69   USE zdftke          ! TKE vertical mixing              (zdf_tke routine)
70   USE zdfkpp          ! KPP vertical mixing              (zdf_kpp routine)
71   USE zdfddm          ! double diffusion mixing          (zdf_ddm routine)
72   USE zdfevd          ! enhanced vertical diffusion      (zdf_evd routine)
73   USE zdfric          ! Richardson vertical mixing       (zdf_ric routine)
74   USE zdfmxl          ! Mixed-layer depth                (zdf_mxl routine)
75
76   USE zpshde          ! partial step: hor. derivative     (zps_hde routine)
77
78   USE diawri          ! Standard run outputs             (dia_wri routine)
79   USE trdicp          ! Ocean momentum/tracers trends    (trd_wri routine)
80   USE trdmld          ! mixed-layer trends               (trd_mld routine)
81   USE trdmld_rst      ! restart for mixed-layer trends
82   USE trdmod_oce      ! ocean momentum/tracers trends
83   USE trdmod          ! momentum/tracers trends   
84   USE trdvor          ! vorticity budget                 (trd_vor routine)
85   USE diagap          ! hor. mean model-data gap         (dia_gap routine)
86   USE diahdy          ! dynamic height                   (dia_hdy routine)
87   USE diaptr          ! poleward transports              (dia_ptr routine)
88   USE diaar5          ! AR5 diagnosics                   (dia_ar5 routine)
89   USE diahth          ! thermocline depth                (dia_hth routine)
90   USE diafwb          ! freshwater budget                (dia_fwb routine)
91   USE flo_oce         ! floats variables
92   USE floats          ! floats computation               (flo_stp routine)
93
94   USE stpctl          ! time stepping control            (stp_ctl routine)
95   USE restart         ! ocean restart                    (rst_wri routine)
96   USE prtctl          ! Print control                    (prt_ctl routine)
97
98   USE traswp          ! Swap arrays                      (tra_swp routine)
99                       !                                (tra_unswp routine)
100
101#if defined key_agrif
102   USE agrif_opa_sponge ! Momemtum and tracers sponges
103#endif
104
105   !!======================================================================
106END MODULE step_oce
Note: See TracBrowser for help on using the repository browser.