Changes between Version 5 and Version 6 of schwarz_nemo


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

--

Legend:

Unmodified
Added
Removed
Modified
  • schwarz_nemo

    v5 v6  
    118118The storing is done just before the schwarz looping is done: inside the `iswloop` loop, before the `kswr` loop. 
    119119{{{ 
    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           
    129120         CALL swz_store  ! store Ocean state at first schwarz iteration before first time step 
    130121         CALL swz_store_lim3 ! store lim3 variables state 
    131122         CALL swz_store_limdiahsb ! store limdiahsb variables 
     123         IF(lwp) WRITE(numout,*) 'store schwarz initial state ' 
     124 
     125         DO WHILE ( kswr <= mswr .AND. nstop == 0 ) 
    132126}}} 
    133127