- Timestamp:
- 2017-04-12T11:48:20+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/GO6_dyn_vrt_diag/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r7845 r7900 409 409 zvap = -zcoef0 * ( rhd (ji,jj+1,1) + rhd (ji,jj,1) + 2._wp * znad ) & 410 410 & * ( fsde3w(ji,jj+1,1) - fsde3w(ji,jj,1) ) / e2v(ji,jj) 411 ! hydrostatic pressure gradient along s-surfaces 411 ! hydrostatic pressure gradient along s-surfaces added to above correction 412 412 zhpi(ji,jj,1) = zuap + zcoef0 / e1u(ji,jj) * ( fse3w(ji+1,jj ,1) * ( znad + rhd(ji+1,jj ,1) ) & 413 413 & - fse3w(ji ,jj ,1) * ( znad + rhd(ji ,jj ,1) ) ) … … 429 429 zvap = -zcoef0 * ( rhd (ji ,jj+1,jk) + rhd (ji,jj,jk) + 2._wp * znad ) & 430 430 & * ( fsde3w(ji ,jj+1,jk) - fsde3w(ji,jj,jk) ) / e2v(ji,jj) 431 ! hydrostatic pressure gradient along s-surfaces withcorrection431 ! hydrostatic pressure gradient along s-surfaces added to above correction 432 432 zhpi(ji,jj,jk) = zuap + zhpi(ji,jj,jk-1) + zcoef0 / e1u(ji,jj) & 433 433 & * ( fse3w(ji+1,jj,jk) * ( rhd(ji+1,jj,jk) + rhd(ji+1,jj,jk-1) + 2*znad ) &
Note: See TracChangeset
for help on using the changeset viewer.