Changeset 8062 for branches/UKMO/dev_r5518_medusa_chg_trc_bio_medusa/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_diag.F90
- Timestamp:
- 2017-05-24T10:03:18+02:00 (7 years ago)
- 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 78 78 DO jj = 2,jpjm1 79 79 DO ji = 2,jpim1 80 if (tmask(ji,jj, 1) == 1) then80 if (tmask(ji,jj,jk) == 1) then 81 81 !! sum tracers for inventory checks 82 82 IF ( med_diag%INVTN%dgsave ) THEN … … 105 105 DO jj = 2,jpjm1 106 106 DO ji = 2,jpim1 107 if (tmask(ji,jj, 1) == 1) then107 if (tmask(ji,jj,jk) == 1) then 108 108 IF ( med_diag%INVTC%dgsave ) THEN 109 109 ftot_c(ji,jj) = ftot_c(ji,jj) + & … … 128 128 DO jj = 2,jpjm1 129 129 DO ji = 2,jpim1 130 if (tmask(ji,jj, 1) == 1) then130 if (tmask(ji,jj,jk) == 1) then 131 131 IF ( med_diag%INVTC%dgsave ) THEN 132 132 !! … … 155 155 DO jj = 2,jpjm1 156 156 DO ji = 2,jpim1 157 if (tmask(ji,jj, 1) == 1) then157 if (tmask(ji,jj,jk) == 1) then 158 158 IF ( med_diag%O2min%dgsave ) THEN 159 159 if ( zoxy(ji,jj) < o2min(ji,jj) ) then
Note: See TracChangeset
for help on using the changeset viewer.