Changeset 541 for trunk/NEMO/OPA_SRC/TRA/trabbl.F90

Timestamp:

2006-10-20T14:21:28+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_065:RB: move namelist declaration for compatibility with Agrif

File:

• trunk/NEMO/OPA_SRC/TRA/trabbl.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/trabbl.F90

@@ -36 +36 @@
    !!* Namelist nambbl: bottom boundary layer
    REAL(wp), PUBLIC ::   atrbbl = 1.e+3   !: lateral coeff. for bottom boundary layer scheme (m2/s)
-   NAMELIST/nambbl/ atrbbl
 
 # if defined key_trabbl_dif
@@ -460 +459 @@
       INTEGER ::   ji, jj      ! dummy loop indices
       REAL(wp),  DIMENSION(jpi,jpj) :: zmbk  
+
+      NAMELIST/nambbl/ atrbbl
       !!----------------------------------------------------------------------