New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8545 – NEMO

Changeset 8545


Ignore:
Timestamp:
2017-09-20T09:42:29+02:00 (6 years ago)
Author:
timgraham
Message:

Remove last GOTO statement (ticket #1860)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/SED/sedco3.F90

    r5215 r8545  
    7575 
    7676      DO jk = 1, jpksed 
    77 10001    CONTINUE 
    78          IF( itime <= 2 ) THEN 
     77         DO WHILE( itime <= 2 ) 
    7978            lconv  = .FALSE. 
    8079            IF( itime > 0 ) THEN   
     
    154153!                     WRITE(numsed,*) '    with re-initialization of initial PH field '        
    155154                     itime = 2 
    156                      GOTO 10001 
    157155                  ELSE 
    158156!                     WRITE(numsed,*) ' convergence after iter =', jiter, ' iterations ;  res =',zresm  
     
    165163!                     &               '  after iter =', jiter, ' iterations ;  res =',zresm   
    166164!                  WRITE(numsed,*) ' ' 
    167                   itime = 0 
     165                  itime = 3 
    168166               ENDIF 
    169167            ELSE 
     
    172170               IF ( itime == 1 ) THEN 
    173171                  WRITE(numsed,*) ' try one more time with more iterations and higher relax. value' 
    174                   GOTO 10001 
    175172               ELSE IF ( itime == 2 ) THEN 
    176173                  WRITE(numsed,*) ' try one more time for with more iterations, higher relax. value'                
     
    181178               ENDIF 
    182179            ENDIF 
    183          ENDIF 
     180         ENDDO ! End of WHILE LOOP 
    184181     ENDDO 
    185182 
Note: See TracChangeset for help on using the changeset viewer.