Changeset 109 for trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90
- Timestamp:
- 2004-06-28T12:21:11+02:00 (20 years ago)
- File:
-
- 1 edited
-
trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90 (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90
r78 r109 520 520 ua(ji,jj,jk) = ua(ji,jj,jk) - spgu(ji,jj) 521 521 va(ji,jj,jk) = va(ji,jj,jk) - spgv(ji,jj) 522 # if defined key_trddyn 522 # if defined key_trddyn || defined key_trd_vor 523 523 ! save the surface pressure gradient trend for diagnostics 524 524 utrd(ji,jj,jk,8) = -spgu(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.
