Custom Query (986 matches)
Results (307 - 309 of 986)
Ticket | Owner | Reporter | Resolution | Summary |
---|---|---|---|---|
#404 | Fixed | Wrong angle in radiation_stress | ||
Description |
At line 400 and 976 of radiation_stress.F. Please replace the line cff=1.5_r8*pi-Dwave(i,j)-angler(i,j) by cff=Dwave(i,j)-angler(i,j) The reason is that when the simulation is started the wave spectra is initialized with Jonswap parameterization and thus at the start of the simulation, the plots of wind direction, Dwave and barotropic Stokes drift need to be in about the same direction. Also, please replace scale=rad2deg by scale=1.0_r8 in wrt_his.F for the variables idWptp, idWpbt, idWorb and idWdis. |
|||
#405 | Done | Momentun and tracer equations diagnostic terms revisited | ||
Description |
The time-averaged, diagnostic terms for the momentum (DIAGNOSTICS_UV) and tracer (DIAGNOSTICS_TS) equations were expanded to include components in the ξ- and η-directions for horizontal advection and horizontal viscosity/diffusion.
Implementation notes:
# ifdef DIAGNOSTICS_UV ! ! Indices for 2D momentum diagnostic variables. In some places in ! the code a compact DO-loop (idiag=1:M2pgrd) is used to improve ! flexibility. Therefore, the order of indices is very important. ! Only those fields that require special treatment are set below ! the M2pgrd index. ! ic=0 # if defined UV_COR M2fcor=ic+1 ic=ic+1 # endif # if defined UV_ADV M2hadv=ic+1 M2xadv=ic+2 M2yadv=ic+3 ic=ic+3 # endif # if defined NEARSHORE_MELLOR M2hrad=ic+1 ic=ic+1 # endif # if defined UV_VIS2 || defined UV_VIS4 M2hvis=ic+1 M2xvis=ic+2 M2yvis=ic+3 ic=ic+3 # endif M2pgrd=ic+1 M2sstr=ic+2 ! These indices need to be M2bstr=ic+3 ! specified last to allow a M2rate=NDM2d ! compact DO-loop structure # ifdef SOLVE3D ! ! Indices for 3D momentum diagnostic variables. In some places in ! the code a compact DO-loop (idiag=1:M3pgrd) is used to improve ! flexibility. Therefore, the order of indices is very important. ! Only those fields that require special treatment are set below ! the M3pgrd index. ! ic=0 # if defined UV_COR M3fcor=ic+1 ic=ic+1 # endif # if defined UV_ADV M3vadv=ic+1 M3hadv=ic+2 M3xadv=ic+3 M3yadv=ic+4 ic=ic+4 # endif # if defined NEARSHORE_MELLOR M3hrad=ic+1 M3vrad=ic+2 ic=ic+2 # endif M3pgrd=ic+1 ! needs to be here, indices below M3vvis=ic+2 ! require special treatment # if defined UV_VIS2 || defined UV_VIS4 M3hvis=ic+3 M3xvis=ic+4 M3yvis=ic+5 # endif M3rate=NDM3d # endif # endif
|
|||
#406 | Fixed | radiation_stress.F angle incorrecly adjusted !!!!! | ||
Description |
Ticket 404 (src:ticket:404) incorrectly modified the wave angle in radiation_stress.F. The angle in radiation_stress.F needs to be changed back to the correct form that I have used for the past 5 years: cff=1.5_r8*pi-Dwave(i,j)-angler(i,j) |