source: vendor/nemo/v3.4_r_3220_dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OFF_SRC/istate.F90

Last change on this file was 1, checked in by cholod, 13 years ago

importing initial nemo vendor drop (v3.4_r_3220)
File size: 2.1 KB
Line 
1MODULE istate
2   !!======================================================================
3   !!                     ***  MODULE  istate  ***
4   !! Ocean state   :  initial state setting, off-line case
5   !!=====================================================================
6   !! History :  3.3  ! 2010-10  (C. Ethe)  original code
7   !!----------------------------------------------------------------------
8
9   !!----------------------------------------------------------------------
10   !!   istate_init   : initial state set to zero
11   !!----------------------------------------------------------------------
12   USE oce             ! ocean dynamics and active tracers
13   USE dom_oce         ! ocean space and time domain
14
15   IMPLICIT NONE
16   PRIVATE
17
18   PUBLIC   istate_init   ! routine called by step.F90
19
20   !! * Substitutions
21#  include "domzgr_substitute.h90"
22#  include "vectopt_loop_substitute.h90"
23   !!----------------------------------------------------------------------
24   !! NEMO/OFF 3.3 , NEMO Consortium (2010)
25   !! $Id: istate.F90 2528 2010-12-27 17:33:53Z rblod $
26   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
27   !!---------------------------------------------------------------------
28CONTAINS
29
30   SUBROUTINE istate_init
31      !!----------------------------------------------------------------------
32      !!                   ***  ROUTINE istate_init  ***
33      !!
34      !! ** Purpose :   Initialization to zero of the dynamics and tracers.
35      !!----------------------------------------------------------------------
36      !
37      !     now fields         !     after fields      !
38      un   (:,:,:)   = 0._wp   ;   ua(:,:,:) = 0._wp   !
39      vn   (:,:,:)   = 0._wp   ;   va(:,:,:) = 0._wp   !
40      wn   (:,:,:)   = 0._wp   !                       !
41      hdivn(:,:,:)   = 0._wp   !                       !
42      tsn  (:,:,:,:) = 0._wp   !                       !
43      !
44      rhd  (:,:,:) = 0.e0
45      rhop (:,:,:) = 0.e0
46      rn2  (:,:,:) = 0.e0 
47      !
48   END SUBROUTINE istate_init
49
50   !!=====================================================================
51END MODULE istate
Note: See TracBrowser for help on using the repository browser.