Changeset 196

Timestamp:

2004-12-22T16:46:34+01:00 (19 years ago)

Author:

opalod

Message:

CT : BUGFIX137 : set the atrbbl parameter with a PUBLIC status

File:

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

trunk/NEMO/OPA_SRC/TRA/trabbl.F90

@@ -30 +30 @@
    !! * Shared module variables
    LOGICAL, PUBLIC, PARAMETER ::   &  !:
-      lk_trabbl_dif = .TRUE.   !: diffusive bottom boundary layer flag
+      lk_trabbl_dif = .TRUE.          !: diffusive bottom boundary layer flag
+   REAL(wp), PUBLIC ::            &  !!: * bbl namelist *
+      atrbbl = 1.e+3                  !: lateral coeff. for bottom boundary 
+      !                               !  layer scheme (m2/s)
 # if defined key_trabbl_adv
    LOGICAL, PUBLIC, PARAMETER ::    &  !:
@@ -46 +49 @@
    INTEGER, DIMENSION(jpi,jpj) ::   &  !:
       mbkt, mbku, mbkv                 ! ???
-   REAL(wp) ::        &  !!! * bbl namelist *
-      atrbbl = 1.e+3      ! lateral coeff. for bottom boundary layer scheme (m2/s)
 
    !! * Substitutions