Changeset 1119 for trunk/NEMO/OFF_SRC/TRA/trabbl.F90

Timestamp:

2008-06-20T17:17:41+02:00 (16 years ago)

Author:

cetlod

Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:

• trunk/NEMO/OFF_SRC/TRA/trabbl.F90 (modified) (3 diffs)

trunk/NEMO/OFF_SRC/TRA/trabbl.F90

@@ -102 +102 @@
       !!----------------------------------------------------------------------
       !! * Local declarations
-      NAMELIST/nam_bbl/ atrbbl
+      NAMELIST/nambbl/ atrbbl
       !!----------------------------------------------------------------------
 
@@ -108 +108 @@
       ! --------------------
       REWIND ( numnam )
-      READ   ( numnam, nam_bbl )
+      READ   ( numnam, nambbl )
 
       ! Parameter control and print
@@ -117 +117 @@
          WRITE(numout,*) 'tra_bbl_init : * Diffusive Bottom Boundary Layer'
          WRITE(numout,*) '~~~~~~~~~~~~'
-         WRITE(numout,*) '          Namelist nam_bbl : set bbl parameters'
+         WRITE(numout,*) '          Namelist nambbl : set bbl parameters'
          WRITE(numout,*)
          WRITE(numout,*) '          bottom boundary layer coef.    atrbbl = ', atrbbl