Changeset 541 for trunk/NEMO/OPA_SRC/TRA/trabbc.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/trabbc.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/TRA/trabbc.F90

@@ -35 +35 @@
    INTEGER  ::   ngeo_flux       = 1            ! Geothermal flux (0:no flux, 1:constant flux, 2:read in file )
    REAL(wp) ::   ngeo_flux_const = 86.4e-3      ! Constant value of geothermal heat flux
-   NAMELIST/nambbc/ngeo_flux, ngeo_flux_const 
 
    INTEGER , DIMENSION(jpi,jpj) ::   nbotlevt   ! ocean bottom level index at T-pt
@@ -139 +138 @@
       INTEGER  ::   ji, jj              ! dummy loop indices
       INTEGER  ::   inum                ! temporary logical unit
+
+      NAMELIST/nambbc/ngeo_flux, ngeo_flux_const 
       !!----------------------------------------------------------------------