Changeset 177 for trunk/NEMO/OPA_SRC/restart.F90

Timestamp:

2004-11-05T15:01:20+01:00 (19 years ago)

Author:

opalod

Message:

CT : BUGFIX122 : improve restart case when changing the time steps between 2 simulations

File:

• trunk/NEMO/OPA_SRC/restart.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/restart.F90

@@ -426 +426 @@
       
       CALL restclo( inum )
+  ! In case of restart with neuler = 0 then put all before fields = to now fields
+    IF ( neuler == 0 ) THEN
+      tb(:,:,:)=tn(:,:,:)
+      sb(:,:,:)=sn(:,:,:)
+      ub(:,:,:)=un(:,:,:)
+      vb(:,:,:)=vn(:,:,:)
+      rotb(:,:,:)=rotn(:,:,:)
+      hdivb(:,:,:)=hdivn(:,:,:)
+#if defined key_dynspg_fsc
+    ! free surface formulation (eta)
+      sshb(:,:)=sshn(:,:)
+#else
+    ! rigid lid
+      bsfb(:,:)=bsfn(:,:)
+#endif
+    ENDIF
 
    END SUBROUTINE rst_read