- 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.F90
r12443 r12468 123 123 ! 124 124 IF (ln_scal_load) THEN 125 zld = rn_ load * grav125 zld = rn_scal_load * grav 126 126 DO_2D_00_00 127 127 spgu(ji,jj) = spgu(ji,jj) + zld * ( pssh(ji+1,jj,Kmm) - pssh(ji,jj,Kmm) ) * r1_e1u(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.