Data Types
interface	amip_interp_new

type	amip_interp_type

interface	assignment(=)

type	date_type

interface	operator(/=)

interface	operator(==)

interface	operator(>)

Functions/Subroutines
subroutine, public	get_amip_sst (Time, Interp, sst, err_msg, lon_model, lat_model)

subroutine, public	get_amip_ice (Time, Interp, ice, err_msg)

type(amip_interp_type) function	amip_interp_new_1d (lon, lat, mask, use_climo, use_annual, interp_method)

type(amip_interp_type) function	amip_interp_new_2d (lon, lat, mask, use_climo, use_annual, interp_method)

subroutine, public	amip_interp_init ()

subroutine, public	amip_interp_del (Interp)

subroutine	set_sst_grid_edges_amip1

subroutine	set_sst_grid_edges_oi

subroutine	set_sst_grid_edges_daily (mobs_sst, nobs_sst)

subroutine	a2a_bilinear (nx, ny, dat1, n1, n2, dat2)

subroutine	get_sst_grid_size (nlon, nlat)

subroutine	get_sst_grid_boundary (blon, blat, mask)

subroutine	read_record (type, Date, Adate, dat)

subroutine	clip_data (type, dat)

logical function	date_equals (Left, Right)

logical function	date_not_equals (Left, Right)

logical function	date_gt (Left, Right)

subroutine	print_dates (Time, Date1, Udate1, Date2, Udate2, fmonth)

subroutine	zonal_sst (Time, ice, sst)

subroutine	amip_interp_type_eq (amip_interp_out, amip_interp_in)

Variables
integer, public	i_sst = 1200

integer, public	j_sst = 600

real, parameter	big_number = 1.E30

logical, public	forecast_mode = .false.

real, dimension(:,:), allocatable, public	sst_ncep

real, dimension(:,:), allocatable, public	sst_anom

real, dimension(:,:), allocatable	temp1

real, dimension(:,:), allocatable	temp2

real, dimension(:,:), allocatable	tempamip

integer	mobs

integer	nobs

real, dimension(:), allocatable	lon_bnd

real, dimension(:), allocatable	lat_bnd

integer, parameter	maxc = 128

integer	unit

character(len=maxc)	file_name_sst

character(len=maxc)	file_name_ice

type(date_type)	curr_date = date_type( -99, -99, -99 )

type(date_type)	date_end = date_type( -99, -99, -99 )

real	tice_crit_k

integer(i2_kind)	ice_crit

logical	module_is_initialized = .false.

character(len=24)	data_set = 'amip1'

character(len=16)	date_out_of_range = 'fail'

real	tice_crit = -1.80

integer	verbose = 0

logical	use_zonal = .false.

real	teq = 305.

real	tdif = 50.

real	tann = 20.

real	tlag = 0.875

integer, dimension(3)	amip_date =(/-1,-1,-1/)

real	sst_pert = 0.

character(len=6)	sst_pert_type = 'fixed'

logical	do_sst_pert = .false.

logical	use_daily = .false.

logical, public	use_ncep_sst = .false.

logical	no_anom_sst = .true.

logical	use_ncep_ice = .false.

logical	interp_oi_sst = .false.

Function/Subroutine Documentation

◆ a2a_bilinear()

subroutine amip_interp_mod::a2a_bilinear	(	integer, intent(in)	nx,
		integer, intent(in)	ny,
		real, dimension(nx,ny), intent(in)	dat1,
		integer, intent(in)	n1,
		integer, intent(in)	n2,
		real, dimension(n1,n2), intent(out)	dat2
	)

private

Definition at line 1206 of file amip_interp.F90.

Here is the caller graph for this function:

◆ amip_interp_del()

subroutine, public amip_interp_mod::amip_interp_del ( type (amip_interp_type), intent(inout) Interp )

Definition at line 1100 of file amip_interp.F90.

Here is the call graph for this function:

◆ amip_interp_init()

subroutine, public amip_interp_mod::amip_interp_init ( )

Definition at line 943 of file amip_interp.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ amip_interp_new_1d()

