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.
c1d.F90 in trunk/NEMO/C1D_SRC – NEMO

source: trunk/NEMO/C1D_SRC/c1d.F90 @ 899

Last change on this file since 899 was 899, checked in by rblod, 16 years ago

First set of modifications related to 1D update : cometic changes, see ticket #117

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.5 KB
Line 
1MODULE ini1d
2   !!======================================================================
3   !!                     ***  MODULE  ini1D  ***
4   !! Ocean state   :  1D initialization
5   !!=====================================================================
6#if defined key_c1d
7   !!----------------------------------------------------------------------
8   !!   'key_cf1d'               1D Configuration
9   !!----------------------------------------------------------------------
10   !!   init_1d   : initial mask
11   !!----------------------------------------------------------------------
12   !! * Modules used
13   USE dom_oce         ! ocean space and time domain
14   USE phycst
15   USE in_out_manager
16
17   IMPLICIT NONE
18   PRIVATE
19
20   !! * Share Module variables
21   LOGICAL, PUBLIC, PARAMETER ::  lk_c1d = .TRUE.       !: 1D flag
22
23   !! * Routine accessibility
24   PUBLIC init_1d   ! routine called by OPA.F90
25
26   !!----------------------------------------------------------------------
27   !!   OPA 9.0 , LOCEAN-IPSL (2005)
28   !! $Header$
29   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
30   !!----------------------------------------------------------------------
31
32CONTAINS
33
34   SUBROUTINE init_1d
35      !!----------------------------------------------------------------------
36      !!                   ***  ROUTINE init_1d  ***
37      !!
38      !! ** Purpose :   Re-Initialization of masks on 1D configuration
39      !!
40      !! ** Method  :
41      !!
42      !! History :
43      !!   9.0  !  04-09  (C. Ethe) 1D configuration
44      !!----------------------------------------------------------------------
45      !! * Local declarations
46      !!----------------------------------------------------------------------
47
48      IF(lwp) WRITE(numout,*)
49      IF(lwp) WRITE(numout,*) 'init_1d :  masks on 1D configuration'
50      IF(lwp) WRITE(numout,*) '~~~~~~~~~'
51
52      ! set umask and vmask equal tmask in 1D configuration
53      umask(:,:,:) = tmask(:,:,:)
54      vmask(:,:,:) = tmask(:,:,:)     
55
56   END SUBROUTINE init_1d
57
58#else
59   !!----------------------------------------------------------------------
60   !!   Default key                                     NO 1D Config
61   !!----------------------------------------------------------------------
62   LOGICAL , PUBLIC, PARAMETER ::   lk_c1d = .FALSE.    !: internal damping flag
63CONTAINS
64   SUBROUTINE init_1d       ! Empty routine
65
66   END SUBROUTINE init_1d
67#endif
68
69   !!=====================================================================
70END MODULE ini1d
Note: See TracBrowser for help on using the repository browser.