ice_forcing Module Reference

Functions/Subroutines

subroutine init_forcing_atmo
subroutine init_forcing_ocn (dt)
subroutine get_forcing_atmo
subroutine get_forcing_ocn (dt)
subroutine read_data (flag, recd, yr, ixm, ixx, ixp, maxrec, data_file, field_data, field_loc, field_type)
subroutine read_data_nc (flag, recd, yr, ixm, ixx, ixp, maxrec, data_file, fieldname, field_data, field_loc, field_type)
subroutine read_clim_data (readflag, recd, ixm, ixx, ixp, data_file, field_data, field_loc, field_type)
subroutine interp_coeff_monthly (recslot)
subroutine interp_coeff (recnum, recslot, secint, dataloc)
subroutine interpolate_data (field_data, field)
subroutine file_year (data_file, yr)
subroutine prepare_forcing (nx_block, ny_block, ilo, ihi, jlo, jhi, hm, Tair, fsw, cldf, flw, frain, fsnow, Qa, rhoa, uatm, vatm, strax, stray, zlvl, wind, swvdr, swvdf, swidr, swidf, potT, ANGLET, Tsfc, sst, aice)
subroutine ncar_files (yr)
subroutine ncar_data
subroutine ecmwf_files (yr)
subroutine ECMWF_data
subroutine LY_files (yr)
subroutine LY_data
subroutine compute_shortwave (nx_block, ny_block, ilo, ihi, jlo, jhi, TLON, TLAT, hm, Qa, cldf, fsw)
subroutine Qa_fixLY (nx_block, ny_block, Tair, Qa)
subroutine hadgem_files (yr)
subroutine hadgem_data
subroutine monthly_files (yr)
subroutine monthly_data
subroutine ocn_data_clim (dt)
subroutine ocn_data_ncar_init
subroutine ocn_data_ncar (dt)
subroutine ocn_data_hadgem (dt)

Variables

integer(kind=int_kind) ycycle
integer(kind=int_kind) fyear_init
integer(kind=int_kind) fyear
integer(kind=int_kind) fyear_final
character(char_len_long) height_file
character(char_len_long) uwind_file
character(char_len_long) vwind_file
character(char_len_long) wind_file
character(char_len_long) strax_file
character(char_len_long) stray_file
character(char_len_long) potT_file
character(char_len_long) tair_file
character(char_len_long) humid_file
character(char_len_long) rhoa_file
character(char_len_long) fsw_file
character(char_len_long) flw_file
character(char_len_long) rain_file
character(char_len_long) sst_file
character(char_len_long) sss_file
character(char_len_long) pslv_file
character(char_len_long) sublim_file
character(char_len_long) snow_file
character(char_len_long),
dimension(ncat) 
topmelt_file
character(char_len_long),
dimension(ncat) 
botmelt_file
real(kind=dbl_kind) c1intp
real(kind=dbl_kind) c2intp
real(kind=dbl_kind) ftime
integer(kind=int_kind) oldrecnum = 0
integer(kind=int_kind) oldrecslot = 1
real(kind=dbl_kind), dimension(nx_block,
ny_block, max_blocks) 
cldf
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
fsw_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
cldf_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
fsnow_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
Tair_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
uatm_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
vatm_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
wind_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
strax_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
stray_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
Qa_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
rhoa_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
potT_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
zlvl_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
flw_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
sst_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
sss_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
uocn_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
vocn_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
sublim_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks) 
frain_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks, ncat) 
topmelt_data
real(kind=dbl_kind), dimension(nx_block,
ny_block, 2, max_blocks, ncat) 
botmelt_data
character(char_len) atm_data_format
character(char_len) ocn_data_format
character(char_len) atm_data_type
character(char_len_long) atm_data_dir
character(char_len_long) ocn_data_dir
character(char_len_long) oceanmixed_file
integer(kind=int_kind), parameter nfld = 8
real(kind=dbl_kind), parameter frcvdr = 0.28_dbl_kind
real(kind=dbl_kind), parameter frcvdf = 0.24_dbl_kind
real(kind=dbl_kind), parameter frcidr = 0.31_dbl_kind
real(kind=dbl_kind), parameter frcidf = 0.17_dbl_kind
real(kind=dbl_kind), dimension(nx_block,
ny_block, max_blocks, nfld, 12) 
ocn_frc_m
logical(kind=log_kind) restore_sst
integer(kind=int_kind) trestore
real(kind=dbl_kind) trest
logical(kind=log_kind) dbug

