New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2005 for branches/DEV_r1837_MLF/NEMO/OPA_SRC/oce.F90 – NEMO

Ignore:
Timestamp:
2010-07-09T15:07:02+02:00 (14 years ago)
Author:
mlelod
Message:

ticket: #663 MLF: second part (local compatibility essentially)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r1837_MLF/NEMO/OPA_SRC/oce.F90

    r1601 r2005  
    4747   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshu_b ,  sshu_n  ,  sshu_a  !: sea surface height at u-point [m] 
    4848   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshv_b ,  sshv_n  ,  sshv_a  !: sea surface height at u-point [m] 
    49    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshf_b ,  sshf_n  ,  sshf_a  !: sea surface height at f-point [m] 
     49   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::             sshf_n             !: sea surface height at f-point [m] 
    5050 
    5151   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.