mod_rrk.f90

Go to the documentation of this file.

!/===========================================================================/
! Copyright (c) 2007, The University of Massachusetts Dartmouth 
! Produced at the School of Marine Science & Technology 
! Marine Ecosystem Dynamics Modeling group
! All rights reserved.
!
! FVCOM has been developed by the joint UMASSD-WHOI research team. For 
! details of authorship and attribution of credit please see the FVCOM
! technical manual or contact the MEDM group.
!
! 
! This file is part of FVCOM. For details, see http://fvcom.smast.umassd.edu 
! The full copyright notice is contained in the file COPYRIGHT located in the 
! root directory of the FVCOM code. This original header must be maintained
! in all distributed versions.
!
! THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 
! AND ANY EXPRESS OR  IMPLIED WARRANTIES, INCLUDING,  BUT NOT  LIMITED TO,
! THE IMPLIED WARRANTIES OF MERCHANTABILITY AND  FITNESS FOR A PARTICULAR
! PURPOSE ARE DISCLAIMED.  
!
!/---------------------------------------------------------------------------/
! CVS VERSION INFORMATION
! $Id$
! $Name$
! $Revision$
!/===========================================================================/

MODULE rrkval
END MODULE rrkval

MODULE mod_rrk
   USE mod_input, only : nc_start
   USE rrkval
   USE control
   USE mod_utils
   USE mod_nctools
   IMPLICIT NONE
   SAVE
   
   INTEGER  ::  rrk_eofcontr
   CHARACTER(LEN=80) :: ref_start_date
   CHARACTER(LEN=80) :: ref_end_date
   CHARACTER(LEN=80) :: rrk_start_date
   CHARACTER(LEN=80) :: rrk_end_date

   TYPE(time) :: ref_start_time
   TYPE(time) :: ref_end_time
   TYPE(time) :: rrk_start_time
   TYPE(time) :: rrk_end_time

   TYPE(time) :: rrk_cyc

   CHARACTER(LEN=80) :: rrk_assim_interval
   TYPE(time) :: rrk_interval


   INTEGER      ref_int           !!GLOBAL NUMBER OF THE READING FILE INTERVALS 
   INTEGER      rrk_nobsmax
   INTEGER      rrk_option        !!OPTION 1 FOR BAROTROPIC CASE; OPTION 2 FOR BAROCLINIC CASE
   INTEGER      rrk_neof          !!NUMBER OF THE EOF  
   REAL(sp) ::  rrk_psize         !!PERTURBATION SIZE  
   REAL(sp) ::  rrk_pscale        !!PSEUDO MODEL ERROR    
   REAL(sp) ::  rrk_rscale        !!SCALE FACTOR APPLIED TO ONE STANDARD DEVIATION FOR R

   LOGICAL  :: rrk_on

END MODULE mod_rrk