Function/Subroutine Documentation

subroutine ice_forcing::compute_shortwave ( integer (kind=int_kind),intent(in)  nx_block,
integer (kind=int_kind),intent(in)  ny_block,
integer (kind=int_kind),intent(in)  ilo,
integer (kind=int_kind),intent(in)  ihi,
integer (kind=int_kind),intent(in)  jlo,
integer (kind=int_kind),intent(in)  jhi,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  TLON,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  TLAT,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  hm,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  Qa,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  cldf,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  fsw 
)

Definition at line 2290 of file ice_forcing.F90.

subroutine ice_forcing::ECMWF_data (  ) 

Definition at line 1844 of file ice_forcing.F90.

subroutine ice_forcing::ecmwf_files ( integer (kind=int_kind),intent(in)  yr  ) 

Definition at line 1762 of file ice_forcing.F90.

subroutine ice_forcing::file_year ( character (char_len_long),intent(inout)  data_file,
integer (kind=int_kind),intent(in)  yr 
)

Definition at line 1195 of file ice_forcing.F90.

subroutine ice_forcing::get_forcing_atmo (  ) 

Definition at line 424 of file ice_forcing.F90.

subroutine ice_forcing::get_forcing_ocn ( real (kind=dbl_kind),intent(in)  dt  ) 

Definition at line 540 of file ice_forcing.F90.

subroutine ice_forcing::hadgem_data (  ) 

Definition at line 2576 of file ice_forcing.F90.

subroutine ice_forcing::hadgem_files ( integer (kind=int_kind),intent(in)  yr  ) 

Definition at line 2388 of file ice_forcing.F90.

subroutine ice_forcing::init_forcing_atmo (  ) 

Definition at line 170 of file ice_forcing.F90.

subroutine ice_forcing::init_forcing_ocn ( real (kind=dbl_kind),intent(in)  dt  ) 

Definition at line 222 of file ice_forcing.F90.

subroutine ice_forcing::interp_coeff ( integer (kind=int_kind),intent(in)  recnum,
integer (kind=int_kind),intent(in)  recslot,
real (kind=dbl_kind),intent(in)  secint,
integer (kind=int_kind),intent(in)  dataloc 
)

Definition at line 1078 of file ice_forcing.F90.

subroutine ice_forcing::interp_coeff_monthly ( integer (kind=int_kind),intent(in)  recslot  ) 

Definition at line 1018 of file ice_forcing.F90.

subroutine ice_forcing::interpolate_data ( real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks),intent(in)  field_data,
real (kind=dbl_kind),dimension(nx_block,ny_block,max_blocks),intent(out)  field 
)

Definition at line 1148 of file ice_forcing.F90.

subroutine ice_forcing::LY_data (  ) 

Definition at line 2081 of file ice_forcing.F90.

subroutine ice_forcing::LY_files ( integer (kind=int_kind),intent(in)  yr  ) 

Definition at line 2012 of file ice_forcing.F90.

subroutine ice_forcing::monthly_data (  ) 

Definition at line 2906 of file ice_forcing.F90.

subroutine ice_forcing::monthly_files ( integer (kind=int_kind),intent(in)  yr  ) 

Definition at line 2834 of file ice_forcing.F90.

subroutine ice_forcing::ncar_data (  ) 

Definition at line 1595 of file ice_forcing.F90.

subroutine ice_forcing::ncar_files ( integer (kind=int_kind),intent(in)  yr  ) 

Definition at line 1516 of file ice_forcing.F90.

subroutine ice_forcing::ocn_data_clim ( real (kind=dbl_kind),intent(in)  dt  ) 

Definition at line 3089 of file ice_forcing.F90.

subroutine ice_forcing::ocn_data_hadgem ( real (kind=dbl_kind),intent(in)  dt  ) 

Definition at line 3597 of file ice_forcing.F90.

