SCALE-RM
Functions/Subroutines | Variables
mod_ocean_vars Module Reference

module OCEAN Variables More...

Functions/Subroutines

subroutine, public ocean_vars_setup
 Setup. More...
 
subroutine, public ocean_vars_restart_open
 Open ocean restart file for read. More...
 
subroutine, public ocean_vars_restart_read
 Read ocean restart. More...
 
subroutine, public ocean_vars_history
 History output set for ocean variables. More...
 
subroutine, public ocean_vars_check (force)
 Budget monitor for ocean. More...
 
subroutine, public ocean_vars_monitor
 monitor output More...
 
subroutine, public ocean_vars_restart_create
 Create ocean restart file. More...
 
subroutine, public ocean_vars_restart_enddef
 Exit netCDF define mode. More...
 
subroutine, public ocean_vars_restart_close
 Close restart file. More...
 
subroutine, public ocean_vars_restart_def_var
 Define ocean variables in restart file. More...
 
subroutine, public ocean_vars_restart_write
 Write ocean variables to restart file. More...
 

Variables

logical, public ocean_restart_output = .false.
 Output restart file? More...
 
character(len=h_long), public ocean_restart_in_basename = ''
 Basename of the input file. More...
 
logical, public ocean_restart_in_aggregate
 Switch to use aggregate file. More...
 
logical, public ocean_restart_in_postfix_timelabel = .false.
 Add timelabel to the basename of input file? More...
 
character(len=h_long), public ocean_restart_out_basename = ''
 Basename of the output file. More...
 
logical, public ocean_restart_out_aggregate
 Switch to use aggregate file. More...
 
logical, public ocean_restart_out_postfix_timelabel = .true.
 Add timelabel to the basename of output file? More...
 
character(len=h_mid), public ocean_restart_out_title = 'OCEAN restart'
 Title of the output file. More...
 
character(len=h_short), public ocean_restart_out_dtype = 'DEFAULT'
 REAL4 or REAL8. More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_temp
 ocean temperature [K] More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_salt
 ocean salinity [PSU] More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_uvel
 ocean zonal velocity [m/s] More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_vvel
 ocean meridional velocity [m/s] More...
 
real(rp), dimension(:,:), allocatable, public ocean_ocn_z0m
 surface roughness length for momentum, open ocean [m] More...
 
real(rp), dimension(:,:), allocatable, public ocean_sfc_temp
 ocean surface skin temperature [K] More...
 
real(rp), dimension(:,:,:,:), allocatable, public ocean_sfc_albedo
 ocean surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1) More...
 
real(rp), dimension(:,:), allocatable, public ocean_sfc_z0m
 ocean surface roughness length for momentum [m] More...
 
real(rp), dimension(:,:), allocatable, public ocean_sfc_z0h
 ocean surface roughness length for heat [m] More...
 
real(rp), dimension(:,:), allocatable, public ocean_sfc_z0e
 ocean surface roughness length for vapor [m] More...
 
real(rp), dimension(:,:), allocatable, public ocean_ice_temp
 sea ice temperature [K] More...
 
real(rp), dimension(:,:), allocatable, public ocean_ice_mass
 sea ice mass [kg] More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_temp_t
 tendency of OCEAN_OCN_TEMP More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_salt_t
 tendency of OCEAN_OCN_SALT More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_uvel_t
 tendency of OCEAN_OCN_UVEL More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_vvel_t
 tendency of OCEAN_OCN_VVEL More...
 
real(rp), dimension(:,:), allocatable, public ocean_ice_temp_t
 tendency of OCEAN_ICE_TEMP More...
 
real(rp), dimension(:,:), allocatable, public ocean_ice_mass_t
 tendency of OCEAN_ICE_MASS More...
 
real(rp), dimension(:,:), allocatable, public atmos_temp
 
real(rp), dimension(:,:), allocatable, public atmos_pres
 
real(rp), dimension(:,:), allocatable, public atmos_w
 
real(rp), dimension(:,:), allocatable, public atmos_u
 
real(rp), dimension(:,:), allocatable, public atmos_v
 
real(rp), dimension(:,:), allocatable, public atmos_dens
 
real(rp), dimension(:,:), allocatable, public atmos_qv
 
real(rp), dimension(:,:), allocatable, public atmos_pbl
 
real(rp), dimension(:,:), allocatable, public atmos_sfc_dens
 
real(rp), dimension(:,:), allocatable, public atmos_sfc_pres
 
real(rp), dimension(:,:,:,:), allocatable, public atmos_sflx_rad_dn
 
real(rp), dimension(:,:), allocatable, public atmos_cossza
 
real(rp), dimension(:,:), allocatable, public atmos_sflx_water
 
real(rp), dimension(:,:), allocatable, public atmos_sflx_engi
 
real(rp), dimension(:,:), allocatable, target, public ocean_sflx_gh
 ocean surface water heat flux [J/m2/s] More...
 
real(rp), dimension(:,:), allocatable, target, public ocean_sflx_water
 ocean surface water mass flux [kg/m2/s] More...
 
real(rp), dimension(:,:), allocatable, target, public ocean_sflx_engi
 ocean surface internal energy flux [J/m2/s] More...
 
real(rp), dimension(:,:), pointer, public ocean_oflx_gh
 ocean-ice surface water heat flux [J/m2/s] More...
 
real(rp), dimension(:,:), pointer, public ocean_oflx_water
 ocean-ice surface water mass flux [kg/m2/s] More...
 
real(rp), dimension(:,:), pointer, public ocean_oflx_engi
 ocean-ice surface internal energy flux [J/m2/s] More...
 
real(rp), dimension(:,:), allocatable, public ocean_sflx_mw
 ocean surface w-momentum flux [kg/m/s2] More...
 
real(rp), dimension(:,:), allocatable, public ocean_sflx_mu
 ocean surface u-momentum flux [kg/m/s2] More...
 
real(rp), dimension(:,:), allocatable, public ocean_sflx_mv
 ocean surface v-momentum flux [kg/m/s2] More...
 
real(rp), dimension(:,:), allocatable, public ocean_sflx_sh
 ocean surface sensible heat flux [J/m2/s] More...
 
real(rp), dimension(:,:), allocatable, public ocean_sflx_lh
 ocean surface latent heat flux [J/m2/s] More...
 
real(rp), dimension(:,:,:), allocatable, public ocean_sflx_qtrc
 ocean surface tracer flux [kg/m2/s] More...
 
real(rp), dimension(:,:), allocatable, public ocean_u10
 ocean surface velocity u at 10m [m/s] More...
 
real(rp), dimension(:,:), allocatable, public ocean_v10
 ocean surface velocity v at 10m [m/s] More...
 
real(rp), dimension(:,:), allocatable, public ocean_t2
 ocean surface temperature at 2m [K] More...
 
real(rp), dimension(:,:), allocatable, public ocean_q2
 ocean surface water vapor at 2m [kg/kg] More...
 
real(rp), dimension(:,:), allocatable, target, public ocean_ustar
 ocean surface friction velocity [m/s] More...
 
real(rp), dimension(:,:), allocatable, target, public ocean_tstar
 ocean surface tempreture scale [K] More...
 
real(rp), dimension(:,:), allocatable, target, public ocean_qstar
 ocean surface moisture scale [kg/kg] More...
 
real(rp), dimension(:,:), allocatable, target, public ocean_wstar
 ocean surface convective velocity scale [m/s] More...
 
real(rp), dimension(:,:), allocatable, target, public ocean_rlmo
 ocean surface inversed Obukhov length [1/m] More...
 
real(rp), dimension(:,:), pointer, public ocean_ocn_ustar
 
real(rp), dimension(:,:), pointer, public ocean_ocn_tstar
 
real(rp), dimension(:,:), pointer, public ocean_ocn_qstar
 
real(rp), dimension(:,:), pointer, public ocean_ocn_wstar
 
real(rp), dimension(:,:), pointer, public ocean_ocn_rlmo
 
real(rp), dimension(:,:), allocatable, public ocean_ice_ustar
 
real(rp), dimension(:,:), allocatable, public ocean_ice_tstar
 
real(rp), dimension(:,:), allocatable, public ocean_ice_qstar
 
real(rp), dimension(:,:), allocatable, public ocean_ice_wstar
 
real(rp), dimension(:,:), allocatable, public ocean_ice_rlmo
 
real(rp), dimension(:,:), allocatable, public ocean_ice_frac
 area fraction of sea ice [1] More...
 
logical, public ice_flag
 
real(rp), dimension(:,:), allocatable, public ocean_mass_supl
 
real(rp), dimension(:,:), allocatable, public ocean_engi_supl
 

Detailed Description

module OCEAN Variables

Description
Container for ocean variables
Author
Team SCALE
NAMELIST
  • PARAM_OCEAN_VARS
    nametypedefault valuecomment
    OCEAN_RESTART_IN_BASENAME character(len=H_LONG) '' Basename of the input file
    OCEAN_RESTART_IN_AGGREGATE logical Switch to use aggregate file
    OCEAN_RESTART_IN_POSTFIX_TIMELABEL logical .false. Add timelabel to the basename of input file?
    OCEAN_RESTART_IN_CHECK_COORDINATES logical .true.
    OCEAN_RESTART_OUTPUT logical .false. Output restart file?
    OCEAN_RESTART_OUT_BASENAME character(len=H_LONG) '' Basename of the output file
    OCEAN_RESTART_OUT_AGGREGATE logical Switch to use aggregate file
    OCEAN_RESTART_OUT_POSTFIX_TIMELABEL logical .true. Add timelabel to the basename of output file?
    OCEAN_RESTART_OUT_TITLE character(len=H_MID) 'OCEAN restart' Title of the output file
    OCEAN_RESTART_OUT_DTYPE character(len=H_SHORT) 'DEFAULT' REAL4 or REAL8
    OCEAN_VARS_CHECKRANGE logical .false.

History Output
namedescriptionunitvariable
OCEAN_ICE_FRAC seaice fraction 1 OCEAN_ICE_FRAC
OCEAN_ICE_Qstar moisture scale on sea ice surface kg/kg OCEAN_ICE_Qstar
OCEAN_ICE_RLmo inversed Obukhov length on sea ice surface 1/m OCEAN_ICE_RLmo
OCEAN_ICE_Tstar temperature scale on sea ice surface K OCEAN_ICE_Tstar
OCEAN_ICE_Ustar friction velocity on sea ice surface m/s OCEAN_ICE_Ustar
OCEAN_ICE_Wstar convective velocity scale on sea ice surface m/s OCEAN_ICE_Wstar
OCEAN_OCN_Qstar moisture scale on open ocean surface kg/kg OCEAN_OCN_Qstar
OCEAN_OCN_RLmo inversed Obukhov length on open ocean surface 1/m OCEAN_OCN_RLmo
OCEAN_OCN_Tstar temperature scale on open ocean surface K OCEAN_OCN_Tstar
OCEAN_OCN_Ustar friction velocity on open ocean surface m/s OCEAN_OCN_Ustar
OCEAN_OCN_Wstar convective velocity scale on open ocean surface m/s OCEAN_OCN_Wstar
OCEAN_Q2 ocean 2m specific humidity kg/kg OCEAN_Q2
OCEAN_Qstar ocean moisture scale kg/kg OCEAN_Qstar
OCEAN_RLmo ocean inversed Obukhov length 1/m OCEAN_RLmo
OCEAN_SFLX_ENGI ocean surface internal energy flux (downward) J/m2/s OCEAN_SFLX_ENGI
OCEAN_SFLX_GH ocean subsurface heat flux (downward) J/m2/s OCEAN_SFLX_GH
OCEAN_SFLX_LH ocean surface latent heat flux (upward) J/m2/s OCEAN_SFLX_LH
OCEAN_SFLX_MU ocean surface u-momentum flux (upward) kg/m2/s OCEAN_SFLX_MU
OCEAN_SFLX_MV ocean surface v-momentum flux (upward) kg/m2/s OCEAN_SFLX_MV
OCEAN_SFLX_MW ocean surface w-momentum flux (upward) kg/m2/s OCEAN_SFLX_MW
OCEAN_SFLX_SH ocean surface sensible heat flux (upward) J/m2/s OCEAN_SFLX_SH
OCEAN_SFLX_evap ocean surface water vapor flux (upward) kg/m2/s OCEAN_SFLX_QTRC
OCEAN_SFLX_water ocean surface liquid water flux (downward) kg/m2/s OCEAN_SFLX_water
OCEAN_T2 ocean 2m temperature K OCEAN_T2
OCEAN_Tstar ocean temperature scale K OCEAN_Tstar
OCEAN_U10 ocean 10m x-wind m/s OCEAN_U10
OCEAN_Ustar ocean friction velocity m/s OCEAN_Ustar
OCEAN_V10 ocean 10m y-wind m/s OCEAN_V10
OCEAN_Wstar ocean convective velocity scale m/s OCEAN_Wstar
OCEAN_ICE_MASS seaice mass kg/m2 OCEAN_ICE_MASS
OCEAN_ICE_TEMP seaice temperature K OCEAN_ICE_TEMP
OCEAN_OCN_Z0M open ocean roughness length (momentum) m OCEAN_OCN_Z0M
OCEAN_SFC_ALB_IR_dif ocean surface albedo for IR (diffuse) 1 OCEAN_SFC_albedo
OCEAN_SFC_ALB_IR_dir ocean surface albedo for IR (direct) 1 OCEAN_SFC_albedo
OCEAN_SFC_ALB_NIR_dif ocean surface albedo for NIR (diffuse) 1 OCEAN_SFC_albedo
OCEAN_SFC_ALB_NIR_dir ocean surface albedo for NIR (direct) 1 OCEAN_SFC_albedo
OCEAN_SFC_ALB_VIS_dif ocean surface albedo for VIS (diffuse) 1 OCEAN_SFC_albedo
OCEAN_SFC_ALB_VIS_dir ocean surface albedo for VIS (direct) 1 OCEAN_SFC_albedo
OCEAN_SFC_TEMP ocean surface skin temperature K OCEAN_SFC_TEMP
OCEAN_SFC_Z0E ocean surface roughness length (vapor) m OCEAN_SFC_Z0E
OCEAN_SFC_Z0H ocean surface roughness length (heat) m OCEAN_SFC_Z0H
OCEAN_SFC_Z0M ocean surface roughness length (momentum) m OCEAN_SFC_Z0M
OCEAN_TEMP ocean temperature K OCEAN_TEMP

