- Timestamp:
- 2016-01-08T10:35:19+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4704_NOC5_MPP_BDY_UPDATE/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r4328 r6225 4 4 !! Ocean time-stepping : module used in both initialisation phase and time stepping 5 5 !!====================================================================== 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 7 8 !!---------------------------------------------------------------------- 8 9 USE oce ! ocean dynamics and tracers variables 9 10 USE dom_oce ! ocean space and time domain variables 10 11 USE zdf_oce ! ocean vertical physics variables 11 USE ldftra_oce ! ocean tracer - trends12 USE ldfdyn_oce ! ocean dynamics - trends13 USE divcur ! hor. divergence and curl (div & cur routines)14 USE in_out_manager ! I/O manager15 USE iom !16 USE lbclnk17 USE restart ! restart18 #if defined key_iomput19 USE xios20 #endif21 12 22 13 USE daymod ! calendar (day routine) 23 14 15 USE sbc_oce ! surface boundary condition: ocean 24 16 USE sbcmod ! surface boundary condition (sbc routine) 25 17 USE sbcrnf ! surface boundary condition: runoff variables 26 18 USE sbccpl ! surface boundary condition: coupled formulation (call send at end of step) 27 USE cpl_oasis3, ONLY : lk_cpl19 USE sbcapr ! surface boundary condition: atmospheric pressure 28 20 USE sbctide ! Tide initialisation 29 21 … … 35 27 USE traadv ! advection scheme control (tra_adv_ctl routine) 36 28 USE traldf ! lateral mixing (tra_ldf routine) 37 ! zdfkpp ! KPP non-local tracer fluxes (tra_kpp routine)38 29 USE trazdf ! vertical mixing (tra_zdf routine) 39 30 USE tranxt ! time-stepping (tra_nxt routine) … … 42 33 USE eosbn2 ! equation of state (eos_bn2 routine) 43 34 35 USE divhor ! horizontal divergence (div_hor routine) 44 36 USE dynadv ! advection (dyn_adv routine) 45 37 USE dynbfr ! Bottom friction terms (dyn_bfr routine) … … 48 40 USE dynldf ! lateral momentum diffusion (dyn_ldf routine) 49 41 USE dynzdf ! vertical diffusion (dyn_zdf routine) 50 USE dynspg_oce ! surface pressure gradient (dyn_spg routine)51 42 USE dynspg ! surface pressure gradient (dyn_spg routine) 52 USE dynnept ! simp. form of Neptune effect(dyn_nept_cor routine)53 43 54 44 USE dynnxt ! time-stepping (dyn_nxt routine) 45 46 USE stopar ! Stochastic parametrization (sto_par routine) 47 USE stopts 55 48 56 49 USE bdy_par ! for lk_bdy … … 67 60 68 61 USE ldfslp ! iso-neutral slopes (ldf_slp routine) 69 USE ldfeiv ! eddy induced velocity coef. (ldf_eiv routine) 70 USE ldftra_smag ! Smagirinsky diffusion (ldftra_smag routine) 71 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) 72 64 73 65 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) … … 75 67 USE zdftke ! TKE vertical mixing (zdf_tke routine) 76 68 USE zdfgls ! GLS vertical mixing (zdf_gls routine) 77 USE zdfkpp ! KPP vertical mixing (zdf_kpp routine)78 69 USE zdfddm ! double diffusion mixing (zdf_ddm routine) 79 70 USE zdfevd ! enhanced vertical diffusion (zdf_evd routine) … … 81 72 USE zdfmxl ! Mixed-layer depth (zdf_mxl routine) 82 73 74 USE step_diu ! Time stepping for diurnal sst 75 USE diurnal_bulk ! diurnal SST bulk routines (diurnal_sst_takaya routine) 76 USE cool_skin ! diurnal cool skin correction (diurnal_sst_coolskin routine) 77 USE sbc_oce ! surface fluxes 78 83 79 USE zpshde ! partial step: hor. derivative (zps_hde routine) 84 80 85 81 USE diawri ! Standard run outputs (dia_wri routine) 86 USE trdicp ! Ocean momentum/tracers trends (trd_wri routine)87 USE trdmld ! mixed-layer trends (trd_mld routine)88 USE trdmld_rst ! restart for mixed-layer trends89 USE trdmod_oce ! ocean momentum/tracers trends90 USE trdmod ! momentum/tracers trends91 USE trdvor ! vorticity budget (trd_vor routine)92 82 USE diaptr ! poleward transports (dia_ptr routine) 93 83 USE diadct ! sections transports (dia_dct routine) … … 97 87 USE diahsb ! heat, salt and volume budgets (dia_hsb routine) 98 88 USE diaharm 89 USE diacfl 99 90 USE flo_oce ! floats variables 100 91 USE floats ! floats computation (flo_stp routine) … … 106 97 USE asmbkg 107 98 USE stpctl ! time stepping control (stp_ctl routine) 99 USE restart ! ocean restart (rst_wri routine) 108 100 USE prtctl ! Print control (prt_ctl routine) 109 101 110 102 USE diaobs ! Observation operator 111 103 104 USE in_out_manager ! I/O manager 105 USE iom ! 106 USE lbclnk 112 107 USE timing ! Timing 113 108 109 #if defined key_iomput 110 USE xios 111 #endif 114 112 #if defined key_agrif 115 113 USE agrif_opa_sponge ! Momemtum and tracers sponges 114 USE agrif_opa_update ! Update (2-way nesting) 116 115 #endif 117 116 #if defined key_top … … 119 118 #endif 120 119 !!---------------------------------------------------------------------- 121 !! NEMO/OPA 3. 3 , NEMO Consortium (2010)120 !! NEMO/OPA 3.7 , NEMO Consortium (2014) 122 121 !! $Id$ 123 122 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
Note: See TracChangeset
for help on using the changeset viewer.