Changeset 17

Timestamp:

2004-02-17T09:35:07+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX002 : Compilation error is solved

File:

• trunk/NEMO/OPA_SRC/SBC/bulk.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/SBC/bulk.F90

@@ -3 +3 @@
    !!                           ***  bulk  ***
    !!======================================================================
-
+#if defined key_flx_bulk_monthly || defined key_flx_bulk_daily
+   !!----------------------------------------------------------------------
+   !!   'key_flx_bulk_monthly'                        monthly bulk formulea
+   !!   'key_flx_bulk_daily'                          monthly bulk formulea
    !!----------------------------------------------------------------------
    !!   bulk          : computation of fluxes using bulk formulation
@@ -14 +17 @@
    USE flxblk          ! bulk formulae
    USE blk_oce         ! bulk variable 
+   USE flx_oce
    USE taumod
    USE phycst          ! physical constants
@@ -110 +114 @@
  
    END SUBROUTINE blk
+
+#else
+   !!----------------------------------------------------------------------
+   !!   Dummy module :                                     NO bulk formulea
+   !!----------------------------------------------------------------------
+CONTAINS
+   SUBROUTINE blk( kt )          ! Dummy routine
+      WRITE(*,*) 'blk: You should not see this print! error? ', kt
+   END SUBROUTINE blk
+#endif
  
    !!======================================================================