Skip to content

Commit

Permalink
added warning for impact of climatological atmosphere forcing on ocea…
Browse files Browse the repository at this point in the history
…nic heat flux convergence
  • Loading branch information
davidclemenssewall committed Oct 11, 2024
1 parent 429e824 commit 358896d
Showing 1 changed file with 8 additions and 4 deletions.
12 changes: 8 additions & 4 deletions configuration/driver/icedrv_forcing.F90
Original file line number Diff line number Diff line change
Expand Up @@ -598,6 +598,10 @@ subroutine atm_climatological
! 6 W/m2 warming of mixed layer from deep ocean
qdp_data(:) = -6.0 ! 2 W/m2 from deep + 4 W/m2 counteracting larger
! SH+LH with bulk transfer than in MU 71
! Warn that this overwrites default and namelist value
write(nu_diag,*) subname
write(nu_diag,*) 'WARNING: atm_data_type = clim overwrites '//&
'oceanic heat flux convergence from default or namelist'

end subroutine atm_climatological

Expand Down Expand Up @@ -1109,8 +1113,8 @@ subroutine atm_MOSAiC
if ((model_time(1) < leg5_start_time) .and. &
(model_time(ntime) > leg4_end_time)) then
write(nu_diag,*) subname
write(nu_diag,*) 'WARNING: Time includes leg 4-5 transition'
write(nu_diag,*) 'WARNING: forcing interpolation is not valid'
write(nu_diag,*) 'WARNING: Time includes MOSAiC leg 4-5 '//&
'repositioning, forcing interpolation is not valid'
endif

! Read, average, and interpolate forcing data from each variable
Expand Down Expand Up @@ -1596,8 +1600,8 @@ subroutine ocn_MOSAiC
if ((model_time(1) < leg5_start_time) .and. &
(model_time(ntime) > leg4_end_time)) then
write(nu_diag,*) subname
write(nu_diag,*) 'WARNING: Time includes leg 4-5 transition'
write(nu_diag,*) 'WARNING: forcing interpolation is not valid'
write(nu_diag,*) 'WARNING: Time includes MOSAIC leg 4-5 '//&
'repositioning, forcing interpolation is not valid'
endif

! Read, average, and interpolate forcing data from each variable
Expand Down

0 comments on commit 358896d

Please sign in to comment.