Changeset 2798 for branches/2011/dev_r2784_CMCC1_topbfm/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

Timestamp:

2011-07-11T16:18:18+02:00 (13 years ago)

Author:

vichi

Message:

Added initial coupling with BFM

File:

• branches/2011/dev_r2784_CMCC1_topbfm/NEMOGCM/NEMO/TOP_SRC/trcstp.F90 (modified) (4 diffs)

branches/2011/dev_r2784_CMCC1_topbfm/NEMOGCM/NEMO/TOP_SRC/trcstp.F90

@@ -11 +11 @@
    !!----------------------------------------------------------------------
    USE oce_trc          ! ocean dynamics and active tracers variables
+#if ! defined key_bfm
    USE trc
    USE trctrp           ! passive tracers transport
@@ -20 +21 @@
    USE trdmod_trc_oce
    USE trdmld_trc
+#else
+   USE api_bfm, ONLY: bio_calc
+   USE par_bfm
+#ifdef key_obc
+   USE trcobcdta_bfm
+#endif
+#endif
    USE iom
    USE in_out_manager
@@ -49 +57 @@
       !!-------------------------------------------------------------------
 
+#if defined key_bfm
+   !---------------------------------------------
+   ! Check the main BFM flag
+   !---------------------------------------------
+      IF (bio_calc) THEN
+
+                             CALL trc_bfm( kt )           ! main call to BFM
+
+                             CALL trc_trp_bfm( kt )       ! transport of BFM tracers
+
+                             CALL trc_dia_bfm( kt )       ! diagnostic output for BFM
+      END IF
+#else
+
       IF( MOD( kt - 1 , nn_dttrc ) == 0 ) THEN      ! only every nn_dttrc time step
          !
@@ -71 +93 @@
          !
       ENDIF
+#endif
 
    END SUBROUTINE trc_stp