Browse Source

Merge branch 'iow_ice' into iow_master

master
Knut 1 year ago
parent
commit
af4a6dfb6c
  1. 10
      doc/getm_pub.bib
  2. 3
      src/ncdf/ncdf_ice.F90
  3. 3
      src/ncdf/ncdf_ssts.F90
  4. 3
      src/ncdf/ncdf_waves.F90

10
doc/getm_pub.bib

@ -15,6 +15,16 @@
@String{OMOD = "Ocean Modelling"}
@String{OSCI = "Ocean Science"}
@article{zhurbas2022sto,
author = {Zhurbas, Victor and V\"ali, Germo and Kuzmina, Natalia},
journal = {Oceanologia},
title = {{Striped texture of submesoscale fields in the northeastern Baltic Proper: Results of very high-resolution modelling for summer season}},
year = {2022},
pages = {1--21},
volume = {64},
doi = {10.1016/j.oceano.2021.08.003},
}
@Article{bauer2021icongetm,
author = {Bauer, Tobias Peter and Holtermann, Peter Ludwig and Heinold, Bernd and Radtke, Hagen and Knoth, Oswald and Klingbeil, Knut},
journal = {Geoscientific Model Development},

3
src/ncdf/ncdf_ice.F90

@ -430,9 +430,6 @@
end do
if ( .not. found ) call getm_error('open_ice_file()', &
'Could not find valid iceforcing in '//trim(ice_file))
LEVEL3 'Using ice from:'
LEVEL4 trim(fn)
if ( .not. stationary ) then

3
src/ncdf/ncdf_ssts.F90

@ -483,9 +483,6 @@
end do
if ( .not. found ) call getm_error('open_ssts_file()', &
'Could not find valid sstsforcing in '//trim(ssts_file))
LEVEL3 'Using ssts from:'
LEVEL4 trim(fn)
if ( .not. stationary ) then

3
src/ncdf/ncdf_waves.F90

@ -512,9 +512,6 @@
end do
if ( .not. found ) call getm_error('open_waves_file()', &
'Could not find valid waveforcing in '//trim(waves_file))
LEVEL4 ' ... checking variable ',name_waveT
err = nf90_inq_varid(ncid,name_waveT,waveT_id)
if (err .NE. NF90_NOERR) waveT_id=-1

Loading…
Cancel
Save