- Timestamp:
- 2017-06-06T15:55:44+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r7881_HPC09_ZDF/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r7990 r8143 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 zdfphy ! vertical physics manager (zdf_phy_init routine)66 USE zdfphy ! vertical physics manager (zdf_phy_init routine) 66 67 67 68 USE step_diu ! Time stepping for diurnal sst … … 70 71 USE sbc_oce ! surface fluxes 71 72 72 USE zpshde 73 USE zpshde ! partial step: hor. derivative (zps_hde routine) 73 74 74 USE diawri 75 USE diaptr 76 USE diadct 77 USE diaar5 78 USE diahth 79 USE diahsb 75 USE diawri ! Standard run outputs (dia_wri routine) 76 USE diaptr ! poleward transports (dia_ptr routine) 77 USE diadct ! sections transports (dia_dct routine) 78 USE diaar5 ! AR5 diagnosics (dia_ar5 routine) 79 USE diahth ! thermocline depth (dia_hth routine) 80 USE diahsb ! heat, salt and volume budgets (dia_hsb routine) 80 81 USE diaharm 81 82 USE diacfl 82 USE flo_oce 83 USE floats 83 USE flo_oce ! floats variables 84 USE floats ! floats computation (flo_stp routine) 84 85 85 USE crsfld 86 USE crsfld ! Standard output on coarse grid (crs_fld routine) 86 87 87 USE asminc 88 USE asminc ! assimilation increments (tra_asm_inc routine) 88 89 ! (dyn_asm_inc routine) 89 90 USE asmbkg 90 USE stpctl 91 USE restart 92 USE prtctl 91 USE stpctl ! time stepping control (stp_ctl routine) 92 USE restart ! ocean restart (rst_wri routine) 93 USE prtctl ! Print control (prt_ctl routine) 93 94 94 USE diaobs 95 USE diaobs ! Observation operator 95 96 96 USE in_out_manager 97 USE iom 97 USE in_out_manager ! I/O manager 98 USE iom ! 98 99 USE lbclnk 99 USE timing 100 USE timing ! Timing 100 101 101 102 #if defined key_iomput 102 USE xios 103 USE xios ! I/O server 103 104 #endif 104 105 #if defined key_agrif
Note: See TracChangeset
for help on using the changeset viewer.