Function/Subroutine Documentation

◆ ocean_vars_setup()

subroutine, public mod_ocean_vars::ocean_vars_setup

Setup.

Definition at line 284 of file mod_ocean_vars.F90.

284  use scale_prc, only: &
285  prc_abort
286  use scale_const, only: &
287  undef => const_undef
288  use mod_ocean_admin, only: &
289  ocean_ice_type
290  use scale_monitor, only: &
291  monitor_reg
292  implicit none
293 
294  namelist / param_ocean_vars / &
295  ocean_restart_in_basename, &
296  ocean_restart_in_aggregate, &
297  ocean_restart_in_postfix_timelabel, &
298  ocean_restart_in_check_coordinates, &
299  ocean_restart_output, &
300  ocean_restart_out_basename, &
301  ocean_restart_out_aggregate, &
302  ocean_restart_out_postfix_timelabel, &
303  ocean_restart_out_title, &
304  ocean_restart_out_dtype, &
305  ocean_vars_checkrange
306 
307  integer :: ierr
308  integer :: iv
309  !---------------------------------------------------------------------------
310 
311  log_newline
312  log_info("OCEAN_vars_setup",*) 'Setup'
313 
314  select case ( ocean_ice_type )
315  case ( 'NONE','OFF' )
316  ice_flag = .false.
317  case default
318  ice_flag = .true.
319  end select
320 
321  allocate( ocean_temp(okmax,oia,oja) )
322  allocate( ocean_salt(okmax,oia,oja) )
323  allocate( ocean_uvel(okmax,oia,oja) )
324  allocate( ocean_vvel(okmax,oia,oja) )
325  ocean_temp(:,:,:) = undef
326  ocean_salt(:,:,:) = undef
327  ocean_uvel(:,:,:) = undef
328  ocean_vvel(:,:,:) = undef
329 
330  allocate( ocean_ocn_z0m(oia,oja) )
331  ocean_ocn_z0m(:,:) = undef
332 
333  allocate( ocean_sfc_temp(oia,oja) )
334  allocate( ocean_sfc_albedo(oia,oja,n_rad_dir,n_rad_rgn) )
335  allocate( ocean_sfc_z0m(oia,oja) )
336  allocate( ocean_sfc_z0h(oia,oja) )
337  allocate( ocean_sfc_z0e(oia,oja) )
338  ocean_sfc_temp(:,:) = undef
339  ocean_sfc_albedo(:,:,:,:) = undef
340  ocean_sfc_z0m(:,:) = undef
341  ocean_sfc_z0h(:,:) = undef
342  ocean_sfc_z0e(:,:) = undef
343 
344  allocate( ocean_temp_t(okmax,oia,oja) )
345  allocate( ocean_salt_t(okmax,oia,oja) )
346  allocate( ocean_uvel_t(okmax,oia,oja) )
347  allocate( ocean_vvel_t(okmax,oia,oja) )
348  ocean_temp_t(:,:,:) = undef
349  ocean_salt_t(:,:,:) = undef
350  ocean_uvel_t(:,:,:) = undef
351  ocean_vvel_t(:,:,:) = undef
352 
353  if ( ice_flag ) then
354  allocate( ocean_ice_temp(oia,oja) )
355  allocate( ocean_ice_mass(oia,oja) )
356  ocean_ice_temp(:,:) = undef
357  ocean_ice_mass(:,:) = undef
358 
359  allocate( ocean_ice_temp_t(oia,oja) )
360  allocate( ocean_ice_mass_t(oia,oja) )
361  ocean_ice_temp_t(:,:) = undef
362  ocean_ice_mass_t(:,:) = undef
363 
364  end if
365 
366  allocate( atmos_temp(oia,oja) )
367  allocate( atmos_pres(oia,oja) )
368  allocate( atmos_w(oia,oja) )
369  allocate( atmos_u(oia,oja) )
370  allocate( atmos_v(oia,oja) )
371  allocate( atmos_dens(oia,oja) )
372  allocate( atmos_qv(oia,oja) )
373  allocate( atmos_pbl(oia,oja) )
374  allocate( atmos_sfc_dens(oia,oja) )
375  allocate( atmos_sfc_pres(oia,oja) )
376  allocate( atmos_sflx_rad_dn(oia,oja,n_rad_dir,n_rad_rgn) )
377  allocate( atmos_cossza(oia,oja) )
378  allocate( atmos_sflx_water(oia,oja) )
379  allocate( atmos_sflx_engi(oia,oja) )
380  atmos_temp(:,:) = undef
381  atmos_pres(:,:) = undef
382  atmos_w(:,:) = undef
383  atmos_u(:,:) = undef
384  atmos_v(:,:) = undef
385  atmos_dens(:,:) = undef
386  atmos_qv(:,:) = undef
387  atmos_pbl(:,:) = undef
388  atmos_sfc_dens(:,:) = undef
389  atmos_sfc_pres(:,:) = undef
390  atmos_sflx_rad_dn(:,:,:,:) = undef
391  atmos_cossza(:,:) = undef
392  atmos_sflx_water(:,:) = undef
393  atmos_sflx_engi(:,:) = undef
394 
395  allocate( ocean_sflx_gh(oia,oja) )
396  allocate( ocean_sflx_water(oia,oja) )
397  allocate( ocean_sflx_engi(oia,oja) )
398  ocean_sflx_gh(:,:) = undef
399  ocean_sflx_water(:,:) = undef
400  ocean_sflx_engi(:,:) = undef
401  if ( ice_flag ) then
402  allocate( ocean_oflx_gh(oia,oja) )
403  allocate( ocean_oflx_water(oia,oja) )
404  allocate( ocean_oflx_engi(oia,oja) )
405  ocean_oflx_gh(:,:) = undef
406  ocean_oflx_water(:,:) = undef
407  ocean_oflx_engi(:,:) = undef
408  else
409  ocean_oflx_gh => ocean_sflx_gh
410  ocean_oflx_water => ocean_sflx_water
411  ocean_oflx_engi => ocean_sflx_engi
412  end if
413 
414  allocate( ocean_sflx_mw(oia,oja) )
415  allocate( ocean_sflx_mu(oia,oja) )
416  allocate( ocean_sflx_mv(oia,oja) )
417  allocate( ocean_sflx_sh(oia,oja) )
418  allocate( ocean_sflx_lh(oia,oja) )
419  allocate( ocean_sflx_qtrc(oia,oja,qa) )
420  allocate( ocean_u10(oia,oja) )
421  allocate( ocean_v10(oia,oja) )
422  allocate( ocean_t2(oia,oja) )
423  allocate( ocean_q2(oia,oja) )
424  ocean_sflx_mw(:,:) = undef
425  ocean_sflx_mu(:,:) = undef
426  ocean_sflx_mv(:,:) = undef
427  ocean_sflx_sh(:,:) = undef
428  ocean_sflx_lh(:,:) = undef
429  ocean_sflx_qtrc(:,:,:) = undef
430  ocean_u10(:,:) = undef
431  ocean_v10(:,:) = undef
432  ocean_t2(:,:) = undef
433  ocean_q2(:,:) = undef
434 
435  allocate( ocean_ustar(oia,oja) )
436  allocate( ocean_tstar(oia,oja) )
437  allocate( ocean_qstar(oia,oja) )
438  allocate( ocean_wstar(oia,oja) )
439  allocate( ocean_rlmo(oia,oja) )
440  ocean_ustar(:,:) = undef
441  ocean_tstar(:,:) = undef
442  ocean_qstar(:,:) = undef
443  ocean_wstar(:,:) = undef
444  ocean_rlmo(:,:) = undef
445  if ( ice_flag ) then
446  allocate( ocean_ocn_ustar(oia,oja) )
447  allocate( ocean_ocn_tstar(oia,oja) )
448  allocate( ocean_ocn_qstar(oia,oja) )
449  allocate( ocean_ocn_wstar(oia,oja) )
450  allocate( ocean_ocn_rlmo(oia,oja) )
451  ocean_ocn_ustar(:,:) = undef
452  ocean_ocn_tstar(:,:) = undef
453  ocean_ocn_qstar(:,:) = undef
454  ocean_ocn_wstar(:,:) = undef
455  ocean_ocn_rlmo(:,:) = undef
456  else
457  ocean_ocn_ustar => ocean_ustar
458  ocean_ocn_tstar => ocean_tstar
459  ocean_ocn_qstar => ocean_qstar
460  ocean_ocn_wstar => ocean_wstar
461  ocean_ocn_rlmo => ocean_rlmo
462  end if
463  if ( ice_flag ) then
464  allocate( ocean_ice_ustar(oia,oja) )
465  allocate( ocean_ice_tstar(oia,oja) )
466  allocate( ocean_ice_qstar(oia,oja) )
467  allocate( ocean_ice_wstar(oia,oja) )
468  allocate( ocean_ice_rlmo(oia,oja) )
469  ocean_ice_ustar(:,:) = undef
470  ocean_ice_tstar(:,:) = undef
471  ocean_ice_qstar(:,:) = undef
472  ocean_ice_wstar(:,:) = undef
473  ocean_ice_rlmo(:,:) = undef
474  end if
475 
476  allocate( ocean_ice_frac(oia,oja) )
477  ocean_ice_frac(:,:) = undef
478 
479  allocate( ocean_mass_supl(oia,oja) )
480  allocate( ocean_engi_supl(oia,oja) )
481  ocean_mass_supl(:,:) = undef
482  ocean_engi_supl(:,:) = undef
483 
484  !--- read namelist
485  rewind(io_fid_conf)
486  read(io_fid_conf,nml=param_ocean_vars,iostat=ierr)
487  if( ierr < 0 ) then !--- missing
488  log_info("OCEAN_vars_setup",*) 'Not found namelist. Default used.'
489  elseif( ierr > 0 ) then !--- fatal error
490  log_error("OCEAN_vars_setup",*) 'Not appropriate names in namelist PARAM_OCEAN_VARS. Check!'
491  call prc_abort
492  endif
493  log_nml(param_ocean_vars)
494 
495  log_newline
496  log_info("OCEAN_vars_setup",*) 'List of prognostic variables (OCEAN) '
497  log_info_cont('(1x,A,A24,A,A48,A,A12,A)') &
498  ' |','VARNAME ','|','DESCRIPTION ','[','UNIT ',']'
499  do iv = 1, vmax
500  log_info_cont('(1x,A,I3,A,A24,A,A48,A,A12,A)') &
501  'NO.',iv,'|',var_name(iv),'|',var_desc(iv),'[',var_unit(iv),']'
502  enddo
503 
504  log_newline
505  if ( ocean_restart_in_basename /= '' ) then
506  log_info("OCEAN_vars_setup",*) 'Restart input? : YES, file = ', trim(ocean_restart_in_basename)
507  log_info_cont(*) 'Add timelabel? : ', ocean_restart_in_postfix_timelabel
508  else
509  log_info("OCEAN_vars_setup",*) 'Restart input? : NO'
510  endif
511  if ( ocean_restart_output &
512  .AND. ocean_restart_out_basename /= '' ) then
513  log_info("OCEAN_vars_setup",*) 'Restart output? : YES, file = ', trim(ocean_restart_out_basename)
514  log_info_cont(*) 'Add timelabel? : ', ocean_restart_out_postfix_timelabel
515  else
516  log_info("OCEAN_vars_setup",*) 'Restart output? : NO'
517  ocean_restart_output = .false.
518  endif
519 
520  ! monitor
521  call monitor_reg( 'OCN_TEMP', 'sea water temperature', 'K m3', & ! (in)
522  monit_id(im_o_temp), & ! (out)
523  dim_type='OXY', is_tendency=.false. ) ! (in)
524  call monitor_reg( 'OCN_ICE_TEMP', 'sea ice temperature', 'K m3', & ! (in)
525  monit_id(im_i_temp), & ! (out)
526  dim_type='XY', is_tendency=.false. ) ! (in)
527  call monitor_reg( 'OCN_ICE_MASS', 'sea ice mass', 'kg', & ! (in)
528  monit_id(im_i_mass), & ! (out)
529  dim_type='XY', is_tendency=.false. ) ! (in)
530  call monitor_reg( 'OCN_MASFLX_TOP', 'SFC mass flux', 'kg', & ! (in)
531  monit_id(im_sfc), & ! (out)
532  dim_type='XY', is_tendency=.true. ) ! (in)
533  call monitor_reg( 'OCN_MASFLX_MID', 'sea surface mass flux', 'kg', & ! (in)
534  monit_id(im_ssf), & ! (out)
535  dim_type='XY', is_tendency=.true. ) ! (in)
536  call monitor_reg( 'OCN_MAS_SUPL', 'mass supply', 'kg', & ! (in)
537  monit_id(im_mas_supl), & ! (out)
538  dim_type='XY', is_tendency=.true. ) ! (in)
539  call monitor_reg( 'OCN_MASCNV', 'total mass convergence', 'kg', & ! (in)
540  monit_id(im_t_masflx), & ! (out)
541  dim_type='XY', is_tendency=.true. ) ! (in)
542  call monitor_reg( 'OCN_WTR_MASCNV', 'sea water mass convergence', 'kg', & ! (in)
543  monit_id(im_o_masflx), & ! (out)
544  dim_type='XY', is_tendency=.true. ) ! (in)
545  call monitor_reg( 'OCN_ICE_MASCNV', 'sea ice mass convergence', 'kg', & ! (in)
546  monit_id(im_i_masflx), & ! (out)
547  dim_type='XY', is_tendency=.true. ) ! (in)
548  call monitor_reg( 'OCN_WTR_ENGI', 'sea water internal energy', 'J', & ! (in)
549  monit_id(im_o_engi), & ! (out)
550  dim_type='OXY', is_tendency=.false. ) ! (in)
551  call monitor_reg( 'OCN_ICE_ENGI', 'sea ice internal energy', 'J', & ! (in)
552  monit_id(im_i_engi), & ! (out)
553  dim_type='XY', is_tendency=.false. ) ! (in)
554  call monitor_reg( 'OCN_GHFLX_TOP', 'SFC ground heat flux', 'J', & ! (in)
555  monit_id(im_engsfc_gh), & ! (out)
556  dim_type='XY', is_tendency=.true. ) ! (in)
557  call monitor_reg( 'OCN_ENGIFLX_TOP', 'SFC internal energy flux', 'J', & ! (in)
558  monit_id(im_engsfc_ei), & ! (out)
559  dim_type='XY', is_tendency=.true. ) ! (in)
560  call monitor_reg( 'OCN_GHFLX_MID', 'sea surface ground heat flux', 'J', & ! (in)
561  monit_id(im_engssf_gh), & ! (out)
562  dim_type='XY', is_tendency=.true. ) ! (in)
563  call monitor_reg( 'OCN_ENGIFLX_MID', 'sea surface internal energy flux', 'J', & ! (in)
564  monit_id(im_engssf_ei), & ! (out)
565  dim_type='XY', is_tendency=.true. ) ! (in)
566  call monitor_reg( 'OCN_ENGI_SUPL', 'internal energy supply', 'J', & ! (in)
567  monit_id(im_eng_supl), & ! (out)
568  dim_type='XY', is_tendency=.true. ) ! (in)
569  call monitor_reg( 'OCN_ENGICNV', 'total internal energy convergence','J', & ! (in)
570  monit_id(im_t_engflx), & ! (out)
571  dim_type='XY', is_tendency=.true. ) ! (in)
572  call monitor_reg( 'OCN_WTR_ENGICNV', 'sea water internal energy convergence', 'J', & ! (in)
573  monit_id(im_o_engflx), & ! (out)
574  dim_type='XY', is_tendency=.true. ) ! (in)
575  call monitor_reg( 'OCN_ICE_ENGICNV', 'sea ice internal energy convergence', 'J', & ! (in)
576  monit_id(im_i_engflx), & ! (out)
577  dim_type='XY', is_tendency=.true. ) ! (in)
578 
579  return

