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.
trclsm.cfc.h90 in trunk/NEMO/TOP_SRC/SMS – NEMO

source: trunk/NEMO/TOP_SRC/SMS/trclsm.cfc.h90 @ 274

Last change on this file since 274 was 274, checked in by opalod, 19 years ago

nemo_v1_update_005:RB: update headers for the TOP component.

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 969 bytes
Line 
1!!!
2!!!                       trclsm.cfc.h
3!!!                       ****************
4!!!
5!!!  PURPOSE :
6!!!  ---------
7!!!     READs and PRINT options for cfc  namelist
8
9#if defined key_passivetrc && defined key_cfc
10
11      CHARACTER (len=32) :: clname
12
13
14!!---------------------------------------------------------------------
15!!  TOP 1.0,  LOCEAN-IPSL (2005)
16!! $Header$
17!! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt
18!!---------------------------------------------------------------------
19
20! 0. initializations
21! ------------------
22
23      NAMELIST/coffset/xinitri
24
25      numnat=80
26      clname ='namelist.sms.cfc'
27      OPEN( numnat, FILE= clname, FORM='formatted', STATUS = 'old')
28
29
30!  Namelist traback :
31!  ------------------
32      READ(numnat,coffset)
33
34      IF(lwp) THEN
35          WRITE(numout,*) ' '
36          WRITE(numout,*) 'coffset'
37          write(numout,coffset)
38          WRITE(numout,*) ' '
39      ENDIF
40
41#endif
42
43
44
45
46
47
48
49
Note: See TracBrowser for help on using the repository browser.