Changeset 4491 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2014-02-06T17:47:57+01:00 (10 years ago)

Author:

jchanut

Message:

Missing Asselin correction with Agrif, #1203

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (1 diff)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -79 +79 @@
 !      IF ( Agrif_Root() .and. lwp) Write(*,*) '---'
 !      IF (lwp) Write(*,*) 'Grid Number',Agrif_Fixed(),' time step ',kstp
+      IF ( kstp == (nit000 + 1) ) lk_agrif_fstep = .FALSE.
 # if defined key_iomput
       IF( Agrif_Nbstepint() == 0 )   CALL iom_swap( "nemo" )