Skip to content

Commit

Permalink
Truncated some lines to adhere to gfortran's default line length.
Browse files Browse the repository at this point in the history
  • Loading branch information
@matsbn
matsbn committed May 14, 2024
1 parent ffa77da commit a85bab9
Showing 1 changed file with 36 additions and 17 deletions.
53 changes: 36 additions & 17 deletions phy/mod_restart.F90
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1225,8 +1225,8 @@ subroutine restart_read
time0 = time
else
if (mnproc == 1) then
write(lp,*) &
'restart_read: could not find restart file for initial conditions!'
write(lp,*) 'restart_read: could not find restart file for '// &
'initial conditions!'
endif
call xcstop('(restart_read)')
stop '(restart_read)'
Expand All @@ -1248,8 +1248,8 @@ subroutine restart_read
call xcbcst(rstfnm)
else
if (mnproc == 1) then
write(lp,*) &
'restart_read: could not find file rpointer.ocn'//trim(inst_suffix)//'!'
write(lp,*) 'restart_read: could not find file rpointer.ocn'// &
trim(inst_suffix)//'!'
endif
call xcstop('(restart_read)')
stop '(restart_read)'
Expand Down Expand Up @@ -1287,7 +1287,8 @@ subroutine restart_read
call ncgetr('time', time)
if (date_rest /= date0) then
if (mnproc == 1) then
write(lp,*) ' restart_read: expected identical initial experiment date in namelist and restart but found:'
write(lp,*) 'restart_read: expected identical initial '// &
'experiment date in namelist and restart but found:'
write(lp, '(a,i4.4,2(i2.2))') &
' restart_read: initial date namelist: ', date0
write(lp, '(a,i4.4,2(i2.2))') &
Expand Down Expand Up @@ -1374,7 +1375,8 @@ subroutine restart_read
if (rho_restart > 1.e2_r8) then
#ifndef MKS
if (mnproc == 1) &
write(lp,*) 'restart_read: restart variables will be converted from MKS to CGS units.'
write(lp,*) 'restart_read: restart variables will be converted '// &
'from MKS to CGS units.'
l_unitconv = 1.e2_r8
m_unitconv = 1.e3_r8
p_unitconv = 1.e1_r8
Expand All @@ -1391,7 +1393,8 @@ subroutine restart_read
else
#ifdef MKS
if (mnproc == 1) &
write(lp,*) 'restart_read: restart variables will be converted from CGS to MKS units.'
write(lp,*) 'restart_read: restart variables will be converted '// &
'from CGS to MKS units.'
l_unitconv = 1.e-2_r8
m_unitconv = 1.e-3_r8
p_unitconv = 1.e-1_r8
Expand Down Expand Up @@ -1499,7 +1502,9 @@ subroutine restart_read
call ncgetr('prfac', prfac)
call xcbcst(prfac)
elseif (mnproc == 1) then
write(lp,*) 'restart_read: warning: fields needed for balancing fresh water budget are not read from restart file and will be initialized.'
write(lp,*) 'restart_read: warning: fields needed for '// &
'balancing fresh water budget are not read from '// &
'restart file and will be initialized.'
endif
endif

Expand Down Expand Up @@ -1565,7 +1570,9 @@ subroutine restart_read
l1ci = 3 - l2ci
else
if (mnproc == 1) then
write(lp,*) 'restart_read: warning: time levels for interpolation of forcing fields is not read from restart file.'
write(lp,*) 'restart_read: warning: time levels for '// &
'interpolation of forcing fields is not read '// &
'from restart file.'
endif
l1ci = 1
l2ci = 1
Expand All @@ -1575,15 +1582,19 @@ subroutine restart_read
call readfld('flxco2', no_unitconv, flxco2, ip, &
required = .false., fld_read = fld_read)
if (.not.fld_read .and. mnproc == 1) &
write(lp,*) 'restart_read: warning: air-sea CO2 flux is not read from restart file and will be initialized to zero.'
write(lp,*) 'restart_read: warning: air-sea CO2 flux is not '// &
'read from restart file and will be initialized '// &
'to zero.'
call readfld('flxdms', no_unitconv, flxdms, ip, &
required = .false., fld_read = fld_read)
if (.not.fld_read .and. mnproc == 1) &
write(lp,*) 'restart_read: warning: DMS flux is not read from restart file and will be initialized to zero.'
write(lp,*) 'restart_read: warning: DMS flux is not read from '// &
'restart file and will be initialized to zero.'
call readfld('flxbrf', no_unitconv, flxbrf, ip, &
required = .false., fld_read = fld_read)
if (.not.fld_read .and. mnproc == 1) &
write(lp,*) 'restart_read: warning: bromoform flux is not read from restart file and will be initialized to zero.'
write(lp,*) 'restart_read: warning: bromoform flux is not read '// &
'from restart file and will be initialized to zero.'
endif

#ifdef TRC
Expand All @@ -1601,7 +1612,9 @@ subroutine restart_read
required = .false., fld_read = fld_read)
if (.not.fld_read) then
if (mnproc == 1) &
write(lp,*) 'restart_read: warning: ideal age tracer is not read from restart file and will be initialized to zero.'
write(lp,*) 'restart_read: warning: ideal age tracer is not '// &
'read from restart file and will be initialized '// &
'to zero.'
call idlage_init
endif
# endif
Expand Down Expand Up @@ -2115,7 +2128,9 @@ subroutine restart_read
if (file_exist) then
call ncfopn(fnm, 'r', ' ', 1, iotype)
if (mnproc == 1) &
write(lp,*) 'restart_read: reading diag. heat flux restart file '//trim(fnm)
write(lp,*) &
'restart_read: reading diag. heat flux restart file '// &
trim(fnm)
call ncgetr('time', time)
if (nint(time) /= nday1 .and. mnproc == 1) then
write(lp, '(a,i6.6,a)') &
Expand All @@ -2130,7 +2145,8 @@ subroutine restart_read
call ncgeti('nflxdi', nflxdi)
else
if (mnproc == 1) &
write(lp,*) 'restart_read: warning: No diag. heat flux restart file found'
write(lp,*) &
'restart_read: warning: No diag. heat flux restart file found'
endif

endif
Expand All @@ -2148,7 +2164,9 @@ subroutine restart_read
if (file_exist) then
call ncfopn(fnm, 'r', ' ', 1, iotype)
if (mnproc == 1) &
write(lp,*) 'restart_read: reading diag. salt flux restart file '//trim(fnm)
write(lp,*) &
'restart_read: reading diag. salt flux restart file '// &
trim(fnm)
call ncgetr('time', time)
if (nint(time) /= nday1 .and. mnproc == 1) then
write(lp, '(a,i6.6,a)') &
Expand All @@ -2164,7 +2182,8 @@ subroutine restart_read
call ncfcls
else
if (mnproc == 1) &
write(lp,*) 'restart_read: warning: No diag. salt flux restart file found'
write(lp,*) &
'restart_read: warning: No diag. salt flux restart file found'
endif

endif
Expand Down

0 comments on commit a85bab9

Please sign in to comment.