subroutine ice_forcing::ocn_data_ncar ( real (kind=dbl_kind),intent(in)  dt  ) 

Definition at line 3402 of file ice_forcing.F90.

subroutine ice_forcing::ocn_data_ncar_init (  ) 

Definition at line 3238 of file ice_forcing.F90.

subroutine ice_forcing::prepare_forcing ( integer (kind=int_kind),intent(in)  nx_block,
integer (kind=int_kind),intent(in)  ny_block,
integer (kind=int_kind),intent(in)  ilo,
integer (kind=int_kind),intent(in)  ihi,
integer (kind=int_kind),intent(in)  jlo,
integer (kind=int_kind),intent(in)  jhi,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  hm,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  Tair,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  fsw,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  cldf,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  flw,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  frain,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  fsnow,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  Qa,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  rhoa,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  uatm,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  vatm,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  strax,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  stray,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  zlvl,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  wind,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  swvdr,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  swvdf,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  swidr,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  swidf,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  potT,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  ANGLET,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  Tsfc,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  sst,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  aice 
)

Definition at line 1246 of file ice_forcing.F90.

subroutine ice_forcing::Qa_fixLY ( integer (kind=int_kind),intent(in)  nx_block,
integer (kind=int_kind),intent(in)  ny_block,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(in)  Tair,
real (kind=dbl_kind),dimension(nx_block,ny_block),intent(inout)  Qa 
)

Definition at line 2350 of file ice_forcing.F90.

subroutine ice_forcing::read_clim_data ( logical (kind=log_kind),intent(in)  readflag,
integer (kind=int_kind),intent(in)  recd,
integer (kind=int_kind),intent(in)  ixm,
integer (kind=int_kind),intent(in)  ixx,
integer (kind=int_kind),intent(in)  ixp,
character (char_len_long),intent(in)  data_file,
real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks),intent(out)  field_data,
integer (kind=int_kind),intent(in)  field_loc,
integer (kind=int_kind),intent(in)  field_type 
)

Definition at line 920 of file ice_forcing.F90.

subroutine ice_forcing::read_data ( logical (kind=log_kind),intent(in)  flag,
integer (kind=int_kind),intent(in)  recd,
integer (kind=int_kind),intent(in)  yr,
integer (kind=int_kind),intent(in)  ixm,
integer (kind=int_kind),intent(in)  ixx,
integer (kind=int_kind),intent(in)  ixp,
maxrec  ,
character (char_len_long)  data_file,
real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks),intent(out)  field_data,
integer (kind=int_kind),intent(in)  field_loc,
integer (kind=int_kind),intent(in)  field_type 
)

Definition at line 585 of file ice_forcing.F90.

subroutine ice_forcing::read_data_nc ( logical (kind=log_kind),intent(in)  flag,
integer (kind=int_kind),intent(in)  recd,
integer (kind=int_kind),intent(in)  yr,
integer (kind=int_kind),intent(in)  ixm,
integer (kind=int_kind),intent(in)  ixx,
integer (kind=int_kind),intent(in)  ixp,
maxrec  ,
character (char_len_long)  data_file,
character (char_len),intent(in)  fieldname,
real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks),intent(out)  field_data,
integer (kind=int_kind),intent(in)  field_loc,
integer (kind=int_kind),intent(in)  field_type 
)

Definition at line 747 of file ice_forcing.F90.


Variable Documentation

character(char_len_long) ice_forcing::atm_data_dir

Definition at line 127 of file ice_forcing.F90.

character(char_len) ice_forcing::atm_data_format

Definition at line 117 of file ice_forcing.F90.

character(char_len) ice_forcing::atm_data_type

Definition at line 117 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks,ncat) ice_forcing::botmelt_data

Definition at line 112 of file ice_forcing.F90.

character (char_len_long),dimension(ncat) ice_forcing::botmelt_file

Definition at line 75 of file ice_forcing.F90.

real (kind=dbl_kind) ice_forcing::c1intp

Definition at line 79 of file ice_forcing.F90.

real (kind=dbl_kind) ice_forcing::c2intp

Definition at line 79 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,max_blocks) ice_forcing::cldf

Definition at line 87 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::cldf_data

