New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
istate.F90 in branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OFF_SRC – NEMO

source: branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/OFF_SRC/istate.F90 @ 5239

Last change on this file since 5239 was 5239, checked in by davestorkey, 9 years ago

Commit changes to UKMO nn_etau revision branch (including clearing
SVN keywords).

File size: 2.0 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$
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.