New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8062 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90 – NEMO

Ignore:
Timestamp:
2017-05-24T10:03:18+02:00 (7 years ago)
Author:
marc
Message:

Fixes to do with tmask(ji,jj,1) and mbathy(ji,jj) outside DO loop

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90

    r8025 r8062  
    7878         DO jj = 2,jpjm1 
    7979            DO ji = 2,jpim1 
    80                if (tmask(ji,jj,1) == 1) then 
     80               if (tmask(ji,jj,jk) == 1) then 
    8181                  !! sum tracers for inventory checks 
    8282                  IF ( med_diag%INVTN%dgsave )   THEN 
     
    105105         DO jj = 2,jpjm1 
    106106            DO ji = 2,jpim1 
    107                if (tmask(ji,jj,1) == 1) then 
     107               if (tmask(ji,jj,jk) == 1) then 
    108108                  IF ( med_diag%INVTC%dgsave )  THEN 
    109109                     ftot_c(ji,jj)  = ftot_c(ji,jj) +                        &  
     
    128128         DO jj = 2,jpjm1 
    129129            DO ji = 2,jpim1 
    130                if (tmask(ji,jj,1) == 1) then 
     130               if (tmask(ji,jj,jk) == 1) then 
    131131                  IF ( med_diag%INVTC%dgsave )  THEN 
    132132                     !! 
     
    155155         DO jj = 2,jpjm1 
    156156            DO ji = 2,jpim1 
    157                if (tmask(ji,jj,1) == 1) then 
     157               if (tmask(ji,jj,jk) == 1) then 
    158158                  IF ( med_diag%O2min%dgsave ) THEN 
    159159                     if ( zoxy(ji,jj) < o2min(ji,jj) ) then 
Note: See TracChangeset for help on using the changeset viewer.