References atmos_cossza, atmos_dens, atmos_pbl, atmos_pres, atmos_qv, atmos_sfc_dens, atmos_sfc_pres, atmos_sflx_engi, atmos_sflx_rad_dn, atmos_sflx_water, atmos_temp, atmos_u, atmos_v, atmos_w, scale_const::const_undef, ice_flag, scale_io::io_fid_conf, scale_monitor::monitor_reg(), scale_cpl_sfc_index::n_rad_dir, scale_cpl_sfc_index::n_rad_rgn, ocean_engi_supl, ocean_ice_frac, ocean_ice_mass, ocean_ice_mass_t, ocean_ice_qstar, ocean_ice_rlmo, ocean_ice_temp, ocean_ice_temp_t, ocean_ice_tstar, mod_ocean_admin::ocean_ice_type, ocean_ice_ustar, ocean_ice_wstar, ocean_mass_supl, ocean_ocn_qstar, ocean_ocn_rlmo, ocean_ocn_tstar, ocean_ocn_ustar, ocean_ocn_wstar, ocean_ocn_z0m, ocean_oflx_engi, ocean_oflx_gh, ocean_oflx_water, ocean_q2, ocean_qstar, ocean_restart_in_aggregate, ocean_restart_in_basename, ocean_restart_in_postfix_timelabel, ocean_restart_out_aggregate, ocean_restart_out_basename, ocean_restart_out_dtype, ocean_restart_out_postfix_timelabel, ocean_restart_out_title, ocean_restart_output, ocean_rlmo, ocean_salt, ocean_salt_t, ocean_sfc_albedo, ocean_sfc_temp, ocean_sfc_z0e, ocean_sfc_z0h, ocean_sfc_z0m, ocean_sflx_engi, ocean_sflx_gh, ocean_sflx_lh, ocean_sflx_mu, ocean_sflx_mv, ocean_sflx_mw, ocean_sflx_qtrc, ocean_sflx_sh, ocean_sflx_water, ocean_t2, ocean_temp, ocean_temp_t, ocean_tstar, ocean_u10, ocean_ustar, ocean_uvel, ocean_uvel_t, ocean_v10, ocean_vvel, ocean_vvel_t, ocean_wstar, scale_ocean_grid_cartesc_index::oia, scale_ocean_grid_cartesc_index::oja, scale_ocean_grid_cartesc_index::okmax, scale_prc::prc_abort(), and scale_tracer::qa.

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_restart_open()

subroutine, public mod_ocean_vars::ocean_vars_restart_open

Open ocean restart file for read.

Definition at line 585 of file mod_ocean_vars.F90.

585  use scale_time, only: &
586  time_gettimelabel
587  use scale_file_cartesc, only: &
588  file_cartesc_open, &
589  file_cartesc_check_coordinates
590  use mod_ocean_admin, only: &
591  ocean_do
592  implicit none
593 
594  character(len=19) :: timelabel
595  character(len=H_LONG) :: basename
596  !---------------------------------------------------------------------------
597 
598  log_newline
599  log_info("OCEAN_vars_restart_open",*) 'Open restart file (OCEAN) '
600 
601  if ( ocean_do .and. ocean_restart_in_basename /= '' ) then
602 
603  if ( ocean_restart_in_postfix_timelabel ) then
604  call time_gettimelabel( timelabel )
605  basename = trim(ocean_restart_in_basename)//'_'//trim(timelabel)
606  else
607  basename = trim(ocean_restart_in_basename)
608  endif
609  log_info_cont(*) 'basename: ', trim(basename)
610 
611  call file_cartesc_open( basename, restart_fid, aggregate=ocean_restart_in_aggregate )
612 
613  if( ocean_restart_in_check_coordinates ) call file_cartesc_check_coordinates( restart_fid )
614 
615  else
616  log_info_cont(*) 'restart file for ocean is not specified.'
617  endif
618 
619  return

References scale_file_cartesc::file_cartesc_open(), mod_ocean_admin::ocean_do, ocean_restart_in_aggregate, ocean_restart_in_basename, ocean_restart_in_postfix_timelabel, and scale_time::time_gettimelabel().

Referenced by mod_admin_restart::admin_restart_read().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_restart_read()

subroutine, public mod_ocean_vars::ocean_vars_restart_read

Read ocean restart.

Definition at line 625 of file mod_ocean_vars.F90.

625  use scale_prc, only: &
626  prc_abort
627  use scale_file, only: &
628  file_get_aggregate
629  use scale_file_cartesc, only: &
630  file_cartesc_read, &
631  file_cartesc_flush
632  use scale_ocean_phy_ice_simple, only: &
633  ocean_phy_ice_freezetemp, &
634  ocean_phy_ice_fraction
635  use mod_ocean_admin, only: &
636  ocean_ice_type
637  implicit none
638  !---------------------------------------------------------------------------
639 
640  if ( restart_fid /= -1 ) then
641  log_newline
642  log_info("OCEAN_vars_restart_read",*) 'Read from restart file (OCEAN) '
643 
644  call file_cartesc_read( restart_fid, var_name(i_temp), 'OXY', & ! [IN]
645  ocean_temp(:,:,:) ) ! [OUT]
646 ! call FILE_CARTESC_read( restart_fid, VAR_NAME(I_SALT), 'OXY', & ! [IN]
647 ! OCEAN_SALT(:,:,:) ) ! [OUT]
648 ! call FILE_CARTESC_read( restart_fid, VAR_NAME(I_UVEL), 'OXY', & ! [IN]
649 ! OCEAN_UVEL(:,:,:) ) ! [OUT]
650 ! call FILE_CARTESC_read( restart_fid, VAR_NAME(I_VVEL), 'OXY', & ! [IN]
651 ! OCEAN_VVEL(:,:,:) ) ! [OUT]
652  call file_cartesc_read( restart_fid, var_name(i_ocn_z0m), 'XY', & ! [IN]
653  ocean_ocn_z0m(:,:) ) ! [OUT]
654  call file_cartesc_read( restart_fid, var_name(i_sfc_temp), 'XY', & ! [IN]
655  ocean_sfc_temp(:,:) ) ! [OUT]
656  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_ir_dir), 'XY', & ! [IN]
657  ocean_sfc_albedo(:,:,i_r_direct ,i_r_ir ) ) ! [OUT]
658  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_ir_dif), 'XY', & ! [IN]
659  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_ir ) ) ! [OUT]
660  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_nir_dir), 'XY', & ! [IN]
661  ocean_sfc_albedo(:,:,i_r_direct ,i_r_nir) ) ! [OUT]
662  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_nir_dif), 'XY', & ! [IN]
663  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_nir) ) ! [OUT]
664  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_vis_dir), 'XY', & ! [IN]
665  ocean_sfc_albedo(:,:,i_r_direct ,i_r_vis) ) ! [OUT]
666  call file_cartesc_read( restart_fid, var_name(i_sfc_alb_vis_dif), 'XY', & ! [IN]
667  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_vis) ) ! [OUT]
668  call file_cartesc_read( restart_fid, var_name(i_sfc_z0m), 'XY', & ! [IN]
669  ocean_sfc_z0m(:,:) ) ! [OUT]
670  call file_cartesc_read( restart_fid, var_name(i_sfc_z0h), 'XY', & ! [IN]
671  ocean_sfc_z0h(:,:) ) ! [OUT]
672  call file_cartesc_read( restart_fid, var_name(i_sfc_z0e), 'XY', & ! [IN]
673  ocean_sfc_z0e(:,:) ) ! [OUT]
674  if ( ice_flag ) then
675  call file_cartesc_read( restart_fid, var_name(i_ice_temp), 'XY', & ! [IN]
676  ocean_ice_temp(:,:) ) ! [OUT]
677  call file_cartesc_read( restart_fid, var_name(i_ice_mass), 'XY', & ! [IN]
678  ocean_ice_mass(:,:) ) ! [OUT]
679  end if
680 
681  if( file_get_aggregate(restart_fid) ) call file_cartesc_flush( restart_fid ) ! commit all pending read requests
682 
683 
684  if ( ice_flag ) then
685  ocean_ice_temp(:,:) = min( ocean_ice_temp(:,:), ocean_phy_ice_freezetemp )
686  call ocean_phy_ice_fraction( oia, ois, oie, & ! [IN]
687  oja, ojs, oje, & ! [IN]
688  ocean_ice_mass(:,:), & ! [IN]
689  ocean_ice_frac(:,:) ) ! [OUT]
690  else
691  ocean_ice_frac(:,:) = 0.0_rp
692  endif
693 
694  call ocean_vars_check( force = .true. )
695  else
696  log_error("OCEAN_vars_restart_read",*) 'invalid restart file ID for ocean.'
697  call prc_abort
698  endif
699 
700  return

References scale_file_cartesc::file_cartesc_flush(), scale_file::file_get_aggregate(), scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, ice_flag, ocean_ice_frac, ocean_ice_mass, ocean_ice_temp, mod_ocean_admin::ocean_ice_type, ocean_ocn_z0m, scale_ocean_phy_ice_simple::ocean_phy_ice_fraction(), scale_ocean_phy_ice_simple::ocean_phy_ice_freezetemp, ocean_sfc_albedo, ocean_sfc_temp, ocean_sfc_z0e, ocean_sfc_z0h, ocean_sfc_z0m, ocean_temp, ocean_vars_check(), scale_ocean_grid_cartesc_index::oia, scale_ocean_grid_cartesc_index::oie, scale_ocean_grid_cartesc_index::ois, scale_ocean_grid_cartesc_index::oja, scale_ocean_grid_cartesc_index::oje, scale_ocean_grid_cartesc_index::ojs, and scale_prc::prc_abort().

Referenced by mod_admin_restart::admin_restart_read().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_history()

subroutine, public mod_ocean_vars::ocean_vars_history

History output set for ocean variables.

Definition at line 706 of file mod_ocean_vars.F90.