type (amip_interp_type) function amip_interp_mod::amip_interp_new_1d	(	real, dimension(:), intent(in)	lon,
		real, dimension(:), intent(in)	lat,
		logical, dimension(:,:), intent(in)	mask,
		logical, intent(in), optional	use_climo,
		logical, intent(in), optional	use_annual,
		character(len=*), intent(in), optional	interp_method
	)

private

Definition at line 852 of file amip_interp.F90.

Here is the call graph for this function:

◆ amip_interp_new_2d()

type (amip_interp_type) function amip_interp_mod::amip_interp_new_2d	(	real, dimension(:,:), intent(in)	lon,
		real, dimension(:,:), intent(in)	lat,
		logical, dimension(:,:), intent(in)	mask,
		logical, intent(in), optional	use_climo,
		logical, intent(in), optional	use_annual,
		character(len=*), intent(in), optional	interp_method
	)

private

Definition at line 902 of file amip_interp.F90.

Here is the call graph for this function:

◆ amip_interp_type_eq()

subroutine amip_interp_mod::amip_interp_type_eq	(	type(amip_interp_type), intent(inout)	amip_interp_out,
		type(amip_interp_type), intent(in)	amip_interp_in
	)

private

Definition at line 1732 of file amip_interp.F90.

◆ clip_data()

subroutine amip_interp_mod::clip_data	(	character(len=*), intent(in)	type,
		real, dimension(:,:), intent(inout)	dat
	)

private

Definition at line 1590 of file amip_interp.F90.

Here is the caller graph for this function:

◆ date_equals()

logical function amip_interp_mod::date_equals	(	type (date_type), intent(in)	Left,
		type (date_type), intent(in)	Right
	)

private

Definition at line 1605 of file amip_interp.F90.

◆ date_gt()

logical function amip_interp_mod::date_gt	(	type (date_type), intent(in)	Left,
		type (date_type), intent(in)	Right
	)

private

Definition at line 1637 of file amip_interp.F90.

◆ date_not_equals()

logical function amip_interp_mod::date_not_equals	(	type (date_type), intent(in)	Left,
		type (date_type), intent(in)	Right
	)

private

Definition at line 1621 of file amip_interp.F90.

◆ get_amip_ice()

subroutine, public amip_interp_mod::get_amip_ice	(	type (time_type), intent(in)	Time,
		type (amip_interp_type), intent(inout)	Interp,
		real, dimension(:,:), intent(out)	ice,
		character(len=*), intent(out), optional	err_msg
	)

Definition at line 703 of file amip_interp.F90.

Here is the call graph for this function:

◆ get_amip_sst()

subroutine, public amip_interp_mod::get_amip_sst	(	type (time_type), intent(in)	Time,
		type (amip_interp_type), intent(inout)	Interp,
		real, dimension(:,:), intent(out)	sst,
		character(len=*), intent(out), optional	err_msg,
		real, dimension(:,:), intent(in), optional	lon_model,
		real, dimension(:,:), intent(in), optional	lat_model
	)

Definition at line 409 of file amip_interp.F90.

Here is the call graph for this function:

◆ get_sst_grid_boundary()

subroutine amip_interp_mod::get_sst_grid_boundary	(	real, dimension(:), intent(out)	blon,
		real, dimension(:), intent(out)	blat,
		logical, dimension(:,:), intent(out)	mask
	)

private

Definition at line 1381 of file amip_interp.F90.

Here is the call graph for this function:

◆ get_sst_grid_size()

subroutine amip_interp_mod::get_sst_grid_size	(	integer, intent(out)	nlon,
		integer, intent(out)	nlat
	)

private

Definition at line 1340 of file amip_interp.F90.

Here is the call graph for this function:

◆ print_dates()

subroutine amip_interp_mod::print_dates	(	type (time_type), intent(in)	Time,
		type (date_type), intent(in)	Date1,
		type (date_type), intent(in)	Udate1,
		type (date_type), intent(in)	Date2,
		type (date_type), intent(in)	Udate2,
		real, intent(in)	fmonth
	)

private

Definition at line 1660 of file amip_interp.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ read_record()

