Changes between Version 5 and Version 6 of schwarz_nemo

Timestamp:

07/23/19 15:10:02 (4 years ago)

Author:

snguyen

Comment:

--

schwarz_nemo

@@ -118 +118 @@
 The storing is done just before the schwarz looping is done: inside the `iswloop` loop, before the `kswr` loop.
 {{{
-         DO WHILE ( iswloop <= nsloops .AND. nstop == 0 ) ! iterate on nsloops schwarz loops
-
-         kswr = 1
-         IF (lwp) THEN 
-            WRITE(numout,*) '*** schwarz loops ***'
-            WRITE(numout,*) 'iswloop =',iswloop
-            WRITE(numout,*) 'kswr = ',kswr
-         ENDIF 
-         
          CALL swz_store  ! store Ocean state at first schwarz iteration before first time step
          CALL swz_store_lim3 ! store lim3 variables state
          CALL swz_store_limdiahsb ! store limdiahsb variables
+         IF(lwp) WRITE(numout,*) 'store schwarz initial state '
+
+         DO WHILE ( kswr <= mswr .AND. nstop == 0 )
 }}}