706  use scale_file_history, only: &
707  file_history_in
708  use scale_atmos_hydrometeor, only: &
709  i_qv
710  implicit none
711  !---------------------------------------------------------------------------
712 
713  call prof_rapstart('OCN_History', 1)
714 
715  call file_history_in( ocean_temp(:,:,:), &
716  var_name(i_temp), var_desc(i_temp), &
717  var_unit(i_temp), standard_name=var_stdn(i_temp), &
718  dim_type="OXY" )
719 ! call FILE_HISTORY_in( OCEAN_SALT (:,:,:), &
720 ! VAR_NAME(I_SALT), VAR_DESC(I_SALT), &
721 ! VAR_UNIT(I_SALT), standard_name=VAR_STDN(I_SALT), &
722 ! dim_type="OXY" )
723 ! call FILE_HISTORY_in( OCEAN_UVEL (:,:,:), &
724 ! VAR_NAME(I_UVEL), VAR_DESC(I_UVEL), &
725 ! VAR_UNIT(I_UVEL), standard_name=VAR_STDN(I_UVEL), &
726 ! dim_type="OXY" )
727 ! call FILE_HISTORY_in( OCEAN_VVEL (:,:,:), &
728 ! VAR_NAME(I_VVEL), VAR_DESC(I_VVEL), &
729 ! VAR_UNIT(I_VVEL), standard_name=VAR_STDN(I_VVEL), &
730 ! dim_type="OXY" )
731 
732  call file_history_in( ocean_ocn_z0m(:,:), &
733  var_name(i_ocn_z0m), var_desc(i_ocn_z0m), &
734  var_unit(i_ocn_z0m), standard_name=var_stdn(i_ocn_z0m) )
735  call file_history_in( ocean_sfc_temp(:,:), &
736  var_name(i_sfc_temp), var_desc(i_sfc_temp), &
737  var_unit(i_sfc_temp), standard_name=var_stdn(i_sfc_temp) )
738  call file_history_in( ocean_sfc_albedo(:,:,i_r_direct ,i_r_ir ), &
739  var_name(i_sfc_alb_ir_dir), var_desc(i_sfc_alb_ir_dir), &
740  var_unit(i_sfc_alb_ir_dir), standard_name=var_stdn(i_sfc_alb_ir_dir) )
741  call file_history_in( ocean_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), &
742  var_name(i_sfc_alb_ir_dif), var_desc(i_sfc_alb_ir_dif), &
743  var_unit(i_sfc_alb_ir_dif), standard_name=var_stdn(i_sfc_alb_ir_dif) )
744  call file_history_in( ocean_sfc_albedo(:,:,i_r_direct ,i_r_nir), &
745  var_name(i_sfc_alb_nir_dir), var_desc(i_sfc_alb_nir_dir), &
746  var_unit(i_sfc_alb_nir_dir), standard_name=var_stdn(i_sfc_alb_nir_dir) )
747  call file_history_in( ocean_sfc_albedo(:,:,i_r_diffuse,i_r_nir), &
748  var_name(i_sfc_alb_nir_dif), var_desc(i_sfc_alb_nir_dif), &
749  var_unit(i_sfc_alb_nir_dif), standard_name=var_stdn(i_sfc_alb_nir_dif) )
750  call file_history_in( ocean_sfc_albedo(:,:,i_r_direct ,i_r_vis), &
751  var_name(i_sfc_alb_vis_dir), var_desc(i_sfc_alb_vis_dir), &
752  var_unit(i_sfc_alb_vis_dir), standard_name=var_stdn(i_sfc_alb_vis_dir) )
753  call file_history_in( ocean_sfc_albedo(:,:,i_r_diffuse,i_r_vis), &
754  var_name(i_sfc_alb_vis_dif), var_desc(i_sfc_alb_vis_dif), &
755  var_unit(i_sfc_alb_vis_dif), standard_name=var_stdn(i_sfc_alb_vis_dif) )
756  call file_history_in( ocean_sfc_z0m(:,:), &
757  var_name(i_sfc_z0m), var_desc(i_sfc_z0m), &
758  var_unit(i_sfc_z0m), standard_name=var_stdn(i_sfc_z0m) )
759  call file_history_in( ocean_sfc_z0h(:,:), &
760  var_name(i_sfc_z0h), var_desc(i_sfc_z0h), &
761  var_unit(i_sfc_z0h), standard_name=var_stdn(i_sfc_z0h) )
762  call file_history_in( ocean_sfc_z0e(:,:), &
763  var_name(i_sfc_z0e), var_desc(i_sfc_z0e), &
764  var_unit(i_sfc_z0e), standard_name=var_stdn(i_sfc_z0h) )
765 
766  if ( ice_flag ) then
767  call file_history_in( ocean_ice_temp(:,:), &
768  var_name(i_ice_temp), var_desc(i_ice_temp), &
769  var_unit(i_ice_temp), standard_name=var_stdn(i_ice_temp) )
770  call file_history_in( ocean_ice_mass(:,:), &
771  var_name(i_ice_mass), var_desc(i_ice_mass), &
772  var_unit(i_ice_mass), standard_name=var_stdn(i_ice_mass) )
773  end if
774 
775  call file_history_in( ocean_sflx_gh(:,:), 'OCEAN_SFLX_GH', &
776  'ocean subsurface heat flux (downward)', 'J/m2/s' )
777  call file_history_in( ocean_sflx_water(:,:), 'OCEAN_SFLX_water', &
778  'ocean surface liquid water flux (downward)', 'kg/m2/s' )
779  call file_history_in( ocean_sflx_engi(:,:), 'OCEAN_SFLX_ENGI', &
780  'ocean surface internal energy flux (downward)', 'J/m2/s' )
781 
782  call file_history_in( ocean_sflx_mw(:,:), 'OCEAN_SFLX_MW', &
783  'ocean surface w-momentum flux (upward)', 'kg/m2/s' )
784  call file_history_in( ocean_sflx_mu(:,:), 'OCEAN_SFLX_MU', &
785  'ocean surface u-momentum flux (upward)', 'kg/m2/s' )
786  call file_history_in( ocean_sflx_mv(:,:), 'OCEAN_SFLX_MV', &
787  'ocean surface v-momentum flux (upward)', 'kg/m2/s' )
788  call file_history_in( ocean_sflx_sh(:,:), 'OCEAN_SFLX_SH', &
789  'ocean surface sensible heat flux (upward)', 'J/m2/s' )
790  call file_history_in( ocean_sflx_lh(:,:), 'OCEAN_SFLX_LH', &
791  'ocean surface latent heat flux (upward)', 'J/m2/s' )
792  if ( i_qv > 0 ) &
793  call file_history_in( ocean_sflx_qtrc(:,:,i_qv), 'OCEAN_SFLX_evap', &
794  'ocean surface water vapor flux (upward)', 'kg/m2/s' )
795  call file_history_in( ocean_u10(:,:), 'OCEAN_U10', &
796  'ocean 10m x-wind', 'm/s' )
797  call file_history_in( ocean_v10(:,:), 'OCEAN_V10', &
798  'ocean 10m y-wind', 'm/s' )
799  call file_history_in( ocean_t2(:,:), 'OCEAN_T2', &
800  'ocean 2m temperature', 'K' )
801  call file_history_in( ocean_q2(:,:), 'OCEAN_Q2', &
802  'ocean 2m specific humidity', 'kg/kg' )
803  call file_history_in( ocean_ustar(:,:), 'OCEAN_Ustar', &
804  'ocean friction velocity', 'm/s' )
805  call file_history_in( ocean_tstar(:,:), 'OCEAN_Tstar', &
806  'ocean temperature scale', 'K' )
807  call file_history_in( ocean_qstar(:,:), 'OCEAN_Qstar', &
808  'ocean moisture scale', 'kg/kg' )
809  call file_history_in( ocean_wstar(:,:), 'OCEAN_Wstar', &
810  'ocean convective velocity scale', 'm/s' )
811  call file_history_in( ocean_rlmo(:,:), 'OCEAN_RLmo', &
812  'ocean inversed Obukhov length', '1/m' )
813 
814  if ( ice_flag ) then
815  call file_history_in( ocean_ocn_ustar(:,:), 'OCEAN_OCN_Ustar', 'friction velocity on open ocean surface', 'm/s' )
816  call file_history_in( ocean_ocn_tstar(:,:), 'OCEAN_OCN_Tstar', 'temperature scale on open ocean surface', 'K' )
817  call file_history_in( ocean_ocn_qstar(:,:), 'OCEAN_OCN_Qstar', 'moisture scale on open ocean surface', 'kg/kg' )
818  call file_history_in( ocean_ocn_wstar(:,:), 'OCEAN_OCN_Wstar', 'convective velocity scale on open ocean surface', 'm/s' )
819  call file_history_in( ocean_ocn_rlmo(:,:), 'OCEAN_OCN_RLmo', 'inversed Obukhov length on open ocean surface', '1/m' )
820  call file_history_in( ocean_ice_ustar(:,:), 'OCEAN_ICE_Ustar', 'friction velocity on sea ice surface', 'm/s' )
821  call file_history_in( ocean_ice_tstar(:,:), 'OCEAN_ICE_Tstar', 'temperature scale on sea ice surface', 'K', dim_type='XY' )
822  call file_history_in( ocean_ice_qstar(:,:), 'OCEAN_ICE_Qstar', 'moisture scale on sea ice surface', 'kg/kg' )
823  call file_history_in( ocean_ice_wstar(:,:), 'OCEAN_ICE_Wstar', 'convective velocity scale on sea ice surface', 'm/s' )
824  call file_history_in( ocean_ice_rlmo(:,:), 'OCEAN_ICE_RLmo', 'inversed Obukhov length on sea ice surface', '1/m' )
825 
826  call file_history_in( ocean_ice_frac(:,:), 'OCEAN_ICE_FRAC', 'seaice fraction', '1' )
827  end if
828 
829  call prof_rapend ('OCN_History', 1)
830 
831  return

References scale_atmos_hydrometeor::i_qv, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, ice_flag, ocean_ice_frac, ocean_ice_mass, ocean_ice_qstar, ocean_ice_rlmo, ocean_ice_temp, ocean_ice_tstar, ocean_ice_ustar, ocean_ice_wstar, ocean_ocn_qstar, ocean_ocn_rlmo, ocean_ocn_tstar, ocean_ocn_ustar, ocean_ocn_wstar, ocean_ocn_z0m, ocean_q2, ocean_qstar, ocean_rlmo, ocean_sfc_albedo, ocean_sfc_temp, ocean_sfc_z0e, ocean_sfc_z0h, ocean_sfc_z0m, ocean_sflx_engi, ocean_sflx_gh, ocean_sflx_lh, ocean_sflx_mu, ocean_sflx_mv, ocean_sflx_mw, ocean_sflx_qtrc, ocean_sflx_sh, ocean_sflx_water, ocean_t2, ocean_temp, ocean_tstar, ocean_u10, ocean_ustar, ocean_v10, ocean_wstar, scale_prof::prof_rapend(), and scale_prof::prof_rapstart().

Referenced by mod_rm_driver::restart_read(), and mod_rm_driver::rm_driver().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_check()

subroutine, public mod_ocean_vars::ocean_vars_check ( logical, intent(in), optional  force)

Budget monitor for ocean.

Definition at line 837 of file mod_ocean_vars.F90.

