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 2292 for branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/OBC/obcfla.F90 – NEMO

Ignore:
Timestamp:
2010-10-19T12:15:40+02:00 (13 years ago)
Author:
smasson
Message:

update DEV_r1879_FCM for additional tests...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/OBC/obcfla.F90

    r2097 r2292  
    8787               &            - sshfoe(jj) )  ) * uemsk(jj,1) 
    8888         END DO 
    89       END DO 
    90       DO ji = nie0p1, nie1p1 
    9189         DO jj = 1, jpj 
    9290            sshfoe_b(ji,jj) = sshfoe_b(ji,jj) + sqrt( grav*hur(ji,jj) )     & 
     
    156154               &                - sshfon(ji) ) ) * vnmsk(ji,1) 
    157155         END DO 
    158       END DO 
    159       DO jj = njn0p1, njn1p1 
    160156         DO ji = 1, jpi 
    161157            sshfon_b(ji,jj) = sshfon_b(ji,jj) + sqrt( grav * hvr(ji,jj) )  & 
Note: See TracChangeset for help on using the changeset viewer.