subroutine amip_interp_mod::read_record	(	character(len=*), intent(in)	type,
		type (date_type), intent(in)	Date,
		type (date_type), intent(inout)	Adate,
		real, dimension(mobs,nobs), intent(out)	dat
	)

private

Definition at line 1409 of file amip_interp.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

◆ set_sst_grid_edges_amip1()

subroutine amip_interp_mod::set_sst_grid_edges_amip1 ( )

private

Definition at line 1118 of file amip_interp.F90.

Here is the caller graph for this function:

◆ set_sst_grid_edges_daily()

subroutine amip_interp_mod::set_sst_grid_edges_daily	(	integer	mobs_sst,
		integer	nobs_sst
	)

private

Definition at line 1175 of file amip_interp.F90.

Here is the caller graph for this function:

◆ set_sst_grid_edges_oi()

subroutine amip_interp_mod::set_sst_grid_edges_oi ( )

private

Definition at line 1144 of file amip_interp.F90.

Here is the caller graph for this function:

◆ zonal_sst()

subroutine amip_interp_mod::zonal_sst	(	type (time_type), intent(in)	Time,
		real, dimension(mobs,nobs), intent(out)	ice,
		real, dimension(mobs,nobs), intent(out)	sst
	)

private

Definition at line 1686 of file amip_interp.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

◆ amip_date

integer, dimension(3) amip_interp_mod::amip_date =(/-1,-1,-1/)

private

Definition at line 365 of file amip_interp.F90.

◆ big_number

real, parameter amip_interp_mod::big_number = 1.E30

private

Definition at line 118 of file amip_interp.F90.

◆ curr_date

type (date_type) amip_interp_mod::curr_date = date_type( -99, -99, -99 )

private

Definition at line 266 of file amip_interp.F90.

◆ data_set

character(len=24) amip_interp_mod::data_set = 'amip1'

private

Definition at line 341 of file amip_interp.F90.

◆ date_end

type (date_type) amip_interp_mod::date_end = date_type( -99, -99, -99 )

private

Definition at line 267 of file amip_interp.F90.

◆ date_out_of_range

character(len=16) amip_interp_mod::date_out_of_range = 'fail'

private

Definition at line 349 of file amip_interp.F90.

◆ do_sst_pert

logical amip_interp_mod::do_sst_pert = .false.

private

Definition at line 372 of file amip_interp.F90.

◆ file_name_ice

character(len=maxc) amip_interp_mod::file_name_ice

private

Definition at line 264 of file amip_interp.F90.

◆ file_name_sst

character(len=maxc) amip_interp_mod::file_name_sst

private

Definition at line 264 of file amip_interp.F90.

◆ forecast_mode

logical, public amip_interp_mod::forecast_mode = .false.

Definition at line 119 of file amip_interp.F90.

◆ i_sst

integer, public amip_interp_mod::i_sst = 1200

Definition at line 116 of file amip_interp.F90.

◆ ice_crit

integer(i2_kind) amip_interp_mod::ice_crit

private

Definition at line 270 of file amip_interp.F90.

◆ interp_oi_sst

logical amip_interp_mod::interp_oi_sst = .false.

private

Definition at line 383 of file amip_interp.F90.

◆ j_sst

integer, public amip_interp_mod::j_sst = 600

Definition at line 117 of file amip_interp.F90.

◆ lat_bnd

real, dimension(:), allocatable amip_interp_mod::lat_bnd

private

Definition at line 258 of file amip_interp.F90.

◆ lon_bnd

real, dimension(:), allocatable amip_interp_mod::lon_bnd

private

Definition at line 258 of file amip_interp.F90.

◆ maxc

integer, parameter amip_interp_mod::maxc = 128

private

Definition at line 262 of file amip_interp.F90.

◆ mobs

integer amip_interp_mod::mobs

private

Definition at line 257 of file amip_interp.F90.

◆ module_is_initialized

logical amip_interp_mod::module_is_initialized = .false.

private

Definition at line 272 of file amip_interp.F90.

◆ no_anom_sst

logical amip_interp_mod::no_anom_sst = .true.

private

Definition at line 381 of file amip_interp.F90.

◆ nobs

integer amip_interp_mod::nobs