837  use scale_statistics, only: &
838  statistics_checktotal, &
839  statistics_total
840  use scale_atmos_hydrometeor, only: &
841  i_qv
842  use scale_ocean_grid_cartesc_real, only: &
843  ocean_grid_cartesc_real_area, &
844  ocean_grid_cartesc_real_totarea, &
845  ocean_grid_cartesc_real_vol, &
846  ocean_grid_cartesc_real_totvol
847  use scale_landuse, only: &
848  landuse_exists_ocean
849  implicit none
850  logical, intent(in), optional :: force
851  logical :: check
852  !---------------------------------------------------------------------------
853 
854  if ( present(force) ) then
855  check = force
856  else
857  check = ocean_vars_checkrange
858  end if
859 
860  if ( check ) then
861  call valcheck( oka, oks, oke, oia, ois, oie, oja, ojs, oje, &
862  ocean_temp(:,:,:), 0.0_rp, 1000.0_rp, &
863  var_name(i_temp), __file__, __line__, &
864  mask = landuse_exists_ocean(:,:) )
865 ! call VALCHECK( OKA, OKS, OKE, OIA, OIS, OIE, OJA, OJS, OJE, &
866 ! OCEAN_SALT (:,:,:), 0.0_RP, 1000.0_RP, &
867 ! VAR_NAME(I_SALT), __FILE__, __LINE__, &
868 ! mask = LANDUSE_exists_ocean(:,:) )
869 ! call VALCHECK( OKA, OKS, OKE, OIA, OIS, OIE, OJA, OJS, OJE, &
870 ! OCEAN_UVEL (:,:,:), 0.0_RP, 1000.0_RP, &
871 ! VAR_NAME(I_UVEL), __FILE__, __LINE__, &
872 ! mask = LANDUSE_exists_ocean(:,:) )
873 ! call VALCHECK( OKA, OKS, OKE, OIA, OIS, OIE, OJA, OJS, OJE, &
874 ! OCEAN_VVEL (:,:,:), 0.0_RP, 1000.0_RP, &
875 ! VAR_NAME(I_VVEL), __FILE__, __LINE__, &
876 ! mask = LANDUSE_exists_ocean(:,:) )
877 
878  call valcheck( oia, ois, oie, oja, ojs, oje, &
879  ocean_ocn_z0m(:,:), 0.0_rp, 1000.0_rp, &
880  var_name(i_ocn_z0m), __file__, __line__, &
881  mask = landuse_exists_ocean(:,:) )
882  call valcheck( oia, ois, oie, oja, ojs, oje, &
883  ocean_sfc_temp(:,:), 0.0_rp, 1000.0_rp, &
884  var_name(i_sfc_temp), __file__, __line__, &
885  mask = landuse_exists_ocean(:,:) )
886  call valcheck( oia, ois, oie, oja, ojs, oje, &
887  ocean_sfc_albedo(:,:,i_r_direct ,i_r_ir ), 0.0_rp, 2.0_rp, &
888  var_name(i_sfc_alb_ir_dir ), __file__, __line__, &
889  mask = landuse_exists_ocean(:,:) )
890  call valcheck( oia, ois, oie, oja, ojs, oje, &
891  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), 0.0_rp, 2.0_rp, &
892  var_name(i_sfc_alb_ir_dif ), __file__, __line__, &
893  mask = landuse_exists_ocean(:,:) )
894  call valcheck( oia, ois, oie, oja, ojs, oje, &
895  ocean_sfc_albedo(:,:,i_r_direct ,i_r_nir), 0.0_rp, 2.0_rp, &
896  var_name(i_sfc_alb_nir_dir), __file__, __line__, &
897  mask = landuse_exists_ocean(:,:) )
898  call valcheck( oia, ois, oie, oja, ojs, oje, &
899  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_nir), 0.0_rp, 2.0_rp, &
900  var_name(i_sfc_alb_nir_dif), __file__, __line__, &
901  mask = landuse_exists_ocean(:,:) )
902  call valcheck( oia, ois, oie, oja, ojs, oje, &
903  ocean_sfc_albedo(:,:,i_r_direct ,i_r_vis), 0.0_rp, 2.0_rp, &
904  var_name(i_sfc_alb_vis_dir), __file__, __line__, &
905  mask = landuse_exists_ocean(:,:) )
906  call valcheck( oia, ois, oie, oja, ojs, oje, &
907  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_vis), 0.0_rp, 2.0_rp, &
908  var_name(i_sfc_alb_vis_dif), __file__, __line__, &
909  mask = landuse_exists_ocean(:,:) )
910  call valcheck( oia, ois, oie, oja, ojs, oje, &
911  ocean_sfc_z0m(:,:), 0.0_rp, 1000.0_rp, &
912  var_name(i_sfc_z0m), __file__, __line__, &
913  mask = landuse_exists_ocean(:,:) )
914  call valcheck( oia, ois, oie, oja, ojs, oje, &
915  ocean_sfc_z0h(:,:), 0.0_rp, 1000.0_rp, &
916  var_name(i_sfc_z0h), __file__, __line__, &
917  mask = landuse_exists_ocean(:,:) )
918  call valcheck( oia, ois, oie, oja, ojs, oje, &
919  ocean_sfc_z0e(:,:), 0.0_rp, 1000.0_rp, &
920  var_name(i_sfc_z0e), __file__, __line__, &
921  mask = landuse_exists_ocean(:,:) )
922  if ( ice_flag ) then
923  call valcheck( oia, ois, oie, oja, ojs, oje, &
924  ocean_ice_temp(:,:), 0.0_rp, 1000.0_rp, &
925  var_name(i_ice_temp), __file__, __line__, &
926  mask = landuse_exists_ocean(:,:) )
927  call valcheck( oia, ois, oie, oja, ojs, oje, &
928  ocean_ice_mass(:,:), 0.0_rp, 5e+5_rp, &
929  var_name(i_ice_mass), __file__, __line__, &
930  mask = landuse_exists_ocean(:,:) )
931  end if
932 
933  endif
934 
935  if ( present(force) ) then
936  check = force
937  else
938  check = statistics_checktotal
939  end if
940 
941  if ( check ) then
942 
943  call statistics_total( oka, oks, oke, oia, ois, oie, oja, ojs, oje, & ! [IN]
944  ocean_temp(:,:,:), var_name(i_temp), & ! [IN]
945  ocean_grid_cartesc_real_vol(:,:,:), & ! [IN]
946  ocean_grid_cartesc_real_totvol ) ! [IN]
947 ! call STATISTICS_total( OKA, OKS, OKE, OIA, OIS, OIE, OJA, OJS, OJE, & ! [IN]
948 ! OCEAN_SALT(:,:,:), VAR_NAME(I_SALT), & ! [IN]
949 ! OCEAN_GRID_CARTESC_REAL_VOL(:,:,:), & ! [IN]
950 ! OCEAN_GRID_CARTESC_REAL_TOTVOL ) ! [IN]
951 ! call STATISTICS_total( OKA, OKS, OKE, OIA, OIS, OIE, OJA, OJS, OJE, & ! [IN]
952 ! OCEAN_UVEL(:,:,:), VAR_NAME(I_UVEL), & ! [IN]
953 ! OCEAN_GRID_CARTESC_REAL_VOL(:,:,:), & ! [IN]
954 ! OCEAN_GRID_CARTESC_REAL_TOTVOL ) ! [IN]
955 ! call STATISTICS_total( OKA, OKS, OKE, OIA, OIS, OIE, OJA, OJS, OJE, & ! [IN]
956 ! OCEAN_VVEL(:,:,:), VAR_NAME(I_VVEL), & ! [IN]
957 ! OCEAN_GRID_CARTESC_REAL_VOL(:,:,:), & ! [IN]
958 ! OCEAN_GRID_CARTESC_REAL_TOTVOL ) ! [IN]
959 
960  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
961  ocean_ocn_z0m(:,:), var_name(i_ocn_z0m), & ! [IN]
962  ocean_grid_cartesc_real_area(:,:), & ! [IN]
963  ocean_grid_cartesc_real_totarea ) ! [IN]
964  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
965  ocean_sfc_temp(:,:), var_name(i_sfc_temp), & ! [IN]
966  ocean_grid_cartesc_real_area(:,:), & ! [IN]
967  ocean_grid_cartesc_real_totarea ) ! [IN]
968  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
969  ocean_sfc_albedo(:,:,i_r_direct ,i_r_ir ), var_name(i_sfc_alb_ir_dir), & ! [IN]
970  ocean_grid_cartesc_real_area(:,:), & ! [IN]
971  ocean_grid_cartesc_real_totarea ) ! [IN]
972  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
973  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), var_name(i_sfc_alb_ir_dif), & ! [IN]
974  ocean_grid_cartesc_real_area(:,:), & ! [IN]
975  ocean_grid_cartesc_real_totarea ) ! [IN]
976  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
977  ocean_sfc_albedo(:,:,i_r_direct ,i_r_nir), var_name(i_sfc_alb_nir_dir), & ! [IN]
978  ocean_grid_cartesc_real_area(:,:), & ! [IN]
979  ocean_grid_cartesc_real_totarea ) ! [IN]
980  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
981  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_nir), var_name(i_sfc_alb_nir_dif), & ! [IN]
982  ocean_grid_cartesc_real_area(:,:), & ! [IN]
983  ocean_grid_cartesc_real_totarea ) ! [IN]
984  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
985  ocean_sfc_albedo(:,:,i_r_direct ,i_r_vis), var_name(i_sfc_alb_vis_dir), & ! [IN]
986  ocean_grid_cartesc_real_area(:,:), & ! [IN]
987  ocean_grid_cartesc_real_totarea ) ! [IN]
988  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
989  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_vis), var_name(i_sfc_alb_vis_dif), & ! [IN]
990  ocean_grid_cartesc_real_area(:,:), & ! [IN]
991  ocean_grid_cartesc_real_totarea ) ! [IN]
992  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
993  ocean_sfc_z0m(:,:), var_name(i_sfc_z0m), & ! [IN]
994  ocean_grid_cartesc_real_area(:,:), & ! [IN]
995  ocean_grid_cartesc_real_totarea ) ! [IN]
996  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
997  ocean_sfc_z0h(:,:), var_name(i_sfc_z0h), & ! [IN]
998  ocean_grid_cartesc_real_area(:,:), & ! [IN]
999  ocean_grid_cartesc_real_totarea ) ! [IN]
1000  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
1001  ocean_sfc_z0e(:,:), var_name(i_sfc_z0e), & ! [IN]
1002  ocean_grid_cartesc_real_area(:,:), & ! [IN]
1003  ocean_grid_cartesc_real_totarea ) ! [IN]
1004 
1005  if ( ice_flag ) then
1006  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
1007  ocean_ice_temp(:,:), var_name(i_ice_temp), & ! [IN]
1008  ocean_grid_cartesc_real_area(:,:), & ! [IN]
1009  ocean_grid_cartesc_real_totarea ) ! [IN]
1010  call statistics_total( oia, ois, oie, oja, ojs, oje, & ! [IN]
1011  ocean_ice_mass(:,:), var_name(i_ice_mass), & ! [IN]
1012  ocean_grid_cartesc_real_area(:,:), & ! [IN]
1013  ocean_grid_cartesc_real_totarea ) ! [IN]
1014  end if
1015 
1016  endif
1017 
1018  return

References scale_debug::check(), scale_atmos_hydrometeor::i_qv, scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, ice_flag, scale_landuse::landuse_exists_ocean, scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_area, scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totarea, scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totvol, scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_vol, ocean_ice_mass, ocean_ice_temp, ocean_ocn_z0m, ocean_sfc_albedo, ocean_sfc_temp, ocean_sfc_z0e, ocean_sfc_z0h, ocean_sfc_z0m, ocean_temp, scale_ocean_grid_cartesc_index::oia, scale_ocean_grid_cartesc_index::oie, scale_ocean_grid_cartesc_index::ois, scale_ocean_grid_cartesc_index::oja, scale_ocean_grid_cartesc_index::oje, scale_ocean_grid_cartesc_index::ojs, scale_ocean_grid_cartesc_index::oka, scale_ocean_grid_cartesc_index::oke, scale_ocean_grid_cartesc_index::oks, and scale_statistics::statistics_checktotal.

Referenced by mod_ocean_driver::ocean_driver_update(), ocean_vars_restart_read(), and ocean_vars_restart_write().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_monitor()

subroutine, public mod_ocean_vars::ocean_vars_monitor

monitor output

Definition at line 1024 of file mod_ocean_vars.F90.

1024  use scale_const, only: &
1025  dwatr => const_dwatr
1026  use scale_atmos_hydrometeor, only: &
1027  cv_water, &
1028  cv_ice, &
1029  lhf
1030  use scale_monitor, only: &
1031  monitor_put
1032  implicit none
1033 
1034  real(RP) :: WORK3D(OKA,OIA,OJA)
1035  real(RP) :: WORK2D(OIA,OJA)
1036 
1037  integer :: k, i, j
1038  !---------------------------------------------------------------------------
1039 
1040  call monitor_put( monit_id(im_o_temp), ocean_temp(:,:,:) )
1041  call monitor_put( monit_id(im_i_temp), ocean_ice_temp(:,:) )
1042  call monitor_put( monit_id(im_i_mass), ocean_ice_mass(:,:) )
1043 
1044 
1045  ! mass budget
1046  call monitor_put( monit_id(im_sfc), ocean_sflx_water(:,:) )
1047  call monitor_put( monit_id(im_ssf), ocean_oflx_water(:,:) )
1048  call monitor_put( monit_id(im_mas_supl), ocean_mass_supl(:,:) )
1049  if ( monit_id(im_t_masflx) > 0 ) then
1050  !$omp parallel do
1051  do j = ojs, oje
1052  do i = ois, oie
1053  work2d(i,j) = ocean_sflx_water(i,j) + ocean_mass_supl(i,j)
1054  end do
1055  end do
1056  call monitor_put( monit_id(im_t_masflx), work2d(:,:) )
1057  end if
1058  if ( monit_id(im_o_masflx) > 0 ) then
1059  !$omp parallel do
1060  do j = ojs, oje
1061  do i = ois, oie
1062  work2d(i,j) = ocean_oflx_water(i,j) + ocean_mass_supl(i,j)
1063  end do
1064  end do
1065  call monitor_put( monit_id(im_o_masflx), work2d(:,:) )
1066  end if
1067  if ( monit_id(im_i_masflx) > 0 ) then
1068  !$omp parallel do
1069  do j = ojs, oje
1070  do i = ois, oie
1071  work2d(i,j) = ocean_sflx_water(i,j) - ocean_oflx_water(i,j)
1072  end do
1073  end do
1074  call monitor_put( monit_id(im_i_masflx), work2d(:,:) )
1075  end if
1076 
1077 
1078  ! energy budget
1079  if ( monit_id(im_o_engi) > 0 ) then
1080  !$omp parallel do
1081  do j = ojs, oje
1082  do i = ois, oie
1083  do k = oks, oke
1084  work3d(k,i,j) = cv_water * dwatr * ocean_temp(k,i,j)
1085  end do
1086  end do
1087  end do
1088  call monitor_put( monit_id(im_o_engi), work3d(:,:,:) )
1089  end if
1090  if ( monit_id(im_i_engi) > 0 ) then
1091  !$omp parallel do
1092  do j = ojs, oje
1093  do i = ois, oie
1094  work2d(i,j) = ( cv_ice * ocean_ice_temp(i,j) - lhf ) * ocean_ice_mass(i,j)
1095  end do
1096  end do
1097  call monitor_put( monit_id(im_i_engi), work2d(:,:) )
1098  end if
1099 
1100 
1101  call monitor_put( monit_id(im_engsfc_gh), ocean_sflx_gh(:,:) )
1102  call monitor_put( monit_id(im_engsfc_ei), ocean_sflx_engi(:,:) )
1103  call monitor_put( monit_id(im_engssf_gh), ocean_oflx_gh(:,:) )
1104  call monitor_put( monit_id(im_engssf_ei), ocean_oflx_engi(:,:) )
1105  call monitor_put( monit_id(im_eng_supl) , ocean_engi_supl(:,:) )
1106  if ( monit_id(im_t_engflx) > 0 ) then
1107  !$omp parallel do
1108  do j = ojs, oje
1109  do i = ois, oie
1110  work2d(i,j) = ocean_sflx_gh(i,j) + ocean_sflx_engi(i,j) &
1111  + ocean_engi_supl(i,j)
1112  end do
1113  end do
1114  call monitor_put( monit_id(im_t_engflx), work2d(:,:) )
1115  end if
1116  if ( monit_id(im_o_engflx) > 0 ) then
1117  !$omp parallel do
1118  do j = ojs, oje
1119  do i = ois, oie
1120  work2d(i,j) = ocean_oflx_gh(i,j) + ocean_oflx_engi(i,j) &
1121  + ocean_engi_supl(i,j)
1122  end do
1123  end do
1124  call monitor_put( monit_id(im_o_engflx), work2d(:,:) )
1125  end if
1126  if ( monit_id(im_i_engflx) > 0 ) then
1127  !$omp parallel do
1128  do j = ojs, oje
1129  do i = ois, oie
1130  work2d(i,j) = ocean_sflx_gh(i,j) + ocean_sflx_engi(i,j) &
1131  - ocean_oflx_gh(i,j) - ocean_oflx_engi(i,j)
1132  end do
1133  end do
1134  call monitor_put( monit_id(im_i_engflx), work2d(:,:) )
1135  end if
1136 
1137 
1138  return

References scale_const::const_dwatr, scale_atmos_hydrometeor::cv_ice, scale_atmos_hydrometeor::cv_water, scale_tracer::k, scale_atmos_hydrometeor::lhf, ocean_engi_supl, ocean_ice_mass, ocean_ice_temp, ocean_mass_supl, ocean_oflx_engi, ocean_oflx_gh, ocean_oflx_water, ocean_sflx_engi, ocean_sflx_gh, ocean_sflx_water, ocean_temp, scale_ocean_grid_cartesc_index::oie, scale_ocean_grid_cartesc_index::ois, scale_ocean_grid_cartesc_index::oje, scale_ocean_grid_cartesc_index::ojs, scale_ocean_grid_cartesc_index::oke, and scale_ocean_grid_cartesc_index::oks.

Referenced by mod_rm_driver::restart_read(), and mod_rm_driver::rm_driver().

Here is the caller graph for this function:

◆ ocean_vars_restart_create()

subroutine, public mod_ocean_vars::ocean_vars_restart_create

Create ocean restart file.

Definition at line 1144 of file mod_ocean_vars.F90.

