Changeset 2798 for branches/2011/dev_r2784_CMCC1_topbfm/NEMOGCM/NEMO/TOP_SRC/trcini.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/trcini.F90 (modified) (3 diffs)

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

@@ -25 +25 @@
    USE trcini_c14b     ! C14 bomb initialisation
    USE trcini_my_trc   ! MY_TRC   initialisation
+#if defined key_bfm
+   USE par_bfm
+#endif
    USE trcdta   
    USE daymod
@@ -94 +97 @@
       ENDIF
 
-      IF( ln_dm2dc .AND. ( lk_pisces .OR. lk_lobster ) )    &
-         &       CALL ctl_stop( ' The diurnal cycle is not compatible with PISCES or LOBSTER  ' )
+      IF( ln_dm2dc .AND. ( lk_pisces .OR. lk_lobster .OR. lk_bfm) )    &
+         &       CALL ctl_stop( ' The diurnal cycle is not compatible with PISCES or LOBSTER or BFM ' )
 
       IF( nn_cla == 1 )   &
@@ -118 +121 @@
       IF( lk_my_trc  ) THEN   ;   CALL trc_ini_my_trc       ! MY_TRC  tracers
       ELSE                    ;   IF(lwp) WRITE(numout,*) '          MY_TRC not used'
+      ENDIF
+
+      IF( lk_bfm     ) THEN   ;   CALL trc_ini_bfm          ! BFM  tracers
+      ELSE                    ;   IF(lwp) WRITE(numout,*) '          BFM not used'
       ENDIF