private

Definition at line 257 of file amip_interp.F90.

◆ sst_anom

real, dimension(:,:), allocatable, public amip_interp_mod::sst_anom

Definition at line 120 of file amip_interp.F90.

◆ sst_ncep

real, dimension(:,:), allocatable, public amip_interp_mod::sst_ncep

Definition at line 120 of file amip_interp.F90.

◆ sst_pert

real amip_interp_mod::sst_pert = 0.

private

Definition at line 368 of file amip_interp.F90.

◆ sst_pert_type

character(len=6) amip_interp_mod::sst_pert_type = 'fixed'

private

Definition at line 371 of file amip_interp.F90.

◆ tann

real amip_interp_mod::tann = 20.

private

Definition at line 360 of file amip_interp.F90.

◆ tdif

real amip_interp_mod::tdif = 50.

private

Definition at line 359 of file amip_interp.F90.

◆ temp1

real, dimension(:,:), allocatable amip_interp_mod::temp1

private

Definition at line 132 of file amip_interp.F90.

◆ temp2

real, dimension(:,:), allocatable amip_interp_mod::temp2

private

Definition at line 132 of file amip_interp.F90.

◆ tempamip

real, dimension(:,:), allocatable amip_interp_mod::tempamip

private

Definition at line 134 of file amip_interp.F90.

◆ teq

real amip_interp_mod::teq = 305.

private

Definition at line 358 of file amip_interp.F90.

◆ tice_crit

real amip_interp_mod::tice_crit = -1.80

private

Definition at line 353 of file amip_interp.F90.

◆ tice_crit_k

real amip_interp_mod::tice_crit_k

private

Definition at line 269 of file amip_interp.F90.

◆ tlag

real amip_interp_mod::tlag = 0.875

private

Definition at line 361 of file amip_interp.F90.

◆ unit

integer amip_interp_mod::unit

private

Definition at line 263 of file amip_interp.F90.

◆ use_daily

logical amip_interp_mod::use_daily = .false.

private

Definition at line 373 of file amip_interp.F90.

◆ use_ncep_ice

logical amip_interp_mod::use_ncep_ice = .false.

private

Definition at line 382 of file amip_interp.F90.

◆ use_ncep_sst

logical, public amip_interp_mod::use_ncep_sst = .false.

Definition at line 380 of file amip_interp.F90.

◆ use_zonal

logical amip_interp_mod::use_zonal = .false.

private

Definition at line 357 of file amip_interp.F90.

◆ verbose

integer amip_interp_mod::verbose = 0

private

Definition at line 354 of file amip_interp.F90.

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ a2a_bilinear()

◆ amip_interp_del()

◆ amip_interp_init()

◆ amip_interp_new_1d()

◆ amip_interp_new_2d()

◆ amip_interp_type_eq()

◆ clip_data()

◆ date_equals()

◆ date_gt()

◆ date_not_equals()

◆ get_amip_ice()

◆ get_amip_sst()

◆ get_sst_grid_boundary()

◆ get_sst_grid_size()

◆ print_dates()

◆ read_record()

◆ set_sst_grid_edges_amip1()

◆ set_sst_grid_edges_daily()

◆ set_sst_grid_edges_oi()

◆ zonal_sst()

Variable Documentation

◆ amip_date

◆ big_number

◆ curr_date

◆ data_set

◆ date_end

◆ date_out_of_range

◆ do_sst_pert

◆ file_name_ice

◆ file_name_sst

◆ forecast_mode

◆ i_sst

◆ ice_crit

◆ interp_oi_sst

◆ j_sst

◆ lat_bnd

◆ lon_bnd

◆ maxc

◆ mobs

◆ module_is_initialized

◆ no_anom_sst

◆ nobs

◆ sst_anom

◆ sst_ncep

◆ sst_pert

◆ sst_pert_type

◆ tann

◆ tdif

◆ temp1

◆ temp2

◆ tempamip

◆ teq

◆ tice_crit

◆ tice_crit_k

◆ tlag

◆ unit

◆ use_daily

◆ use_ncep_ice

◆ use_ncep_sst

◆ use_zonal

◆ verbose