Definition at line 90 of file ice_forcing.F90.

logical (kind=log_kind) ice_forcing::dbug

Definition at line 155 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::flw_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::flw_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::frain_data

Definition at line 90 of file ice_forcing.F90.

real (kind=dbl_kind),parameter ice_forcing::frcidf = 0.17_dbl_kind

Definition at line 136 of file ice_forcing.F90.

real (kind=dbl_kind),parameter ice_forcing::frcidr = 0.31_dbl_kind

Definition at line 136 of file ice_forcing.F90.

real (kind=dbl_kind),parameter ice_forcing::frcvdf = 0.24_dbl_kind

Definition at line 136 of file ice_forcing.F90.

real (kind=dbl_kind),parameter ice_forcing::frcvdr = 0.28_dbl_kind

Definition at line 136 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::fsnow_data

Definition at line 90 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::fsw_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::fsw_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind) ice_forcing::ftime

Definition at line 79 of file ice_forcing.F90.

integer (kind=int_kind) ice_forcing::fyear

Definition at line 49 of file ice_forcing.F90.

integer (kind=int_kind) ice_forcing::fyear_final

Definition at line 49 of file ice_forcing.F90.

integer (kind=int_kind) ice_forcing::fyear_init

Definition at line 49 of file ice_forcing.F90.

character (char_len_long) ice_forcing::height_file

Definition at line 55 of file ice_forcing.F90.

character (char_len_long) ice_forcing::humid_file

Definition at line 55 of file ice_forcing.F90.

integer (kind=int_kind),parameter ice_forcing::nfld = 8

Definition at line 132 of file ice_forcing.F90.

character(char_len_long) ice_forcing::oceanmixed_file

Definition at line 127 of file ice_forcing.F90.

character(char_len_long) ice_forcing::ocn_data_dir

Definition at line 127 of file ice_forcing.F90.

character(char_len) ice_forcing::ocn_data_format

Definition at line 117 of file ice_forcing.F90.

real (kind=dbl_kind),dimension (nx_block,ny_block,max_blocks,nfld,12) ice_forcing::ocn_frc_m

Definition at line 142 of file ice_forcing.F90.

integer (kind=int_kind) ice_forcing::oldrecnum = 0

Definition at line 83 of file ice_forcing.F90.

integer (kind=int_kind) ice_forcing::oldrecslot = 1

Definition at line 83 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::potT_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::potT_file

Definition at line 55 of file ice_forcing.F90.

character (char_len_long) ice_forcing::pslv_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::Qa_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::rain_file

Definition at line 55 of file ice_forcing.F90.

logical (kind=log_kind) ice_forcing::restore_sst

Definition at line 146 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::rhoa_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::rhoa_file

Definition at line 55 of file ice_forcing.F90.

character (char_len_long) ice_forcing::snow_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::sss_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::sss_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::sst_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::sst_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::strax_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::strax_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::stray_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::stray_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::sublim_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::sublim_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::Tair_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::tair_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks,ncat) ice_forcing::topmelt_data

Definition at line 112 of file ice_forcing.F90.

character (char_len_long),dimension(ncat) ice_forcing::topmelt_file

Definition at line 75 of file ice_forcing.F90.

real (kind=dbl_kind) ice_forcing::trest

Definition at line 152 of file ice_forcing.F90.

integer (kind=int_kind) ice_forcing::trestore

Definition at line 149 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::uatm_data

Definition at line 90 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::uocn_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::uwind_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::vatm_data

Definition at line 90 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::vocn_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::vwind_file

Definition at line 55 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::wind_data

Definition at line 90 of file ice_forcing.F90.

character (char_len_long) ice_forcing::wind_file

Definition at line 55 of file ice_forcing.F90.

integer (kind=int_kind) ice_forcing::ycycle

Definition at line 49 of file ice_forcing.F90.

real (kind=dbl_kind),dimension(nx_block,ny_block,2,max_blocks) ice_forcing::zlvl_data

Definition at line 90 of file ice_forcing.F90.

 All Classes Namespaces Files Functions Variables Defines

Generated on Tue Oct 6 14:02:25 2009 for CICE by  doxygen 1.6.1