Changeset 44 for vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90
- Timestamp:
- 08/31/12 15:41:37 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
vendor/nemo/current/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg.F90
r4 r44 45 45 !!---------------------------------------------------------------------- 46 46 !! NEMO/OPA 3.2 , LODYC-IPSL (2009) 47 !! $Id: dynspg.F90 3 294 2012-01-28 16:44:18Z rblod$47 !! $Id: dynspg.F90 3322 2012-03-06 16:44:02Z rfurner $ 48 48 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 49 49 !!---------------------------------------------------------------------- … … 106 106 & + ssh_ibb(ji+1,jj) - ssh_ibb(ji,jj) ) /e1u(ji,jj) 107 107 spgv(ji,jj) = zg_2 * ( ssh_ib (ji,jj+1) - ssh_ib (ji,jj) & 108 & + ssh_ibb(ji,jj+1) - ssh_ib 108 & + ssh_ibb(ji,jj+1) - ssh_ibb(ji,jj) ) /e2v(ji,jj) 109 109 END DO 110 110 END DO
Note: See TracChangeset
for help on using the changeset viewer.