Changeset 9239


Ignore:
Timestamp:
2018-01-15T18:22:41+01:00 (3 years ago)
Author:
gm
Message:

dev_merge_2017: #2002 : sshwzv.F90 same small bug as for dynnxt

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

    r9124 r9239  
    244244      ENDIF 
    245245      !              !==  Euler time-stepping: no filter, just swap  ==! 
    246       IF  ( neuler == 0 .AND. kt == nit000 ) THEN 
    247          sshb(:,:) = sshn(:,:)                              ! before <-- now 
     246      IF ( neuler == 0 .AND. kt == nit000 ) THEN 
    248247         sshn(:,:) = ssha(:,:)                              ! now    <-- after  (before already = now) 
    249248         ! 
Note: See TracChangeset for help on using the changeset viewer.