Changeset 12468 for NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/src/OCE/DYN/dynspg_ts.F90
- Timestamp:
- 2020-02-26T11:02:35+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/KERNEL-03_Storkey_Coward_RK3_stage2/src/OCE/DYN/dynspg_ts.F90
r12443 r12468 552 552 ! 553 553 ! ! Surface pressure gradient 554 zldg = ( 1._wp - rn_ load ) * grav ! local factor554 zldg = ( 1._wp - rn_scal_load ) * grav ! local factor 555 555 DO_2D_00_00 556 556 zu_spg(ji,jj) = - zldg * ( zsshp2_e(ji+1,jj) - zsshp2_e(ji,jj) ) * r1_e1u(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.