diff --git a/src/config.f90 b/src/config.f90 index 91db626..eff6b5f 100644 --- a/src/config.f90 +++ b/src/config.f90 @@ -327,7 +327,7 @@ PROGRAM CONFIG ! Write(* ,*) "For the OpenMP switch, only y/n are valid options" ! Write(88,*) "For the OpenMP switch, only y/n are valid options" ! Call stop_config -! Stop +! Stop ! Endif ! ENDIF ! @@ -451,7 +451,7 @@ PROGRAM CONFIG ! Write(* ,*) "Error: OpenMP is not supported by the g95 compiler !" ! Write(88,*) "Error: OpenMP is not supported by the g95 compiler !" ! Call stop_config -! Stop +! Stop ! endif ! if( ( option_mpi=='y' ) .and. ( option_omp=='n' ) ) then ! CompileMpi = "mpif90 -w -DMPI " @@ -461,13 +461,13 @@ PROGRAM CONFIG ! Write(* ,*) "Error: OpenMP is not supported by the g95 compiler !" ! Write(88,*) "Error: OpenMP is not supported by the g95 compiler !" ! Call stop_config -! Stop +! Stop ! endif ! Else ! Write(* ,*) "Error: unknown platform" ! Write(88,*) "Error: unknown platform" ! Call stop_config -! Stop +! Stop ! EndIf ! if( option_mpi == "y" ) then ! if( option_sys == "6" ) then @@ -865,7 +865,7 @@ PROGRAM CONFIG Write(88,*) " Please use a resolution RES>=12 " Write(88,*) call Stop_Config - stop + stop endif ! @@ -1003,7 +1003,7 @@ PROGRAM CONFIG Write(* ,*) "For the GMT switch, only y/n are valid options" Write(88,*) "For the GMT switch, only y/n are valid options" Call stop_config - Stop + Stop Endif @@ -1178,7 +1178,7 @@ PROGRAM CONFIG Write(88,*) "The RSL database has no elements" Write(*, *) "The RSL database has no elements" Call stop_config - Stop + Stop Endif ! ! @@ -1229,7 +1229,7 @@ PROGRAM CONFIG Write(88,*) "The RSL database is badly configured" Write(*, *) "The RSL database is badly configured" Call stop_config - Stop + Stop ENDIF READ(44,'(a10)')CJUNK WRITE(82,*) TIME_RSL/1000., RSL_DATUM, D_RSLDATUM @@ -1272,7 +1272,7 @@ PROGRAM CONFIG Write(88,*) "The RSL database is badly configured" Write(*, *) "The RSL database is badly configured" Call stop_config - Stop + Stop ENDIF READ(44,'(a10)')CJUNK WRITE(82,*) TIME_RSL/1000., RSL_DATUM, D_RSLDATUM @@ -1288,7 +1288,7 @@ PROGRAM CONFIG Write(88,*) "The RSL database does not exists" Write(*, *) "The RSL database does not exists" Call stop_config - Stop + Stop ! Endif ! @@ -1328,7 +1328,7 @@ PROGRAM CONFIG Write(* ,*) "Plotting RSl predictions vs. data requires computing ..." Write(* ,*) "... RSL predictions -- please modify file config.dat' --" call stop_config - stop + stop endif ENDIF ! @@ -1446,7 +1446,7 @@ PROGRAM CONFIG Write(88,*) "File ", trim(adjustl(file_region)), " apparently" Write(88,*) "does not exist - Please check file " Call Stop_Config - stop + stop endif endif ENDIF @@ -1495,7 +1495,7 @@ PROGRAM CONFIG Write(88,*) 'No tide-gauge database has been found...' Write(*, *) 'No tide-gauge database has been found...' Call Stop_Config - stop + stop ! endif ! @@ -1671,7 +1671,7 @@ PROGRAM CONFIG ! Write(88,*) 'No geodetic database has been found...' Write(*, *) 'No geodetic database has been found...' - Call Stop_Config ; stop + Call Stop_Config ; stop ! ENDIF ! On the existence of the database ... ! diff --git a/src/px.f90 b/src/px.f90 index 3ed9499..f3969f9 100644 --- a/src/px.f90 +++ b/src/px.f90 @@ -92,7 +92,7 @@ PROGRAM PIX write(*, *) ' - The resolution must be >= 10' WRITE(*, *) ' - P******* JOB ABORTED ********' call Stop_config - Stop + Stop ENDIF ! write(*, *) ' - The resolution is:', res diff --git a/src/rsl.f90 b/src/rsl.f90 index a58b43f..d658587 100644 --- a/src/rsl.f90 +++ b/src/rsl.f90 @@ -152,7 +152,7 @@ PROGRAM SL Write(*, *) "The RSL database is badly configured" Write(*, *) "The program will STOP --------------" Call stop_config - Stop + Stop ENDIF ! @@ -206,7 +206,7 @@ PROGRAM SL Write(*, *) "The RSL database is badly configured" Write(*, *) "The program will STOP --------------" Call stop_config - Stop + Stop ENDIF !