Changeset 32 for trunk/NEMO/OPA_SRC/TRA/trabbc.F90

Timestamp:

2004-02-17T10:20:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/TRA/trabbc.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRA/trabbc.F90

@@ -4 +4 @@
    !! Ocean active tracers:  bottom boundary condition
    !!==============================================================================
-#if defined key_trabbc
+#if   defined key_trabbc   ||   defined key_esopa
    !!----------------------------------------------------------------------
    !!   'key_trabbc'                                  geothermal heat flux
@@ -24 +24 @@
 
    !! to be transfert in the namelist ???!   
-   LOGICAL, PUBLIC, PARAMETER ::   lk_trabbc = .TRUE.   ! bbc flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_trabbc = .TRUE.   !: bbc flag
 
    !! * Module variables
@@ -237 +237 @@
    !!   Default option                                         Empty module
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC, PARAMETER ::   lk_trabbc = .FALSE.  ! bbc flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_trabbc = .FALSE.  !: bbc flag
 CONTAINS
    SUBROUTINE tra_bbc( kt )           ! Empty routine
-      WRITE(*,*) kt                      ! suppress a warning when compiling
+      WRITE(*,*) 'tra_bbc: You should not have seen this print! error?', kt
    END SUBROUTINE tra_bbc
 #endif