1144  use scale_time, only: &
1145  time_gettimelabel
1146  use scale_file_cartesc, only: &
1147  file_cartesc_create
1148  use mod_ocean_admin, only: &
1149  ocean_do
1150  implicit none
1151 
1152  character(len=19) :: timelabel
1153  character(len=H_LONG) :: basename
1154  !---------------------------------------------------------------------------
1155 
1156  if ( ocean_do .and. ocean_restart_out_basename /= '' ) then
1157  log_newline
1158  log_info("OCEAN_vars_restart_create",*) 'Create restart file (OCEAN) '
1159 
1160  if ( ocean_restart_out_postfix_timelabel ) then
1161  call time_gettimelabel( timelabel )
1162  basename = trim(ocean_restart_out_basename)//'_'//trim(timelabel)
1163  else
1164  basename = trim(ocean_restart_out_basename)
1165  endif
1166  log_info_cont(*) 'basename: ', trim(basename)
1167 
1168  call file_cartesc_create( basename, & ! [IN]
1169  ocean_restart_out_title, & ! [IN]
1170  ocean_restart_out_dtype, & ! [IN]
1171  restart_fid, & ! [OUT]
1172  aggregate = ocean_restart_out_aggregate ) ! [IN]
1173  endif
1174 
1175  return

References scale_file_cartesc::file_cartesc_create(), mod_ocean_admin::ocean_do, ocean_restart_out_aggregate, ocean_restart_out_basename, ocean_restart_out_dtype, ocean_restart_out_postfix_timelabel, ocean_restart_out_title, and scale_time::time_gettimelabel().

Referenced by mod_admin_restart::admin_restart_write().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_restart_enddef()

subroutine, public mod_ocean_vars::ocean_vars_restart_enddef

Exit netCDF define mode.

Definition at line 1181 of file mod_ocean_vars.F90.

1181  use scale_file_cartesc, only: &
1182  file_cartesc_enddef
1183  implicit none
1184  !---------------------------------------------------------------------------
1185 
1186  if ( restart_fid /= -1 ) then
1187  call file_cartesc_enddef( restart_fid ) ! [IN]
1188  endif
1189 
1190  return

References scale_file_cartesc::file_cartesc_enddef().

Referenced by mod_admin_restart::admin_restart_write().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_restart_close()

subroutine, public mod_ocean_vars::ocean_vars_restart_close

Close restart file.

Definition at line 1196 of file mod_ocean_vars.F90.

1196  use scale_file_cartesc, only: &
1197  file_cartesc_close
1198  implicit none
1199  !---------------------------------------------------------------------------
1200 
1201  if ( restart_fid /= -1 ) then
1202  log_newline
1203  log_info("OCEAN_vars_restart_close",*) 'Close restart file (OCEAN) '
1204 
1205  call file_cartesc_close( restart_fid ) ! [IN]
1206 
1207  restart_fid = -1
1208  endif
1209 
1210  return

References scale_file_cartesc::file_cartesc_close().

Referenced by mod_admin_restart::admin_restart_read(), and mod_admin_restart::admin_restart_write().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_restart_def_var()

subroutine, public mod_ocean_vars::ocean_vars_restart_def_var

Define ocean variables in restart file.

Definition at line 1216 of file mod_ocean_vars.F90.

1216  use scale_file_cartesc, only: &
1217  file_cartesc_def_var
1218  implicit none
1219 
1220  integer :: i
1221  !---------------------------------------------------------------------------
1222 
1223  if ( restart_fid /= -1 ) then
1224  do i = i_temp, i_temp
1225  call file_cartesc_def_var( restart_fid, & ! [IN]
1226  var_name(i), var_desc(i), var_unit(i), & ! [IN]
1227  'OXY', ocean_restart_out_dtype, & ! [IN]
1228  var_id(i), & ! [OUT]
1229  standard_name=var_stdn(i) ) ! [IN]
1230  enddo
1231  do i = i_ocn_z0m, i_sfc_z0e
1232  call file_cartesc_def_var( restart_fid, & ! [IN]
1233  var_name(i), var_desc(i), var_unit(i), & ! [IN]
1234  'XY', ocean_restart_out_dtype, & ! [IN]
1235  var_id(i), & ! [OUT]
1236  standard_name=var_stdn(i) ) ! [IN]
1237  enddo
1238  if ( ice_flag ) then
1239  do i = i_ice_temp, i_ice_mass
1240  call file_cartesc_def_var( restart_fid, & ! [IN]
1241  var_name(i), var_desc(i), var_unit(i), & ! [IN]
1242  'XY', ocean_restart_out_dtype, & ! [IN]
1243  var_id(i), & ! [OUT]
1244  standard_name=var_stdn(i) ) ! [IN]
1245  enddo
1246  end if
1247  endif
1248 
1249  return

References scale_file_cartesc::file_cartesc_def_var(), ice_flag, and ocean_restart_out_dtype.

Referenced by mod_admin_restart::admin_restart_write().

Here is the call graph for this function:
Here is the caller graph for this function:

◆ ocean_vars_restart_write()

subroutine, public mod_ocean_vars::ocean_vars_restart_write

Write ocean variables to restart file.

Definition at line 1255 of file mod_ocean_vars.F90.

1255  use scale_file_cartesc, only: &
1256  file_cartesc_write_var
1257  implicit none
1258  !---------------------------------------------------------------------------
1259 
1260  if ( restart_fid /= -1 ) then
1261  call ocean_vars_check( force = .true. )
1262 
1263  call file_cartesc_write_var( restart_fid, var_id(i_temp), & ! [IN]
1264  ocean_temp(:,:,:), & ! [IN]
1265  var_name(i_temp), 'OXY', fill_halo=.true. ) ! [IN]
1266 ! call FILE_CARTESC_write_var( restart_fid, VAR_ID(I_SALT), & ! [IN]
1267 ! OCEAN_SALT(:,:,:), & ! [IN]
1268 ! VAR_NAME(I_SALT), 'OXY', fill_halo=.true. ) ! [IN]
1269 ! call FILE_CARTESC_write_var( restart_fid, VAR_ID(I_UVEL), & ! [IN]
1270 ! OCEAN_UVEL(:,:,:), & ! [IN]
1271 ! VAR_NAME(I_UVEL), 'OXY', fill_halo=.true. ) ! [IN]
1272 ! call FILE_CARTESC_write_var( restart_fid, VAR_ID(I_VVEL), & ! [IN]
1273 ! OCEAN_VVEL(:,:,:), & ! [IN]
1274 ! VAR_NAME(I_VVEL), 'OXY', fill_halo=.true. ) ! [IN]
1275 
1276  call file_cartesc_write_var( restart_fid, var_id(i_ocn_z0m), & ! [IN]
1277  ocean_ocn_z0m(:,:), & ! [IN]
1278  var_name(i_ocn_z0m), 'XY', fill_halo=.true. ) ! [IN]
1279  call file_cartesc_write_var( restart_fid, var_id(i_sfc_temp), & ! [IN]
1280  ocean_sfc_temp(:,:), & ! [IN]
1281  var_name(i_sfc_temp), 'XY', fill_halo=.true. ) ! [IN]
1282  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_ir_dir), & ! [IN]
1283  ocean_sfc_albedo(:,:,i_r_direct ,i_r_ir ), & ! [IN]
1284  var_name(i_sfc_alb_ir_dir), 'XY', fill_halo=.true. ) ! [IN]
1285  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_ir_dif), & ! [IN]
1286  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_ir ), & ! [IN]
1287  var_name(i_sfc_alb_ir_dif), 'XY', fill_halo=.true. ) ! [IN]
1288  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_nir_dir), & ! [IN]
1289  ocean_sfc_albedo(:,:,i_r_direct ,i_r_nir), & ! [IN]
1290  var_name(i_sfc_alb_nir_dir), 'XY', fill_halo=.true. ) ! [IN]
1291  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_nir_dif), & ! [IN]
1292  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_nir), & ! [IN]
1293  var_name(i_sfc_alb_nir_dif), 'XY', fill_halo=.true. ) ! [IN]
1294  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_vis_dir), & ! [IN]
1295  ocean_sfc_albedo(:,:,i_r_direct ,i_r_vis), & ! [IN]
1296  var_name(i_sfc_alb_vis_dir), 'XY', fill_halo=.true. ) ! [IN]
1297  call file_cartesc_write_var( restart_fid, var_id(i_sfc_alb_vis_dif), & ! [IN]
1298  ocean_sfc_albedo(:,:,i_r_diffuse,i_r_vis), & ! [IN]
1299  var_name(i_sfc_alb_vis_dif), 'XY', fill_halo=.true. ) ! [IN]
1300  call file_cartesc_write_var( restart_fid, var_id(i_sfc_z0m), & ! [IN]
1301  ocean_sfc_z0m(:,:), & ! [IN]
1302  var_name(i_sfc_z0m), 'XY', fill_halo=.true. ) ! [IN]
1303  call file_cartesc_write_var( restart_fid, var_id(i_sfc_z0h), & ! [IN]
1304  ocean_sfc_z0h(:,:), & ! [IN]
1305  var_name(i_sfc_z0h), 'XY', fill_halo=.true. ) ! [IN]
1306  call file_cartesc_write_var( restart_fid, var_id(i_sfc_z0e), & ! [IN]
1307  ocean_sfc_z0e(:,:), & ! [IN]
1308  var_name(i_sfc_z0e), 'XY', fill_halo=.true. ) ! [IN]
1309  if ( ice_flag ) then
1310  call file_cartesc_write_var( restart_fid, var_id(i_ice_temp), & ! [IN]
1311  ocean_ice_temp(:,:), & ! [IN]
1312  var_name(i_ice_temp), 'XY', fill_halo=.true. ) ! [IN]
1313  call file_cartesc_write_var( restart_fid, var_id(i_ice_mass), & ! [IN]
1314  ocean_ice_mass(:,:), & ! [IN]
1315  var_name(i_ice_mass), 'XY', fill_halo=.true. ) ! [IN]
1316  end if
1317  endif
1318 
1319  return

References scale_cpl_sfc_index::i_r_diffuse, scale_cpl_sfc_index::i_r_direct, scale_cpl_sfc_index::i_r_ir, scale_cpl_sfc_index::i_r_nir, scale_cpl_sfc_index::i_r_vis, ice_flag, ocean_ice_mass, ocean_ice_temp, ocean_ocn_z0m, ocean_sfc_albedo, ocean_sfc_temp, ocean_sfc_z0e, ocean_sfc_z0h, ocean_sfc_z0m, ocean_temp, and ocean_vars_check().

Referenced by mod_admin_restart::admin_restart_write().

Here is the call graph for this function:
Here is the caller graph for this function:

Variable Documentation

◆ ocean_restart_output

logical, public mod_ocean_vars::ocean_restart_output = .false.

Output restart file?

Definition at line 48 of file mod_ocean_vars.F90.

48  logical, public :: OCEAN_RESTART_OUTPUT = .false.

Referenced by mod_admin_restart::admin_restart_setup(), mod_admin_restart::admin_restart_write(), and ocean_vars_setup().

◆ ocean_restart_in_basename

character(len=h_long), public mod_ocean_vars::ocean_restart_in_basename = ''

Basename of the input file.

Definition at line 50 of file mod_ocean_vars.F90.

50  character(len=H_LONG), public :: OCEAN_RESTART_IN_BASENAME = ''

Referenced by mod_admin_restart::admin_restart_setup(), ocean_vars_restart_open(), and ocean_vars_setup().

◆ ocean_restart_in_aggregate

logical, public mod_ocean_vars::ocean_restart_in_aggregate

Switch to use aggregate file.

Definition at line 51 of file mod_ocean_vars.F90.

51  logical, public :: OCEAN_RESTART_IN_AGGREGATE

Referenced by mod_admin_restart::admin_restart_setup(), ocean_vars_restart_open(), and ocean_vars_setup().

◆ ocean_restart_in_postfix_timelabel

logical, public mod_ocean_vars::ocean_restart_in_postfix_timelabel = .false.

Add timelabel to the basename of input file?

Definition at line 52 of file mod_ocean_vars.F90.

52  logical, public :: OCEAN_RESTART_IN_POSTFIX_TIMELABEL = .false.

Referenced by mod_admin_restart::admin_restart_setup(), ocean_vars_restart_open(), and ocean_vars_setup().

◆ ocean_restart_out_basename

character(len=h_long), public mod_ocean_vars::ocean_restart_out_basename = ''

Basename of the output file.

Definition at line 53 of file mod_ocean_vars.F90.

53  character(len=H_LONG), public :: OCEAN_RESTART_OUT_BASENAME = ''

Referenced by mod_admin_restart::admin_restart_setup(), ocean_vars_restart_create(), and ocean_vars_setup().

◆ ocean_restart_out_aggregate

logical, public mod_ocean_vars::ocean_restart_out_aggregate

Switch to use aggregate file.

Definition at line 54 of file mod_ocean_vars.F90.

54  logical, public :: OCEAN_RESTART_OUT_AGGREGATE

Referenced by mod_admin_restart::admin_restart_setup(), ocean_vars_restart_create(), and ocean_vars_setup().

◆ ocean_restart_out_postfix_timelabel

logical, public mod_ocean_vars::ocean_restart_out_postfix_timelabel = .true.

Add timelabel to the basename of output file?

Definition at line 55 of file mod_ocean_vars.F90.

55  logical, public :: OCEAN_RESTART_OUT_POSTFIX_TIMELABEL = .true.

Referenced by mod_admin_restart::admin_restart_setup(), ocean_vars_restart_create(), and ocean_vars_setup().

◆ ocean_restart_out_title

character(len=h_mid), public mod_ocean_vars::ocean_restart_out_title = 'OCEAN restart'

Title of the output file.

Definition at line 56 of file mod_ocean_vars.F90.

56  character(len=H_MID), public :: OCEAN_RESTART_OUT_TITLE = 'OCEAN restart'

Referenced by mod_admin_restart::admin_restart_setup(), ocean_vars_restart_create(), and ocean_vars_setup().

◆ ocean_restart_out_dtype

character(len=h_short), public mod_ocean_vars::ocean_restart_out_dtype = 'DEFAULT'

REAL4 or REAL8.

Definition at line 57 of file mod_ocean_vars.F90.

