- Timestamp:
- 2015-11-30T11:47:24+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r5947 r5948 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 sbc _oce ! surface boundary condition: ocean19 USE sbcapr ! surface boundary condition: atmospheric pressure 28 20 USE sbctide ! Tide initialisation 29 USE sbcapr ! surface boundary condition: ssh_ib required by bdydta30 21 31 22 USE traqsr ! solar radiation penetration (tra_qsr routine) … … 36 27 USE traadv ! advection scheme control (tra_adv_ctl routine) 37 28 USE traldf ! lateral mixing (tra_ldf routine) 38 ! zdfkpp ! KPP non-local tracer fluxes (tra_kpp routine)39 29 USE trazdf ! vertical mixing (tra_zdf routine) 40 30 USE tranxt ! time-stepping (tra_nxt routine) … … 43 33 USE eosbn2 ! equation of state (eos_bn2 routine) 44 34 35 USE divhor ! horizontal divergence (div_hor routine) 45 36 USE dynadv ! advection (dyn_adv routine) 46 37 USE dynbfr ! Bottom friction terms (dyn_bfr routine) … … 49 40 USE dynldf ! lateral momentum diffusion (dyn_ldf routine) 50 41 USE dynzdf ! vertical diffusion (dyn_zdf routine) 51 USE dynspg_oce ! surface pressure gradient (dyn_spg routine)52 42 USE dynspg ! surface pressure gradient (dyn_spg routine) 53 USE dynnept ! simp. form of Neptune effect(dyn_nept_cor routine)54 43 55 44 USE dynnxt ! time-stepping (dyn_nxt routine) … … 71 60 72 61 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) 76 64 77 65 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) … … 79 67 USE zdftke ! TKE vertical mixing (zdf_tke routine) 80 68 USE zdfgls ! GLS vertical mixing (zdf_gls routine) 81 USE zdfkpp ! KPP vertical mixing (zdf_kpp routine)82 69 USE zdfddm ! double diffusion mixing (zdf_ddm routine) 83 70 USE zdfevd ! enhanced vertical diffusion (zdf_evd routine) … … 105 92 USE asmbkg 106 93 USE stpctl ! time stepping control (stp_ctl routine) 94 USE restart ! ocean restart (rst_wri routine) 107 95 USE prtctl ! Print control (prt_ctl routine) 108 96 109 97 USE diaobs ! Observation operator 110 98 99 USE in_out_manager ! I/O manager 100 USE iom ! 101 USE lbclnk 111 102 USE timing ! Timing 112 103 104 #if defined key_iomput 105 USE xios 106 #endif 113 107 #if defined key_agrif 114 108 USE agrif_opa_sponge ! Momemtum and tracers sponges 109 USE agrif_opa_update ! Update (2-way nesting) 115 110 #endif 116 111 #if defined key_top … … 118 113 #endif 119 114 !!---------------------------------------------------------------------- 120 !! NEMO/OPA 3. 3 , NEMO Consortium (2010)115 !! NEMO/OPA 3.7 , NEMO Consortium (2014) 121 116 !! $Id$ 122 117 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt)
Note: See TracChangeset
for help on using the changeset viewer.