Changeset 4700


Ignore:
Timestamp:
2014-07-02T15:10:48+02:00 (6 years ago)
Author:
cbricaud
Message:

fix for ticket 1353

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r4697 r4700  
    455455      !                                             ! ==================== !   
    456456      ! Initialize barotropic variables:       
     457      IF( kt==nit000 .AND. .NOT. ln_rstart )THEN 
     458         sshbb_e(:,:) = 0._wp 
     459         ubb_e  (:,:) = 0._wp 
     460         vbb_e  (:,:) = 0._wp 
     461         sshb_e (:,:) = 0._wp 
     462         ub_e   (:,:) = 0._wp 
     463         vb_e   (:,:) = 0._wp 
     464      ENDIF 
     465      ! 
    457466      IF (ln_bt_fw) THEN                  ! FORWARD integration: start from NOW fields                     
    458467         sshn_e(:,:) = sshn (:,:)             
     
    11321141      IF ( zcmax>0.9_wp ) THEN 
    11331142         CALL ctl_stop( 'dynspg_ts ERROR: Maximum Courant number is greater than 0.9: Inc. nn_baro !' )           
    1134       ENDIF 
    1135       ! 
    1136       IF( kt==nit000 .AND. .NOT. ln_rstart )THEN 
    1137          sshbb_e(:,:) = 0._wp 
    1138          sshb_e(:,:)  = 0._wp 
    11391143      ENDIF 
    11401144      ! 
Note: See TracChangeset for help on using the changeset viewer.