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/2014/dev_r4650_UKMO3_masked_damping/NEMOGCM/NEMO/OFF_SRC – NEMO

source: branches/2014/dev_r4650_UKMO3_masked_damping/NEMOGCM/NEMO/OFF_SRC/istate.F90 @ 5086

Last change on this file since 5086 was 5086, checked in by timgraham, 9 years ago

Merged head of trunk into branch in preparation for putting code back onto the trunk
In working copy ran the command:
svn merge svn+sshtimgraham@…/ipsl/forge/projets/nemo/svn/trunk

Also recompiled NEMO_book.pdf with merged input files

  • Property svn:keywords set to Id
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.