Changeset 8442 for branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

Timestamp:

2017-08-17T13:39:18+02:00 (7 years ago)

Author:

frrh

Message:

Commit changes relating to Met Office GMED ticket 340 for the
tidying of MEDUSA related code and debugging statements in the TOP code.

Only code introduced at revision 8434 of branch
​http://fcm3/projects/NEMO.xm/log/branches/NERC/dev_r5518_GO6_split_trcbiomedusa
is included here, all previous revisions of that branch having been dealt with
under GMED ticket 339.

File:

• branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (3 diffs)

branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -99 +99 @@
       USE sbc_oce,                    ONLY: lk_oasis
       USE sms_medusa,                 ONLY: hist_pco2
-      USE trc,                        ONLY: ln_diatrc, ln_rsttr,            &
-                                            nittrc000, trn
- 
+      USE trc,                        ONLY: ln_rsttr, nittrc000, trn
       USE bio_medusa_init_mod,        ONLY: bio_medusa_init
       USE carb_chem_mod,              ONLY: carb_chem
@@ -640 +638 @@
          !! 2d specific k level diags
          !!-------------------------------------------------------
-         IF( lk_iomput  .AND.  .NOT.  ln_diatrc  ) THEN
+         IF( lk_iomput ) THEN
             CALL bio_medusa_diag_slice( jk )
          ENDIF
@@ -651 +649 @@
       !!------------------------------------------------------------------
       CALL bio_medusa_fin( kt )
-
-# if defined key_trc_diabio
-       !! Lateral boundary conditions on trcbio
-       DO jn=1,jp_medusa_trd
-          CALL lbc_lnk(trbio(:,:,1,jn),'T',1. )
-       ENDDO 
-# endif
 
 # if defined key_debug_medusa