search

aosprey / mckpp-f90

Multi-Column configuration of the K Profile Parameterisation mixed-layer ocean model (F90 version)
GNU General Public License v3.0
2 stars 0 forks source link

Re-engineer goto continue statements #28

Open aosprey opened 1 year ago

aosprey commented 1 year ago

Identified in #27, but the goto continues are a bit more complicated to remove. In particular in mckpp_physics_ocnstep, it would require restructuring the WHILE loop: 

DO WHILE flags
  stuff

  IF (L_KPP) 
45  CONTINUE
    stuff

    IF (cond) 
      GOTO 45
    END IF

    stuff
  END IF

END DO