Changes between Version 4 and Version 5 of schwarz_nemo


Ignore:
Timestamp:
07/23/19 15:09:02 (2 years ago)
Author:
snguyen
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • schwarz_nemo

    v4 v5  
    117117 
    118118The storing is done just before the schwarz looping is done: inside the `iswloop` loop, before the `kswr` loop. 
     119{{{ 
     120         DO WHILE ( iswloop <= nsloops .AND. nstop == 0 ) ! iterate on nsloops schwarz loops 
     121 
     122         kswr = 1 
     123         IF (lwp) THEN  
     124            WRITE(numout,*) '*** schwarz loops ***' 
     125            WRITE(numout,*) 'iswloop =',iswloop 
     126            WRITE(numout,*) 'kswr = ',kswr 
     127         ENDIF  
     128          
     129         CALL swz_store  ! store Ocean state at first schwarz iteration before first time step 
     130         CALL swz_store_lim3 ! store lim3 variables state 
     131         CALL swz_store_limdiahsb ! store limdiahsb variables 
     132}}} 
    119133 
    120134Like this we are certain to store the initial condition for a Schwarz loop.