Changeset 8372 for branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

Timestamp:

2017-07-25T18:58:24+02:00 (7 years ago)

Author:

jpalmier

Message:

JPALM -- debug switch TOP module call order ; remove trc2d and trc3d from MEDUSA (obsolete); rm trcrst_medusa (obsolete)

File:

• branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90 (modified) (5 diffs)

branches/NERC/dev_r5518_GO6_CleanMedusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90

@@ -82 +82 @@
                                             nday_year, nsec_day, nyear,     &
                                             rdt, tmask
-      USE in_out_manager,             ONLY: lwp, numout
+      USE in_out_manager,             ONLY: lwp, numout, nn_date0
 # if defined key_iomput
       USE iom,                        ONLY: lk_iomput
@@ -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
@@ -242 +240 @@
 
 # if defined key_axy_nancheck
-       DO jn = 1,jptra
+       DO jn = jp_msa0,jp_msa1
           !! fq0 = MINVAL(trn(:,:,:,jn))
           !! fq1 = MAXVAL(trn(:,:,:,jn))
@@ -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