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

source: trunk/NEMOGCM/NEMO/OFF_SRC/istate.F90 @ 4569

Last change on this file since 4569 was 4569, checked in by vichi, 10 years ago

Correct problem with reading mesh_mask in OFF_SRC, Ticket #1253

The reading of mesh mask information is now compliant with the
grid variables written in mesh_mask.nc.
Be aware that if one is using a mesh_mask generated with a previous
version of NEMO (<3.6) variable e3t must be renamed to e3t_0.
This commit also adds information on the date which may be needed
by other biogeochemical models.
  • Property svn:keywords set to Id
File size: 2.2 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   USE daymod          ! calendar
15
16   IMPLICIT NONE
17   PRIVATE
18
19   PUBLIC   istate_init   ! routine called by step.F90
20
21   !! * Substitutions
22#  include "domzgr_substitute.h90"
23#  include "vectopt_loop_substitute.h90"
24   !!----------------------------------------------------------------------
25   !! NEMO/OFF 3.3 , NEMO Consortium (2010)
26   !! $Id$
27   !! Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt)
28   !!---------------------------------------------------------------------
29CONTAINS
30
31   SUBROUTINE istate_init
32      !!----------------------------------------------------------------------
33      !!                   ***  ROUTINE istate_init  ***
34      !!
35      !! ** Purpose :   Initialization to zero of the dynamics and tracers.
36      !!----------------------------------------------------------------------
37      !
38      !     now fields         !     after fields      !
39      un   (:,:,:)   = 0._wp   ;   ua(:,:,:) = 0._wp   !
40      vn   (:,:,:)   = 0._wp   ;   va(:,:,:) = 0._wp   !
41      wn   (:,:,:)   = 0._wp   !                       !
42      hdivn(:,:,:)   = 0._wp   !                       !
43      tsn  (:,:,:,:) = 0._wp   !                       !
44      !
45      rhd  (:,:,:) = 0.e0
46      rhop (:,:,:) = 0.e0
47      rn2  (:,:,:) = 0.e0 
48      !
49      CALL day_init                           ! model calendar (using both namelist and restart infos)
50
51   END SUBROUTINE istate_init
52
53   !!=====================================================================
54END MODULE istate
Note: See TracBrowser for help on using the repository browser.