Changeset 4700

Timestamp:

2014-07-02T15:10:48+02:00 (10 years ago)

Author:

cbricaud

Message:

fix for ticket 1353

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

@@ -455 +455 @@
       !                                             ! ==================== !  
       ! Initialize barotropic variables:      
+      IF( kt==nit000 .AND. .NOT. ln_rstart )THEN
+         sshbb_e(:,:) = 0._wp
+         ubb_e  (:,:) = 0._wp
+         vbb_e  (:,:) = 0._wp
+         sshb_e (:,:) = 0._wp
+         ub_e   (:,:) = 0._wp
+         vb_e   (:,:) = 0._wp
+      ENDIF
+      !
       IF (ln_bt_fw) THEN                  ! FORWARD integration: start from NOW fields                    
          sshn_e(:,:) = sshn (:,:)            
@@ -1132 +1141 @@
       IF ( zcmax>0.9_wp ) THEN
          CALL ctl_stop( 'dynspg_ts ERROR: Maximum Courant number is greater than 0.9: Inc. nn_baro !' )          
-      ENDIF
-      !
-      IF( kt==nit000 .AND. .NOT. ln_rstart )THEN
-         sshbb_e(:,:) = 0._wp
-         sshb_e(:,:)  = 0._wp
       ENDIF
       !