- Timestamp:
- 2017-12-13T15:58:53+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r7646 r9019 7 7 !! 3.7 ! 2014-01 (G. Madec) LDF simplication 8 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 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 USE zdfdrg , ONLY : ln_drgimp ! implicit top/bottom friction 12 13 13 USE daymod 14 USE daymod ! calendar (day routine) 14 15 15 USE sbc_oce 16 USE sbcmod 17 USE sbcrnf 18 USE sbccpl 19 USE sbcapr 20 USE sbctide 21 USE sbcwave 16 USE sbc_oce ! surface boundary condition: ocean 17 USE sbcmod ! surface boundary condition (sbc routine) 18 USE sbcrnf ! surface boundary condition: runoff variables 19 USE sbccpl ! surface boundary condition: coupled formulation (call send at end of step) 20 USE sbcapr ! surface boundary condition: atmospheric pressure 21 USE sbctide ! Tide initialisation 22 USE sbcwave ! Wave intialisation 22 23 23 USE traqsr 24 USE trasbc 25 USE trabbc 26 USE trabbl 27 USE tradmp 28 USE traadv 29 USE traldf 30 USE trazdf 31 USE tranxt 32 USE tranpc 24 USE traqsr ! solar radiation penetration (tra_qsr routine) 25 USE trasbc ! surface boundary condition (tra_sbc routine) 26 USE trabbc ! bottom boundary condition (tra_bbc routine) 27 USE trabbl ! bottom boundary layer (tra_bbl routine) 28 USE tradmp ! internal damping (tra_dmp routine) 29 USE traadv ! advection scheme control (tra_adv_ctl routine) 30 USE traldf ! lateral mixing (tra_ldf routine) 31 USE trazdf ! vertical mixing (tra_zdf routine) 32 USE tranxt ! time-stepping (tra_nxt routine) 33 USE tranpc ! non-penetrative convection (tra_npc routine) 33 34 34 USE eosbn2 35 USE eosbn2 ! equation of state (eos_bn2 routine) 35 36 36 USE divhor 37 USE dynadv 38 USE dynbfr 39 USE dynvor 40 USE dynhpg 41 USE dynldf 42 USE dynzdf 43 USE dynspg 37 USE divhor ! horizontal divergence (div_hor routine) 38 USE dynadv ! advection (dyn_adv routine) 39 USE dynbfr ! Bottom friction terms (dyn_bfr routine) 40 USE dynvor ! vorticity term (dyn_vor routine) 41 USE dynhpg ! hydrostatic pressure grad. (dyn_hpg routine) 42 USE dynldf ! lateral momentum diffusion (dyn_ldf routine) 43 USE dynzdf ! vertical diffusion (dyn_zdf routine) 44 USE dynspg ! surface pressure gradient (dyn_spg routine) 44 45 45 USE dynnxt 46 USE dynnxt ! time-stepping (dyn_nxt routine) 46 47 47 USE stopar 48 USE stopar ! Stochastic parametrization (sto_par routine) 48 49 USE stopts 49 50 50 USE bdy_oce , ONLY: ln_bdy51 USE bdydta 52 USE bdytra 53 USE bdydyn3d 51 USE bdy_oce , ONLY : ln_bdy 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) 54 55 55 USE sshwzv 56 USE sshwzv ! vertical velocity and ssh (ssh_nxt routine) 56 57 ! (ssh_swp routine) 57 58 ! (wzv routine) 58 USE domvvl 59 USE domvvl ! variable vertical scale factors (dom_vvl_sf_nxt routine) 59 60 ! (dom_vvl_sf_swp routine) 60 61 61 USE ldfslp 62 USE ldfdyn 63 USE ldftra 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) 64 65 65 USE zdftmx ! tide-induced vertical mixing (zdf_tmx routine) 66 USE zdfbfr ! bottom friction (zdf_bfr routine) 67 USE zdftke ! TKE vertical mixing (zdf_tke routine) 68 USE zdfgls ! GLS vertical mixing (zdf_gls routine) 69 USE zdfddm ! double diffusion mixing (zdf_ddm routine) 70 USE zdfevd ! enhanced vertical diffusion (zdf_evd routine) 71 USE zdfric ! Richardson vertical mixing (zdf_ric routine) 72 USE zdfmxl ! Mixed-layer depth (zdf_mxl routine) 73 USE zdfqiao !Qiao module wave induced mixing (zdf_qiao routine) 66 USE zdfphy ! vertical physics manager (zdf_phy_init routine) 67 USE zdfosm , ONLY : osm_rst, dyn_osm, tra_osm ! OSMOSIS routines used in step.F90 74 68 75 69 USE step_diu ! Time stepping for diurnal sst … … 78 72 USE sbc_oce ! surface fluxes 79 73 80 USE zpshde 74 USE zpshde ! partial step: hor. derivative (zps_hde routine) 81 75 82 USE diawri 83 USE diaptr 84 USE diadct 85 USE diaar5 86 USE diahth 87 USE diahsb 76 USE diawri ! Standard run outputs (dia_wri routine) 77 USE diaptr ! poleward transports (dia_ptr routine) 78 USE diadct ! sections transports (dia_dct routine) 79 USE diaar5 ! AR5 diagnosics (dia_ar5 routine) 80 USE diahth ! thermocline depth (dia_hth routine) 81 USE diahsb ! heat, salt and volume budgets (dia_hsb routine) 88 82 USE diaharm 89 83 USE diacfl 90 USE flo_oce 91 USE floats 84 USE flo_oce ! floats variables 85 USE floats ! floats computation (flo_stp routine) 92 86 93 USE crsfld 87 USE crsfld ! Standard output on coarse grid (crs_fld routine) 94 88 95 USE asminc 89 USE asminc ! assimilation increments (tra_asm_inc routine) 96 90 ! (dyn_asm_inc routine) 97 91 USE asmbkg 98 USE stpctl 99 USE restart 100 USE prtctl 92 USE stpctl ! time stepping control (stp_ctl routine) 93 USE restart ! ocean restart (rst_wri routine) 94 USE prtctl ! Print control (prt_ctl routine) 101 95 102 USE diaobs 96 USE diaobs ! Observation operator 103 97 104 USE in_out_manager 105 USE iom 98 USE in_out_manager ! I/O manager 99 USE iom ! 106 100 USE lbclnk 107 USE timing 101 USE timing ! Timing 108 102 109 103 #if defined key_iomput 110 USE xios 104 USE xios ! I/O server 111 105 #endif 112 106 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.