Go to the source code of this file.
|
subroutine | limit::limit_netcdf (masque, phis, extrap) |
|
subroutine | get_2dfield (fnam, varname, mode, ndays, champo, flag, mask) |
|
subroutine | start_init_orog0 (lon_in, lat_in, phis, masque) |
|
subroutine | grid_noro0 (xd, yd, zd, x, y, zphi, mask) |
|
integer function | year_len (y, cal_in) |
|
real function, dimension(nm) | mid_months (y, cal_in, nm) |
|
subroutine | msg (lev, str1, i, str2) |
|
subroutine | ncerr (ncres, fnam) |
|
|
character(len=20), dimension(4), parameter | limit::fsst =['amipbc_sst_1x1.nc ','cpl_atm_sst.nc ','histmth_sst.nc ' ,'sstk.nc '] |
|
character(len=20), dimension(4), parameter | limit::fsic =['amipbc_sic_1x1.nc ','cpl_atm_sic.nc ','histmth_sic.nc ' ,'ci.nc '] |
|
character(len=10), dimension(4), parameter | limit::vsst =['tosbcs ','SISUTESW ','tsol_oce ','sstk '] |
|
character(len=10), dimension(4), parameter | limit::vsic =['sicbcs ','SIICECOV ','pourc_sic ','ci '] |
|
character(len=10), parameter | limit::frugo ='Rugos.nc ' |
|
character(len=10), parameter | limit::falbe ='Albedo.nc ' |
|
character(len=10), parameter | limit::frelf ='Relief.nc ' |
|
character(len=10), parameter | limit::vrug ='RUGOS ' |
|
character(len=10), parameter | limit::valb ='ALBEDO ' |
|
character(len=10), parameter | limit::vrel ='RELIEF ' |
|
subroutine limit_netcdf::get_2dfield |
( |
character(len=*), intent(in) |
fnam, |
|
|
character(len=10), intent(in) |
varname, |
|
|
character(len=3), intent(in) |
mode, |
|
|
integer, intent(in) |
ndays, |
|
|
real, dimension(:, :), pointer |
champo, |
|
|
logical, intent(in), optional |
flag, |
|
|
real, dimension(iim, jjp1), intent(in), optional |
mask |
|
) |
| |
subroutine limit_netcdf::grid_noro0 |
( |
real, dimension(:), intent(in) |
xd, |
|
|
real, dimension(:), intent(in) |
yd, |
|
|
real, dimension(:,:), intent(in) |
zd, |
|
|
real, dimension(:), intent(in) |
x, |
|
|
real, dimension(:), intent(in) |
y, |
|
|
real, dimension(:,:), intent(out) |
zphi, |
|
|
real, dimension(:,:), intent(inout) |
mask |
|
) |
| |
real function, dimension(nm) limit_netcdf::mid_months |
( |
integer, intent(in) |
y, |
|
|
character(len=*), intent(in) |
cal_in, |
|
|
integer, intent(in) |
nm |
|
) |
| |
subroutine limit_netcdf::msg |
( |
integer, intent(in) |
lev, |
|
|
character(len=*), intent(in) |
str1, |
|
|
integer, intent(in), optional |
i, |
|
|
character(len=*), intent(in), optional |
str2 |
|
) |
| |
subroutine limit_netcdf::ncerr |
( |
integer, intent(in) |
ncres, |
|
|
character(len=*), intent(in) |
fnam |
|
) |
| |
subroutine limit_netcdf::start_init_orog0 |
( |
real, dimension(:), intent(in) |
lon_in, |
|
|
real, dimension(:), intent(in) |
lat_in, |
|
|
real, dimension(:,:), intent(inout) |
phis, |
|
|
real, dimension(:,:), intent(inout) |
masque |
|
) |
| |
integer function limit_netcdf::year_len |
( |
integer, intent(in) |
y, |
|
|
character(len=*), intent(in) |
cal_in |
|
) |
| |