var/da/da_define_structures/da_initialize_cv.inc

   1 subroutine da_initialize_cv(cv_size, cv)
   2
   3    !---------------------------------------------------------------------------
   4    ! Purpose: Initialize components of control variable.
   5    !---------------------------------------------------------------------------
   6
   7    implicit none
   8
   9    integer, intent(in)   :: cv_size
  10    real,    intent(out)  :: cv(1:cv_size)    ! Control variable structure.
  11
  12    integer                              :: i
  13    real                                 :: z, mean_cv, rms_cv, std_dev_cv
  14
  15    if (trace_use) call da_trace_entry("da_initialize_cv")
  16
  17    !---------------------------------------------------------------------------
  18    ! [1.0] Initialize cv:
  19    !---------------------------------------------------------------------------
  20
  21    cv = 0.0
  22
  23    if (trace_use) call da_trace_exit("da_initialize_cv")
  24
  25 end subroutine da_initialize_cv
  26
  27