57  character(len=H_SHORT), public :: OCEAN_RESTART_OUT_DTYPE = 'DEFAULT'

Referenced by mod_admin_restart::admin_restart_setup(), ocean_vars_restart_create(), ocean_vars_restart_def_var(), and ocean_vars_setup().

◆ ocean_temp

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_temp

ocean temperature [K]

Definition at line 60 of file mod_ocean_vars.F90.

60  real(RP), public, allocatable :: OCEAN_TEMP(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), mod_mkinit::ocean_setup(), ocean_vars_check(), ocean_vars_history(), ocean_vars_monitor(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_salt

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_salt

ocean salinity [PSU]

Definition at line 61 of file mod_ocean_vars.F90.

61  real(RP), public, allocatable :: OCEAN_SALT(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_update(), mod_mkinit::ocean_setup(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_uvel

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_uvel

ocean zonal velocity [m/s]

Definition at line 62 of file mod_ocean_vars.F90.

62  real(RP), public, allocatable :: OCEAN_UVEL(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_update(), mod_mkinit::ocean_setup(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_vvel

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_vvel

ocean meridional velocity [m/s]

Definition at line 63 of file mod_ocean_vars.F90.

63  real(RP), public, allocatable :: OCEAN_VVEL(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_update(), mod_mkinit::ocean_setup(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_ocn_z0m

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ocn_z0m

surface roughness length for momentum, open ocean [m]

Definition at line 65 of file mod_ocean_vars.F90.

65  real(RP), public, allocatable :: OCEAN_OCN_Z0M(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_mkinit::ocean_setup(), ocean_vars_check(), ocean_vars_history(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_sfc_temp

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sfc_temp

ocean surface skin temperature [K]

Definition at line 67 of file mod_ocean_vars.F90.

67  real(RP), public, allocatable :: OCEAN_SFC_TEMP (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_mkinit::ocean_setup(), mod_ocean_driver::ocean_surface_set(), ocean_vars_check(), ocean_vars_history(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_sfc_albedo

real(rp), dimension(:,:,:,:), allocatable, public mod_ocean_vars::ocean_sfc_albedo

ocean surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1)

Definition at line 68 of file mod_ocean_vars.F90.

68  real(RP), public, allocatable :: OCEAN_SFC_albedo(:,:,:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_mkinit::ocean_setup(), mod_ocean_driver::ocean_surface_set(), ocean_vars_check(), ocean_vars_history(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_sfc_z0m

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sfc_z0m

ocean surface roughness length for momentum [m]

Definition at line 69 of file mod_ocean_vars.F90.

69  real(RP), public, allocatable :: OCEAN_SFC_Z0M (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_mkinit::ocean_setup(), mod_ocean_driver::ocean_surface_set(), ocean_vars_check(), ocean_vars_history(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_sfc_z0h

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sfc_z0h

ocean surface roughness length for heat [m]

Definition at line 70 of file mod_ocean_vars.F90.

70  real(RP), public, allocatable :: OCEAN_SFC_Z0H (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_mkinit::ocean_setup(), mod_ocean_driver::ocean_surface_set(), ocean_vars_check(), ocean_vars_history(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_sfc_z0e

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sfc_z0e

ocean surface roughness length for vapor [m]

Definition at line 71 of file mod_ocean_vars.F90.

71  real(RP), public, allocatable :: OCEAN_SFC_Z0E (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_mkinit::ocean_setup(), mod_ocean_driver::ocean_surface_set(), ocean_vars_check(), ocean_vars_history(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_ice_temp

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ice_temp

sea ice temperature [K]

Definition at line 73 of file mod_ocean_vars.F90.

73  real(RP), public, allocatable :: OCEAN_ICE_TEMP(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), mod_mkinit::ocean_setup(), ocean_vars_check(), ocean_vars_history(), ocean_vars_monitor(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_ice_mass

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ice_mass

sea ice mass [kg]

Definition at line 74 of file mod_ocean_vars.F90.

74  real(RP), public, allocatable :: OCEAN_ICE_MASS(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), mod_mkinit::ocean_setup(), ocean_vars_check(), ocean_vars_history(), ocean_vars_monitor(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_temp_t

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_temp_t

tendency of OCEAN_OCN_TEMP

Definition at line 78 of file mod_ocean_vars.F90.

78  real(RP), public, allocatable :: OCEAN_TEMP_t(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), and ocean_vars_setup().

◆ ocean_salt_t

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_salt_t

tendency of OCEAN_OCN_SALT

Definition at line 79 of file mod_ocean_vars.F90.

79  real(RP), public, allocatable :: OCEAN_SALT_t(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), and ocean_vars_setup().

◆ ocean_uvel_t

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_uvel_t

tendency of OCEAN_OCN_UVEL

Definition at line 80 of file mod_ocean_vars.F90.

80  real(RP), public, allocatable :: OCEAN_UVEL_t(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), and ocean_vars_setup().

◆ ocean_vvel_t

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_vvel_t

tendency of OCEAN_OCN_VVEL

Definition at line 81 of file mod_ocean_vars.F90.

81  real(RP), public, allocatable :: OCEAN_VVEL_t(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), and ocean_vars_setup().

◆ ocean_ice_temp_t

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ice_temp_t

tendency of OCEAN_ICE_TEMP

Definition at line 83 of file mod_ocean_vars.F90.

83  real(RP), public, allocatable :: OCEAN_ICE_TEMP_t(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), and ocean_vars_setup().

◆ ocean_ice_mass_t

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ice_mass_t

tendency of OCEAN_ICE_MASS

Definition at line 84 of file mod_ocean_vars.F90.

84  real(RP), public, allocatable :: OCEAN_ICE_MASS_t(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), and ocean_vars_setup().

◆ atmos_temp

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_temp

Definition at line 87 of file mod_ocean_vars.F90.

87  real(RP), public, allocatable :: ATMOS_TEMP (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_pres

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_pres

Definition at line 88 of file mod_ocean_vars.F90.

88  real(RP), public, allocatable :: ATMOS_PRES (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_w

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_w

Definition at line 89 of file mod_ocean_vars.F90.

89  real(RP), public, allocatable :: ATMOS_W (:,:)

Referenced by ocean_vars_setup().

◆ atmos_u

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_u

Definition at line 90 of file mod_ocean_vars.F90.

90  real(RP), public, allocatable :: ATMOS_U (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_v

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_v

Definition at line 91 of file mod_ocean_vars.F90.

91  real(RP), public, allocatable :: ATMOS_V (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_dens

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_dens

Definition at line 92 of file mod_ocean_vars.F90.

92  real(RP), public, allocatable :: ATMOS_DENS (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_qv

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_qv

Definition at line 93 of file mod_ocean_vars.F90.

93  real(RP), public, allocatable :: ATMOS_QV (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_pbl

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_pbl

Definition at line 94 of file mod_ocean_vars.F90.

94  real(RP), public, allocatable :: ATMOS_PBL (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_sfc_dens

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_sfc_dens

Definition at line 95 of file mod_ocean_vars.F90.

95  real(RP), public, allocatable :: ATMOS_SFC_DENS (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_sfc_pres

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_sfc_pres

Definition at line 96 of file mod_ocean_vars.F90.

96  real(RP), public, allocatable :: ATMOS_SFC_PRES (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_sflx_rad_dn

real(rp), dimension(:,:,:,:), allocatable, public mod_ocean_vars::atmos_sflx_rad_dn

Definition at line 97 of file mod_ocean_vars.F90.

97  real(RP), public, allocatable :: ATMOS_SFLX_rad_dn(:,:,:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_cossza

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_cossza

Definition at line 98 of file mod_ocean_vars.F90.

98  real(RP), public, allocatable :: ATMOS_cosSZA (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_sflx_water

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_sflx_water

Definition at line 99 of file mod_ocean_vars.F90.

99  real(RP), public, allocatable :: ATMOS_SFLX_water (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ atmos_sflx_engi

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::atmos_sflx_engi

Definition at line 100 of file mod_ocean_vars.F90.

100  real(RP), public, allocatable :: ATMOS_SFLX_ENGI (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_get(), and ocean_vars_setup().

◆ ocean_sflx_gh

real(rp), dimension (:,:), allocatable, target, public mod_ocean_vars::ocean_sflx_gh

ocean surface water heat flux [J/m2/s]

Definition at line 103 of file mod_ocean_vars.F90.

103  real(RP), public, allocatable, target :: OCEAN_SFLX_GH (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), ocean_vars_monitor(), and ocean_vars_setup().

◆ ocean_sflx_water

real(rp), dimension(:,:), allocatable, target, public mod_ocean_vars::ocean_sflx_water

ocean surface water mass flux [kg/m2/s]

Definition at line 104 of file mod_ocean_vars.F90.

104  real(RP), public, allocatable, target :: OCEAN_SFLX_water(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), ocean_vars_monitor(), and ocean_vars_setup().

◆ ocean_sflx_engi

real(rp), dimension (:,:), allocatable, target, public mod_ocean_vars::ocean_sflx_engi

ocean surface internal energy flux [J/m2/s]

Definition at line 105 of file mod_ocean_vars.F90.

105  real(RP), public, allocatable, target :: OCEAN_SFLX_ENGI (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), ocean_vars_monitor(), and ocean_vars_setup().

◆ ocean_oflx_gh

real(rp), dimension (:,:), pointer, public mod_ocean_vars::ocean_oflx_gh

ocean-ice surface water heat flux [J/m2/s]

Definition at line 106 of file mod_ocean_vars.F90.

106  real(RP), public, pointer :: OCEAN_OFLX_GH (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), ocean_vars_monitor(), and ocean_vars_setup().

◆ ocean_oflx_water

real(rp), dimension(:,:), pointer, public mod_ocean_vars::ocean_oflx_water

ocean-ice surface water mass flux [kg/m2/s]

Definition at line 107 of file mod_ocean_vars.F90.

107  real(RP), public, pointer :: OCEAN_OFLX_water(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), ocean_vars_monitor(), and ocean_vars_setup().

◆ ocean_oflx_engi

real(rp), dimension (:,:), pointer, public mod_ocean_vars::ocean_oflx_engi

ocean-ice surface internal energy flux [J/m2/s]

Definition at line 108 of file mod_ocean_vars.F90.

108  real(RP), public, pointer :: OCEAN_OFLX_ENGI (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), ocean_vars_monitor(), and ocean_vars_setup().

◆ ocean_sflx_mw

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sflx_mw

ocean surface w-momentum flux [kg/m/s2]

Definition at line 111 of file mod_ocean_vars.F90.

111  real(RP), public, allocatable :: OCEAN_SFLX_MW (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_sflx_mu

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sflx_mu

ocean surface u-momentum flux [kg/m/s2]

Definition at line 112 of file mod_ocean_vars.F90.

112  real(RP), public, allocatable :: OCEAN_SFLX_MU (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_sflx_mv

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sflx_mv

ocean surface v-momentum flux [kg/m/s2]

Definition at line 113 of file mod_ocean_vars.F90.

113  real(RP), public, allocatable :: OCEAN_SFLX_MV (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_sflx_sh

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sflx_sh

ocean surface sensible heat flux [J/m2/s]

Definition at line 114 of file mod_ocean_vars.F90.

114  real(RP), public, allocatable :: OCEAN_SFLX_SH (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_sflx_lh

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_sflx_lh

ocean surface latent heat flux [J/m2/s]

Definition at line 115 of file mod_ocean_vars.F90.

115  real(RP), public, allocatable :: OCEAN_SFLX_LH (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_sflx_qtrc

real(rp), dimension(:,:,:), allocatable, public mod_ocean_vars::ocean_sflx_qtrc

ocean surface tracer flux [kg/m2/s]

Definition at line 116 of file mod_ocean_vars.F90.

116  real(RP), public, allocatable :: OCEAN_SFLX_QTRC(:,:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_u10

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_u10

ocean surface velocity u at 10m [m/s]

Definition at line 117 of file mod_ocean_vars.F90.

117  real(RP), public, allocatable :: OCEAN_U10 (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_v10

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_v10

ocean surface velocity v at 10m [m/s]

Definition at line 118 of file mod_ocean_vars.F90.

118  real(RP), public, allocatable :: OCEAN_V10 (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_t2

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_t2

ocean surface temperature at 2m [K]

Definition at line 119 of file mod_ocean_vars.F90.

119  real(RP), public, allocatable :: OCEAN_T2 (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_q2

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_q2

ocean surface water vapor at 2m [kg/kg]

Definition at line 120 of file mod_ocean_vars.F90.

120  real(RP), public, allocatable :: OCEAN_Q2 (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_surface_set(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ustar

real(rp), dimension(:,:), allocatable, target, public mod_ocean_vars::ocean_ustar

ocean surface friction velocity [m/s]

Definition at line 122 of file mod_ocean_vars.F90.

122  real(RP), public, allocatable, target :: OCEAN_Ustar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_tstar

real(rp), dimension(:,:), allocatable, target, public mod_ocean_vars::ocean_tstar

ocean surface tempreture scale [K]

Definition at line 123 of file mod_ocean_vars.F90.

123  real(RP), public, allocatable, target :: OCEAN_Tstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_qstar

real(rp), dimension(:,:), allocatable, target, public mod_ocean_vars::ocean_qstar

ocean surface moisture scale [kg/kg]

Definition at line 124 of file mod_ocean_vars.F90.

124  real(RP), public, allocatable, target :: OCEAN_Qstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_wstar

real(rp), dimension(:,:), allocatable, target, public mod_ocean_vars::ocean_wstar

ocean surface convective velocity scale [m/s]

Definition at line 125 of file mod_ocean_vars.F90.

125  real(RP), public, allocatable, target :: OCEAN_Wstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_rlmo

real(rp), dimension (:,:), allocatable, target, public mod_ocean_vars::ocean_rlmo

ocean surface inversed Obukhov length [1/m]

Definition at line 126 of file mod_ocean_vars.F90.

126  real(RP), public, allocatable, target :: OCEAN_RLmo (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ocn_ustar

real(rp), dimension(:,:), pointer, public mod_ocean_vars::ocean_ocn_ustar

Definition at line 127 of file mod_ocean_vars.F90.

127  real(RP), public, pointer :: OCEAN_OCN_Ustar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ocn_tstar

real(rp), dimension(:,:), pointer, public mod_ocean_vars::ocean_ocn_tstar

Definition at line 128 of file mod_ocean_vars.F90.

128  real(RP), public, pointer :: OCEAN_OCN_Tstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ocn_qstar

real(rp), dimension(:,:), pointer, public mod_ocean_vars::ocean_ocn_qstar

Definition at line 129 of file mod_ocean_vars.F90.

129  real(RP), public, pointer :: OCEAN_OCN_Qstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ocn_wstar

real(rp), dimension(:,:), pointer, public mod_ocean_vars::ocean_ocn_wstar

Definition at line 130 of file mod_ocean_vars.F90.

130  real(RP), public, pointer :: OCEAN_OCN_Wstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ocn_rlmo

real(rp), dimension (:,:), pointer, public mod_ocean_vars::ocean_ocn_rlmo

Definition at line 131 of file mod_ocean_vars.F90.

131  real(RP), public, pointer :: OCEAN_OCN_RLmo (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ice_ustar

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ice_ustar

Definition at line 132 of file mod_ocean_vars.F90.

132  real(RP), public, allocatable :: OCEAN_ICE_Ustar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ice_tstar

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ice_tstar

Definition at line 133 of file mod_ocean_vars.F90.

133  real(RP), public, allocatable :: OCEAN_ICE_Tstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ice_qstar

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ice_qstar

Definition at line 134 of file mod_ocean_vars.F90.

134  real(RP), public, allocatable :: OCEAN_ICE_Qstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ice_wstar

real(rp), dimension(:,:), allocatable, public mod_ocean_vars::ocean_ice_wstar

Definition at line 135 of file mod_ocean_vars.F90.

135  real(RP), public, allocatable :: OCEAN_ICE_Wstar(:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ice_rlmo

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_ice_rlmo

Definition at line 136 of file mod_ocean_vars.F90.

136  real(RP), public, allocatable :: OCEAN_ICE_RLmo (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), ocean_vars_history(), and ocean_vars_setup().

◆ ocean_ice_frac

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_ice_frac

area fraction of sea ice [1]

Definition at line 139 of file mod_ocean_vars.F90.

139  real(RP), public, allocatable :: OCEAN_ICE_FRAC (:,:)

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), ocean_vars_history(), ocean_vars_restart_read(), and ocean_vars_setup().

◆ ice_flag

logical, public mod_ocean_vars::ice_flag

Definition at line 141 of file mod_ocean_vars.F90.

141  logical, public :: ICE_flag

Referenced by mod_ocean_driver::ocean_driver_calc_tendency(), mod_mkinit::ocean_setup(), ocean_vars_check(), ocean_vars_history(), ocean_vars_restart_def_var(), ocean_vars_restart_read(), ocean_vars_restart_write(), ocean_vars_setup(), and mod_realinput::realinput_surface().

◆ ocean_mass_supl

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_mass_supl

Definition at line 144 of file mod_ocean_vars.F90.

144  real(RP), public, allocatable :: OCEAN_MASS_SUPL (:,:)

Referenced by mod_ocean_driver::ocean_driver_update(), ocean_vars_monitor(), and ocean_vars_setup().

◆ ocean_engi_supl

real(rp), dimension (:,:), allocatable, public mod_ocean_vars::ocean_engi_supl

Definition at line 145 of file mod_ocean_vars.F90.

145  real(RP), public, allocatable :: OCEAN_ENGI_SUPL (:,:)

Referenced by mod_ocean_driver::ocean_driver_update(), ocean_vars_monitor(), and ocean_vars_setup().

scale_statistics
module Statistics
Definition: scale_statistics.F90:11
mod_ocean_vars::ocean_sflx_mv
real(rp), dimension(:,:), allocatable, public ocean_sflx_mv
ocean surface v-momentum flux [kg/m/s2]
Definition: mod_ocean_vars.F90:113
mod_ocean_admin::ocean_ice_type
character(len=h_short), public ocean_ice_type
Definition: mod_ocean_admin.F90:40
mod_ocean_vars::ocean_sflx_mu
real(rp), dimension(:,:), allocatable, public ocean_sflx_mu
ocean surface u-momentum flux [kg/m/s2]
Definition: mod_ocean_vars.F90:112
scale_prc::prc_abort
subroutine, public prc_abort
Abort Process.
Definition: scale_prc.F90:342
scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totarea
real(rp), public ocean_grid_cartesc_real_totarea
total area
Definition: scale_ocean_grid_cartesC_real.F90:37
scale_ocean_grid_cartesc_index::oke
integer, public oke
Definition: scale_ocean_grid_cartesC_index.F90:38
mod_ocean_vars::ocean_sfc_z0e
real(rp), dimension(:,:), allocatable, public ocean_sfc_z0e
ocean surface roughness length for vapor [m]
Definition: mod_ocean_vars.F90:71
scale_ocean_phy_ice_simple
module ocean / physics / ice / simple
Definition: scale_ocean_phy_ice_simple.F90:12
mod_ocean_vars::ocean_sflx_mw
real(rp), dimension(:,:), allocatable, public ocean_sflx_mw
ocean surface w-momentum flux [kg/m/s2]
Definition: mod_ocean_vars.F90:111
scale_file_cartesc::file_cartesc_enddef
subroutine, public file_cartesc_enddef(fid)
Exit netCDF file define mode.
Definition: scale_file_cartesC.F90:943
scale_file_cartesc::file_cartesc_def_var
subroutine, public file_cartesc_def_var(fid, varname, desc, unit, dim_type, datatype, vid, standard_name, timeintv, nsteps, cell_measures)
Define a variable to file.
Definition: scale_file_cartesC.F90:3307
mod_ocean_vars::ocean_q2
real(rp), dimension(:,:), allocatable, public ocean_q2
ocean surface water vapor at 2m [kg/kg]
Definition: mod_ocean_vars.F90:120
scale_ocean_grid_cartesc_index::oie
integer, public oie
Definition: scale_ocean_grid_cartesC_index.F90:42
scale_atmos_hydrometeor
module atmosphere / hydrometeor
Definition: scale_atmos_hydrometeor.F90:12
scale_ocean_grid_cartesc_index::oka
integer, public oka
Definition: scale_ocean_grid_cartesC_index.F90:36
scale_ocean_grid_cartesc_index::okmax
integer, public okmax
Definition: scale_ocean_grid_cartesC_index.F90:32
mod_ocean_vars::ocean_v10
real(rp), dimension(:,:), allocatable, public ocean_v10
ocean surface velocity v at 10m [m/s]
Definition: mod_ocean_vars.F90:118
mod_ocean_vars::ocean_sfc_z0m
real(rp), dimension(:,:), allocatable, public ocean_sfc_z0m
ocean surface roughness length for momentum [m]
Definition: mod_ocean_vars.F90:69
mod_ocean_vars::ocean_sflx_qtrc
real(rp), dimension(:,:,:), allocatable, public ocean_sflx_qtrc
ocean surface tracer flux [kg/m2/s]
Definition: mod_ocean_vars.F90:116
scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_area
real(rp), dimension(:,:), allocatable, public ocean_grid_cartesc_real_area
area of grid cell
Definition: scale_ocean_grid_cartesC_real.F90:36
scale_file_history
module file_history
Definition: scale_file_history.F90:15
scale_ocean_grid_cartesc_index::ois
integer, public ois
Definition: scale_ocean_grid_cartesC_index.F90:41
scale_file
module file
Definition: scale_file.F90:15
mod_ocean_vars::ocean_sflx_sh
real(rp), dimension(:,:), allocatable, public ocean_sflx_sh
ocean surface sensible heat flux [J/m2/s]
Definition: mod_ocean_vars.F90:114
scale_prc
module PROCESS
Definition: scale_prc.F90:11
mod_ocean_vars::ocean_sflx_gh
real(rp), dimension(:,:), allocatable, target, public ocean_sflx_gh
ocean surface water heat flux [J/m2/s]
Definition: mod_ocean_vars.F90:103
scale_ocean_grid_cartesc_index::oje
integer, public oje
Definition: scale_ocean_grid_cartesC_index.F90:46
mod_ocean_vars::ocean_sfc_z0h
real(rp), dimension(:,:), allocatable, public ocean_sfc_z0h
ocean surface roughness length for heat [m]
Definition: mod_ocean_vars.F90:70
mod_ocean_admin
module Ocean admin
Definition: mod_ocean_admin.F90:11
scale_ocean_grid_cartesc_index::oja
integer, public oja
Definition: scale_ocean_grid_cartesC_index.F90:44
scale_const
module CONSTANT
Definition: scale_const.F90:11
scale_file_cartesc::file_cartesc_close
subroutine, public file_cartesc_close(fid)
Close a netCDF file.
Definition: scale_file_cartesC.F90:1023
scale_ocean_phy_ice_simple::ocean_phy_ice_freezetemp
real(rp), public ocean_phy_ice_freezetemp
Definition: scale_ocean_phy_ice_simple.F90:44
scale_monitor::monitor_reg
subroutine, public monitor_reg(name, desc, unit, itemid, ndims, dim_type, is_tendency)
Search existing item, or matching check between requested and registered item.
Definition: scale_monitor.F90:241
scale_time
module TIME
Definition: scale_time.F90:11
scale_atmos_hydrometeor::i_qv
integer, public i_qv
Definition: scale_atmos_hydrometeor.F90:77
scale_const::const_dwatr
real(rp), parameter, public const_dwatr
density of water [kg/m3]
Definition: scale_const.F90:82
scale_landuse::landuse_exists_ocean
logical, dimension(:,:), allocatable, public landuse_exists_ocean
ocean calculation flag
Definition: scale_landuse.F90:49
mod_ocean_admin::ocean_do
logical, public ocean_do
Definition: mod_ocean_admin.F90:32
scale_file_cartesc::file_cartesc_create
subroutine, public file_cartesc_create(basename, title, datatype, fid, date, subsec, haszcoord, append, aggregate, single)
Create/open a netCDF file.
Definition: scale_file_cartesC.F90:780
scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_vol
real(rp), dimension(:,:,:), allocatable, public ocean_grid_cartesc_real_vol
volume of grid cell
Definition: scale_ocean_grid_cartesC_real.F90:38
scale_file_cartesc::file_cartesc_open
subroutine, public file_cartesc_open(basename, fid, aggregate)
open a netCDF file for read
Definition: scale_file_cartesC.F90:746
scale_statistics::statistics_checktotal
logical, public statistics_checktotal
calc&report variable totals to logfile?
Definition: scale_statistics.F90:64
scale_file_cartesc::file_cartesc_flush
subroutine, public file_cartesc_flush(fid)
Flush all pending requests to a netCDF file (PnetCDF only)
Definition: scale_file_cartesC.F90:997
scale_time::time_gettimelabel
subroutine, public time_gettimelabel(timelabel)
generate time label
Definition: scale_time.F90:91
scale_ocean_grid_cartesc_index::ojs
integer, public ojs
Definition: scale_ocean_grid_cartesC_index.F90:45
mod_ocean_vars::ocean_sfc_albedo
real(rp), dimension(:,:,:,:), allocatable, public ocean_sfc_albedo
ocean surface albedo (direct/diffuse,IR/near-IR/VIS) (0-1)
Definition: mod_ocean_vars.F90:68
mod_ocean_vars::ocean_sfc_temp
real(rp), dimension(:,:), allocatable, public ocean_sfc_temp
ocean surface skin temperature [K]
Definition: mod_ocean_vars.F90:67
scale_atmos_hydrometeor::lhf
real(rp), public lhf
latent heat of fusion for use [J/kg]
Definition: scale_atmos_hydrometeor.F90:128
scale_file::file_get_aggregate
logical function, public file_get_aggregate(fid)
Definition: scale_file.F90:4844
scale_ocean_phy_ice_simple::ocean_phy_ice_fraction
subroutine, public ocean_phy_ice_fraction(OIA, OIS, OIE, OJA, OJS, OJE, ICE_MASS, ICE_FRAC)
Definition: scale_ocean_phy_ice_simple.F90:170
scale_ocean_grid_cartesc_real
module ocean / grid / cartesianC / real
Definition: scale_ocean_grid_cartesC_real.F90:12
scale_ocean_grid_cartesc_index::oia
integer, public oia
Definition: scale_ocean_grid_cartesC_index.F90:40
mod_ocean_vars::ocean_sflx_lh
real(rp), dimension(:,:), allocatable, public ocean_sflx_lh
ocean surface latent heat flux [J/m2/s]
Definition: mod_ocean_vars.F90:115
scale_landuse
module LANDUSE
Definition: scale_landuse.F90:19
mod_ocean_vars::ocean_u10
real(rp), dimension(:,:), allocatable, public ocean_u10
ocean surface velocity u at 10m [m/s]
Definition: mod_ocean_vars.F90:117
scale_const::const_undef
real(rp), public const_undef
Definition: scale_const.F90:41
scale_file_cartesc
module file / cartesianC
Definition: scale_file_cartesC.F90:11
scale_atmos_hydrometeor::cv_water
real(rp), public cv_water
CV for water [J/kg/K].
Definition: scale_atmos_hydrometeor.F90:132
mod_ocean_vars::ocean_t2
real(rp), dimension(:,:), allocatable, public ocean_t2
ocean surface temperature at 2m [K]
Definition: mod_ocean_vars.F90:119
scale_ocean_grid_cartesc_real::ocean_grid_cartesc_real_totvol
real(rp), public ocean_grid_cartesc_real_totvol
total volume
Definition: scale_ocean_grid_cartesC_real.F90:39
scale_atmos_hydrometeor::cv_ice
real(rp), public cv_ice
CV for ice [J/kg/K].
Definition: scale_atmos_hydrometeor.F90:134
scale_ocean_grid_cartesc_index::oks
integer, public oks
Definition: scale_ocean_grid_cartesC_index.F90:37
scale_monitor
module MONITOR
Definition: scale_monitor.F90:12
Generated by   doxygen 1.8.17