Changeset 5937 for branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM
- Timestamp:
- 2015-11-27T13:58:10+01:00 (9 years ago)
- Location:
- branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcbio_medusa.F90
r5931 r5937 69 69 # if defined key_iomput 70 70 USE iom 71 USE trc_nam_dia ! JPALM 13-11-2015 -- if iom_use for diag72 USE trc_nam_iom_medusa ! JPALM 13-11-2015 -- if iom_use for diag71 !!USE trc_nam_dia ! JPALM 13-11-2015 -- if iom_use for diag 72 !!USE trc_nam_iom_medusa ! JPALM 13-11-2015 -- if iom_use for diag 73 73 # endif 74 74 # if defined key_roam … … 169 169 !! primary production and chl related quantities 170 170 REAL(wp) :: fthetan,faln,fchn1,fchn,fjln,fprn,frn 171 REAL(wp), DIMENSION(jpi,jpj) :: fprn2d172 171 REAL(wp) :: fthetad,fald,fchd1,fchd,fjld,fprd,frd 173 REAL(wp), DIMENSION(jpi,jpj) :: fprd2d174 172 !! AXY (03/02/11): add in Liebig terms 175 173 REAL(wp) :: fpnlim, fpdlim … … 214 212 !! mortality/Remineralisation (defunct parameter "fz" removed) 215 213 REAL(wp) :: fdpn,fdpd,fdpds,fdzmi,fdzme,fdd 216 REAL(wp), DIMENSION(jpi,jpj) :: fdpn2d,fdpd2d217 214 # if defined key_roam 218 215 REAL(wp) :: fddc … … 3615 3612 ENDIF 3616 3613 IF( med_diag%TOTRG_SI%dgsave ) THEN 3617 fregensi2d( ) = fregensi2d() + fregensi3614 fregensi2d(ji,jj) = fregensi2d(ji,jj) + fregensi 3618 3615 ENDIF 3619 3616 !! … … 4142 4139 endif 4143 4140 !! CLOSE horizontal loops 4144 END 4145 END 4141 ENDDO 4142 ENDDO 4146 4143 !! 4147 4144 IF( lk_iomput .AND. .NOT. ln_diatrc ) THEN … … 4290 4287 ENDIF 4291 4288 ELSE IF (jk.eq.i0150) THEN 4292 IF( med_diag%BAS SIN_01%dgsave ) THEN4293 CALL iom_put( "BAS SIN_01" , fprn2d )4294 ENDIF 4295 IF( med_diag%BAS SIN_02%dgsave ) THEN4296 CALL iom_put( "BAS SIN_02" , fdpn22d )4297 ENDIF 4298 IF( med_diag%BAS SIN_03%dgsave ) THEN4299 CALL iom_put( "BAS SIN_03" , fdpn2d )4300 ENDIF 4301 IF( med_diag%BAS SIN_04%dgsave ) THEN4302 CALL iom_put( "BAS SIN_04" , fgmipn2d )4303 ENDIF 4304 IF( med_diag%BAS SIN_05%dgsave ) THEN4305 CALL iom_put( "BAS SIN_05" , fgmepn2d )4306 ENDIF 4307 IF( med_diag%BAS SIN_06%dgsave ) THEN4308 CALL iom_put( "BAS SIN_06" , fprd2d )4309 ENDIF 4310 IF( med_diag%BAS SIN_07%dgsave ) THEN4311 CALL iom_put( "BAS SIN_07" , fdpd22d )4312 ENDIF 4313 IF( med_diag%BAS SIN_08%dgsave ) THEN4314 CALL iom_put( "BAS SIN_08" , fdpd2d )4315 ENDIF 4316 IF( med_diag%BAS SIN_09%dgsave ) THEN4317 CALL iom_put( "BAS SIN_09" , fgmepd2d )4318 ENDIF 4319 IF( med_diag%BAS SIN_10%dgsave ) THEN4320 CALL iom_put( "BAS SIN_10" , fgmid2d )4321 ENDIF 4322 IF( med_diag%BAS SIN_11%dgsave ) THEN4323 CALL iom_put( "BAS SIN_11" , gmidc2d )4324 ENDIF 4325 IF( med_diag%BAS SIN_12%dgsave ) THEN4326 CALL iom_put( "BAS SIN_12" , zimesn2d )4327 ENDIF 4328 IF( med_diag%BAS SIN_13%dgsave ) THEN4329 CALL iom_put( "BAS SIN_13" , zimesd2d )4330 ENDIF 4331 IF( med_diag%BAS SIN_14%dgsave ) THEN4332 CALL iom_put( "BAS SIN_14" , zimesc2d )4333 ENDIF 4334 IF( med_diag%BAS SIN_15%dgsave ) THEN4335 CALL iom_put( "BAS SIN_15" , zimesdc2d )4336 ENDIF 4337 IF( med_diag%BAS SIN_16%dgsave ) THEN4338 CALL iom_put( "BAS SIN_16" , ziexcr2d )4339 ENDIF 4340 IF( med_diag%BAS SIN_17%dgsave ) THEN4341 CALL iom_put( "BAS SIN_17" , ziresp2d )4342 ENDIF 4343 IF( med_diag%BAS SIN_18%dgsave ) THEN4344 CALL iom_put( "BAS SIN_18" , zigrow2d )4345 ENDIF 4346 IF( med_diag%BAS SIN_19%dgsave ) THEN4347 CALL iom_put( "BAS SIN_19" , fdzmi22d )4348 ENDIF 4349 IF( med_diag%BAS SIN_20%dgsave ) THEN4350 CALL iom_put( "BAS SIN_20" , fdzmi2d )4351 ENDIF 4352 IF( med_diag%BAS SIN_21%dgsave ) THEN4353 CALL iom_put( "BAS SIN_21" , fgmezmi2d )4354 ENDIF 4355 IF( med_diag%BAS SIN_22%dgsave ) THEN4356 CALL iom_put( "BAS SIN_22" , fgmed2d )4357 ENDIF 4358 IF( med_diag%BAS SIN_23%dgsave ) THEN4359 CALL iom_put( "BAS SIN_23" , gmedc2d )4360 ENDIF 4361 IF( med_diag%BAS SIN_24%dgsave ) THEN4362 CALL iom_put( "BAS SIN_24" , zemesn2d )4289 IF( med_diag%BASIN_01%dgsave ) THEN 4290 CALL iom_put( "BASIN_01" , fprn2d ) 4291 ENDIF 4292 IF( med_diag%BASIN_02%dgsave ) THEN 4293 CALL iom_put( "BASIN_02" , fdpn22d ) 4294 ENDIF 4295 IF( med_diag%BASIN_03%dgsave ) THEN 4296 CALL iom_put( "BASIN_03" , fdpn2d ) 4297 ENDIF 4298 IF( med_diag%BASIN_04%dgsave ) THEN 4299 CALL iom_put( "BASIN_04" , fgmipn2d ) 4300 ENDIF 4301 IF( med_diag%BASIN_05%dgsave ) THEN 4302 CALL iom_put( "BASIN_05" , fgmepn2d ) 4303 ENDIF 4304 IF( med_diag%BASIN_06%dgsave ) THEN 4305 CALL iom_put( "BASIN_06" , fprd2d ) 4306 ENDIF 4307 IF( med_diag%BASIN_07%dgsave ) THEN 4308 CALL iom_put( "BASIN_07" , fdpd22d ) 4309 ENDIF 4310 IF( med_diag%BASIN_08%dgsave ) THEN 4311 CALL iom_put( "BASIN_08" , fdpd2d ) 4312 ENDIF 4313 IF( med_diag%BASIN_09%dgsave ) THEN 4314 CALL iom_put( "BASIN_09" , fgmepd2d ) 4315 ENDIF 4316 IF( med_diag%BASIN_10%dgsave ) THEN 4317 CALL iom_put( "BASIN_10" , fgmid2d ) 4318 ENDIF 4319 IF( med_diag%BASIN_11%dgsave ) THEN 4320 CALL iom_put( "BASIN_11" , gmidc2d ) 4321 ENDIF 4322 IF( med_diag%BASIN_12%dgsave ) THEN 4323 CALL iom_put( "BASIN_12" , zimesn2d ) 4324 ENDIF 4325 IF( med_diag%BASIN_13%dgsave ) THEN 4326 CALL iom_put( "BASIN_13" , zimesd2d ) 4327 ENDIF 4328 IF( med_diag%BASIN_14%dgsave ) THEN 4329 CALL iom_put( "BASIN_14" , zimesc2d ) 4330 ENDIF 4331 IF( med_diag%BASIN_15%dgsave ) THEN 4332 CALL iom_put( "BASIN_15" , zimesdc2d ) 4333 ENDIF 4334 IF( med_diag%BASIN_16%dgsave ) THEN 4335 CALL iom_put( "BASIN_16" , ziexcr2d ) 4336 ENDIF 4337 IF( med_diag%BASIN_17%dgsave ) THEN 4338 CALL iom_put( "BASIN_17" , ziresp2d ) 4339 ENDIF 4340 IF( med_diag%BASIN_18%dgsave ) THEN 4341 CALL iom_put( "BASIN_18" , zigrow2d ) 4342 ENDIF 4343 IF( med_diag%BASIN_19%dgsave ) THEN 4344 CALL iom_put( "BASIN_19" , fdzmi22d ) 4345 ENDIF 4346 IF( med_diag%BASIN_20%dgsave ) THEN 4347 CALL iom_put( "BASIN_20" , fdzmi2d ) 4348 ENDIF 4349 IF( med_diag%BASIN_21%dgsave ) THEN 4350 CALL iom_put( "BASIN_21" , fgmezmi2d ) 4351 ENDIF 4352 IF( med_diag%BASIN_22%dgsave ) THEN 4353 CALL iom_put( "BASIN_22" , fgmed2d ) 4354 ENDIF 4355 IF( med_diag%BASIN_23%dgsave ) THEN 4356 CALL iom_put( "BASIN_23" , gmedc2d ) 4357 ENDIF 4358 IF( med_diag%BASIN_24%dgsave ) THEN 4359 CALL iom_put( "BASIN_24" , zemesn2d ) 4363 4360 ENDIF 4364 IF( med_diag%BAS SIN_25%dgsave ) THEN4365 CALL iom_put( "BAS SIN_25" , zemesd2d )4366 ENDIF 4367 IF( med_diag%BAS SIN_26%dgsave ) THEN4368 CALL iom_put( "BAS SIN_26" , zemesc2d )4369 ENDIF 4370 IF( med_diag%BAS SIN_27%dgsave ) THEN4371 CALL iom_put( "BAS SIN_27" , zemesdc2d )4372 ENDIF 4373 IF( med_diag%BAS SIN_28%dgsave ) THEN4374 CALL iom_put( "BAS SIN_28" , zeexcr2d )4375 ENDIF 4376 IF( med_diag%BAS SIN_29%dgsave ) THEN4377 CALL iom_put( "BAS SIN_29" , zeresp2d )4378 ENDIF 4379 IF( med_diag%BAS SIN_30%dgsave ) THEN4380 CALL iom_put( "BAS SIN_30" , zegrow2d )4381 ENDIF 4382 IF( med_diag%BAS SIN_31%dgsave ) THEN4383 CALL iom_put( "BAS SIN_30" , fdzme22d )4384 ENDIF 4385 IF( med_diag%BAS SIN_32%dgsave ) THEN4386 CALL iom_put( "BAS SIN_32" , fdzme2d )4387 ENDIF 4388 IF( med_diag%BAS SIN_33%dgsave ) THEN4389 CALL iom_put( "BAS SIN_33" , fslown2d )4390 ENDIF 4391 IF( med_diag%BAS SIN_34%dgsave ) THEN4392 CALL iom_put( "BAS SIN_34" , fdd2d )4393 ENDIF 4394 IF( med_diag%BAS SIN_35%dgsave ) THEN4395 CALL iom_put( "BAS SIN_35" , fslowc2d )4396 ENDIF 4397 IF( med_diag%BAS SIN_36%dgsave ) THEN4398 CALL iom_put( "BAS SIN_36" , mdetc2d )4399 ENDIF 4400 IF( med_diag%BAS SIN_37%dgsave ) THEN4401 CALL iom_put( "BAS SIN_37" , ftempn2d )4402 ENDIF 4403 IF( med_diag%BAS SIN_38%dgsave ) THEN4404 CALL iom_put( "BAS SIN_38" , freminn2d )4405 ENDIF 4406 IF( med_diag%BAS SIN_39%dgsave ) THEN4407 CALL iom_put( "BAS SIN_39" , ftempc2d )4408 ENDIF 4409 IF( med_diag%BAS SIN_40%dgsave ) THEN4410 CALL iom_put( "BAS SIN_40" , freminc2d )4411 ENDIF 4412 IF( med_diag%BAS SIN_41%dgsave ) THEN4413 CALL iom_put( "BAS SIN_41" , fcomm_resp )4361 IF( med_diag%BASIN_25%dgsave ) THEN 4362 CALL iom_put( "BASIN_25" , zemesd2d ) 4363 ENDIF 4364 IF( med_diag%BASIN_26%dgsave ) THEN 4365 CALL iom_put( "BASIN_26" , zemesc2d ) 4366 ENDIF 4367 IF( med_diag%BASIN_27%dgsave ) THEN 4368 CALL iom_put( "BASIN_27" , zemesdc2d ) 4369 ENDIF 4370 IF( med_diag%BASIN_28%dgsave ) THEN 4371 CALL iom_put( "BASIN_28" , zeexcr2d ) 4372 ENDIF 4373 IF( med_diag%BASIN_29%dgsave ) THEN 4374 CALL iom_put( "BASIN_29" , zeresp2d ) 4375 ENDIF 4376 IF( med_diag%BASIN_30%dgsave ) THEN 4377 CALL iom_put( "BASIN_30" , zegrow2d ) 4378 ENDIF 4379 IF( med_diag%BASIN_31%dgsave ) THEN 4380 CALL iom_put( "BASIN_30" , fdzme22d ) 4381 ENDIF 4382 IF( med_diag%BASIN_32%dgsave ) THEN 4383 CALL iom_put( "BASIN_32" , fdzme2d ) 4384 ENDIF 4385 IF( med_diag%BASIN_33%dgsave ) THEN 4386 CALL iom_put( "BASIN_33" , fslown2d ) 4387 ENDIF 4388 IF( med_diag%BASIN_34%dgsave ) THEN 4389 CALL iom_put( "BASIN_34" , fdd2d ) 4390 ENDIF 4391 IF( med_diag%BASIN_35%dgsave ) THEN 4392 CALL iom_put( "BASIN_35" , fslowc2d ) 4393 ENDIF 4394 IF( med_diag%BASIN_36%dgsave ) THEN 4395 CALL iom_put( "BASIN_36" , mdetc2d ) 4396 ENDIF 4397 IF( med_diag%BASIN_37%dgsave ) THEN 4398 CALL iom_put( "BASIN_37" , ftempn2d ) 4399 ENDIF 4400 IF( med_diag%BASIN_38%dgsave ) THEN 4401 CALL iom_put( "BASIN_38" , freminn2d ) 4402 ENDIF 4403 IF( med_diag%BASIN_39%dgsave ) THEN 4404 CALL iom_put( "BASIN_39" , ftempc2d ) 4405 ENDIF 4406 IF( med_diag%BASIN_40%dgsave ) THEN 4407 CALL iom_put( "BASIN_40" , freminc2d ) 4408 ENDIF 4409 IF( med_diag%BASIN_41%dgsave ) THEN 4410 CALL iom_put( "BASIN_41" , fcomm_resp ) 4414 4411 ENDIF 4415 IF( med_diag%BAS SIN_42%dgsave ) THEN4416 CALL iom_put( "BAS SIN_42" , fslownflux )4417 ENDIF 4418 IF( med_diag%BAS SIN_43%dgsave ) THEN4419 CALL iom_put( "BAS SIN_43" , fslowcflux )4420 ENDIF 4421 IF( med_diag%BAS SIN_44%dgsave ) THEN4422 CALL iom_put( "BAS SIN_44" , ffastn )4423 ENDIF 4424 IF( med_diag%BAS SIN_45%dgsave ) THEN4425 CALL iom_put( "BAS SIN_45" , ffastc )4412 IF( med_diag%BASIN_42%dgsave ) THEN 4413 CALL iom_put( "BASIN_42" , fslownflux ) 4414 ENDIF 4415 IF( med_diag%BASIN_43%dgsave ) THEN 4416 CALL iom_put( "BASIN_43" , fslowcflux ) 4417 ENDIF 4418 IF( med_diag%BASIN_44%dgsave ) THEN 4419 CALL iom_put( "BASIN_44" , ffastn ) 4420 ENDIF 4421 IF( med_diag%BASIN_45%dgsave ) THEN 4422 CALL iom_put( "BASIN_45" , ffastc ) 4426 4423 ENDIF 4427 4424 # endif … … 4487 4484 CALL iom_put( "SDT_1000" , fslownflux ) 4488 4485 ENDIF 4489 IF( med_diag%REG_ _1000%dgsave ) THEN4490 CALL iom_put( "REG_ _1000" , fregen2d )4486 IF( med_diag%REG_1000%dgsave ) THEN 4487 CALL iom_put( "REG_1000" , fregen2d ) 4491 4488 ENDIF 4492 IF( med_diag%FDT_ _1000%dgsave ) THEN4493 CALL iom_put( "FDT_ _1000" , ffastn )4494 ENDIF 4495 IF( med_diag%RG_ _1000F%dgsave ) THEN4496 CALL iom_put( "RG_ _1000F" , fregenfast )4497 ENDIF 4498 IF( med_diag%FDS_ _1000%dgsave ) THEN4499 CALL iom_put( "FDS_ _1000" , ffastsi )4489 IF( med_diag%FDT_1000%dgsave ) THEN 4490 CALL iom_put( "FDT_1000" , ffastn ) 4491 ENDIF 4492 IF( med_diag%RG_1000F%dgsave ) THEN 4493 CALL iom_put( "RG_1000F" , fregenfast ) 4494 ENDIF 4495 IF( med_diag%FDS_1000%dgsave ) THEN 4496 CALL iom_put( "FDS_1000" , ffastsi ) 4500 4497 ENDIF 4501 4498 IF( med_diag%RGS1000F%dgsave ) THEN … … 4510 4507 CALL wrk_dealloc( jpi, jpj, ffastca2d ) 4511 4508 ENDIF 4512 IF( med_diag%SDC_ _1000%dgsave ) THEN4513 CALL iom_put( "SDC_ _1000" , fslowcflux )4509 IF( med_diag%SDC_1000%dgsave ) THEN 4510 CALL iom_put( "SDC_1000" , fslowcflux ) 4514 4511 ENDIF 4515 4512 # endif … … 4581 4578 detflux3d(:,:,jk) = fslownflux(:,:) + ffastn(:,:) !! detrital flux 4582 4579 !CALL iom_put( "DETFLUX3" , ftot_n ) 4583 4580 ENDIF 4584 4581 ENDIF 4585 4582 !! CLOSE vertical loop 4586 END 4583 ENDDO 4587 4584 4588 4585 !!---------------------------------------------------------------------- … … 4784 4781 trc2d(ji,jj,117) = foxy_anox(ji,jj) !! integrated unrealised oxygen consumption 4785 4782 # endif 4786 END 4787 END 4783 ENDDO 4784 ENDDO 4788 4785 4789 4786 # if defined key_roam … … 4807 4804 & ji, jj, jn 4808 4805 endif 4809 enddo4810 enddo4806 ENDDO 4807 ENDDO 4811 4808 CALL ctl_stop( 'trcbio_medusa, NAN in 2D diagnostic field' ) 4812 4809 endif … … 4828 4825 & ji, jj, jk, jn 4829 4826 endif 4830 enddo4831 enddo4832 enddo4827 ENDDO 4828 ENDDO 4829 ENDDO 4833 4830 CALL ctl_stop( 'trcbio_medusa, NAN in 3D diagnostic field' ) 4834 4831 endif … … 4845 4842 DO jn=1,jp_medusa_2d 4846 4843 CALL lbc_lnk(trc2d(:,:,jn),'T',1. ) 4847 END 4844 ENDDO 4848 4845 4849 4846 !! Lateral boundary conditions on trc3d 4850 4847 DO jn=1,jp_medusa_3d 4851 4848 CALL lbc_lnk(trc3d(:,:,1,jn),'T',1. ) 4852 END DO 4849 ENDDO 4850 4851 4852 # if defined key_axy_nodiag 4853 !!---------------------------------------------------------------------- 4854 !! Blank diagnostics as a NaN-trap 4855 !!---------------------------------------------------------------------- 4856 !! 4857 !! blank 2D diagnostic array 4858 trc2d(:,:,:) = 0.e0 4859 !! 4860 !! blank 3D diagnostic array 4861 trc3d(:,:,:,:) = 0.e0 4862 # endif 4863 4864 4865 !!---------------------------------------------------------------------- 4866 !! Add in XML diagnostics stuff 4867 !!---------------------------------------------------------------------- 4868 !! 4869 !! ** 2D diagnostics 4870 DO jn=1,jp_medusa_2d 4871 CALL iom_put(TRIM(ctrc2d(jn)), trc2d(:,:,jn)) 4872 END DO 4873 !! AXY (17/02/14): don't think I need this if I modify the above for all diagnostics 4874 !! # if defined key_roam 4875 !! DO jn=91,jp_medusa_2d 4876 !! CALL iom_put(TRIM(ctrc2d(jn)), trc2d(:,:,jn)) 4877 !! END DO 4878 !! # endif 4879 !! 4880 !! ** 3D diagnostics 4881 DO jn=1,jp_medusa_3d 4882 CALL iom_put(TRIM(ctrc3d(jn)), trc3d(:,:,:,jn)) 4883 END DO 4884 !! AXY (17/02/14): don't think I need this if I modify the above for all diagnostics 4885 !! # if defined key_roam 4886 !! CALL iom_put(TRIM(ctrc3d(5)), trc3d(:,:,:,5)) 4887 !! # endif 4888 4853 4889 4854 4890 ELSE IF( lk_iomput .AND. .NOT. ln_diatrc ) THEN 4855 4891 !!!---------------------------------------------------------------------- 4856 !! Add very last diag calculations 4892 !! Add very last diag calculations 4857 4893 !!!---------------------------------------------------------------------- 4858 4894 DO jj = 2,jpjm1 … … 4883 4919 fsld2d(ji,jj) = fsld2d(ji,jj) / MAX(ftot_pd(ji,jj), rsmall) 4884 4920 ENDIF 4885 END 4886 END 4921 ENDDO 4922 ENDDO 4887 4923 !!---------------------------------------------------------------------- 4888 4924 !! Add in XML diagnostics stuff … … 4893 4929 CALL iom_put( "INVTN" , ftot_n ) 4894 4930 ENDIF 4895 IF ( med_diag%INVTSI ") THEN4931 IF ( med_diag%INVTSI%dgsave ) THEN 4896 4932 CALL iom_put( "INVTSI" , ftot_si ) 4897 4933 ENDIF … … 5308 5344 DO jn=1,jp_medusa_trd 5309 5345 CALL lbc_lnk(trbio(:,:,1,jn),'T',1. ) 5310 END 5346 ENDDO 5311 5347 # endif 5312 5348 -
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
r5931 r5937 22 22 USE sms_medusa ! sms trends 23 23 USE iom ! I/O manager 24 USE trc_nam_dia ! JPALM 13-11-2015 -- if iom_use for diag24 !!USE trc_nam_dia ! JPALM 13-11-2015 -- if iom_use for diag 25 25 26 26 !! AXY (04/02/14): necessary to find NaNs on HECTOR … … 30 30 PRIVATE 31 31 32 PUBLIC trc_nam_medusa ! called by trcnam.F90 module 32 PUBLIC trc_nam_medusa ! called by trcnam.F90 module 33 PUBLIC trc_nam_iom_medusa ! called by trcnam.F90 module 33 34 34 35 !!* Substitution … … 1187 1188 !!---------------------------------------------------------------------- 1188 1189 !! 1189 IF iom_use("INVTN") THEN1190 IF (iom_use("INVTN")) THEN 1190 1191 med_diag%INVTN%dgsave = .TRUE. 1191 1192 ELSE 1192 1193 med_diag%INVTN%dgsave = .FALSE. 1193 1194 ENDIF 1194 IF iom_use("INVTSI") THEN1195 IF (iom_use("INVTSI")) THEN 1195 1196 med_diag%INVTSI%dgsave = .TRUE. 1196 1197 ELSE 1197 1198 med_diag%INVTSI%dgsave = .FALSE. 1198 1199 ENDIF 1199 IF iom_use("INVTFE") THEN1200 IF (iom_use("INVTFE")) THEN 1200 1201 med_diag%INVTFE%dgsave = .TRUE. 1201 1202 ELSE 1202 1203 med_diag%INVTFE%dgsave = .FALSE. 1203 1204 ENDIF 1204 IF iom_use("PRN") THEN1205 IF (iom_use("PRN")) THEN 1205 1206 med_diag%PRN%dgsave = .TRUE. 1206 1207 ELSE 1207 1208 med_diag%PRN%dgsave = .FALSE. 1208 1209 ENDIF 1209 IF iom_use("MPN") THEN1210 IF (iom_use("MPN")) THEN 1210 1211 med_diag%MPN%dgsave = .TRUE. 1211 1212 ELSE 1212 1213 med_diag%MPN%dgsave = .FALSE. 1213 1214 ENDIF 1214 IF iom_use("PRD") THEN1215 IF (iom_use("PRD")) THEN 1215 1216 med_diag%PRD%dgsave = .TRUE. 1216 1217 ELSE 1217 1218 med_diag%PRD%dgsave = .FALSE. 1218 1219 ENDIF 1219 IF iom_use("MPD") THEN1220 IF (iom_use("MPD")) THEN 1220 1221 med_diag%MPD%dgsave = .TRUE. 1221 1222 ELSE 1222 1223 med_diag%MPD%dgsave = .FALSE. 1223 1224 ENDIF 1224 IF iom_use("DSED") THEN1225 IF (iom_use("DSED")) THEN 1225 1226 med_diag%DSED%dgsave = .TRUE. 1226 1227 ELSE 1227 1228 med_diag%DSED%dgsave = .FALSE. 1228 1229 ENDIF 1229 IF iom_use("OPAL") THEN1230 IF (iom_use("OPAL")) THEN 1230 1231 med_diag%OPAL%dgsave = .TRUE. 1231 1232 ELSE 1232 1233 med_diag%OPAL%dgsave = .FALSE. 1233 1234 ENDIF 1234 IF iom_use("OPALDISS") THEN1235 IF (iom_use("OPALDISS")) THEN 1235 1236 med_diag%OPALDISS%dgsave = .TRUE. 1236 1237 ELSE 1237 1238 med_diag%OPALDISS%dgsave = .FALSE. 1238 1239 ENDIF 1239 IF iom_use("GMIPn") THEN1240 IF (iom_use("GMIPn")) THEN 1240 1241 med_diag%GMIPn%dgsave = .TRUE. 1241 1242 ELSE 1242 1243 med_diag%GMIPn%dgsave = .FALSE. 1243 1244 ENDIF 1244 IF iom_use("GMID") THEN1245 IF (iom_use("GMID")) THEN 1245 1246 med_diag%GMID%dgsave = .TRUE. 1246 1247 ELSE 1247 1248 med_diag%GMID%dgsave = .FALSE. 1248 1249 ENDIF 1249 IF iom_use("MZMI") THEN1250 IF (iom_use("MZMI")) THEN 1250 1251 med_diag%MZMI%dgsave = .TRUE. 1251 1252 ELSE 1252 1253 med_diag%MZMI%dgsave = .FALSE. 1253 1254 ENDIF 1254 IF iom_use("GMEPN") THEN1255 IF (iom_use("GMEPN")) THEN 1255 1256 med_diag%GMEPN%dgsave = .TRUE. 1256 1257 ELSE 1257 1258 med_diag%GMEPN%dgsave = .FALSE. 1258 1259 ENDIF 1259 IF iom_use("GMEPD") THEN1260 IF (iom_use("GMEPD")) THEN 1260 1261 med_diag%GMEPD%dgsave = .TRUE. 1261 1262 ELSE 1262 1263 med_diag%GMEPD%dgsave = .FALSE. 1263 1264 ENDIF 1264 IF iom_use("GMEZMI") THEN1265 IF (iom_use("GMEZMI")) THEN 1265 1266 med_diag%GMEZMI%dgsave = .TRUE. 1266 1267 ELSE 1267 1268 med_diag%GMEZMI%dgsave = .FALSE. 1268 1269 ENDIF 1269 IF iom_use("GMED") THEN1270 IF (iom_use("GMED")) THEN 1270 1271 med_diag%GMED%dgsave = .TRUE. 1271 1272 ELSE 1272 1273 med_diag%GMED%dgsave = .FALSE. 1273 1274 ENDIF 1274 IF iom_use("MZME") THEN1275 IF (iom_use("MZME")) THEN 1275 1276 med_diag%MZME%dgsave = .TRUE. 1276 1277 ELSE 1277 1278 med_diag%MZME%dgsave = .FALSE. 1278 1279 ENDIF 1279 IF iom_use("DEXP") THEN1280 IF (iom_use("DEXP")) THEN 1280 1281 med_diag%DEXP%dgsave = .TRUE. 1281 1282 ELSE 1282 1283 med_diag%DEXP%dgsave = .FALSE. 1283 1284 ENDIF 1284 IF iom_use("DETN") THEN1285 IF (iom_use("DETN")) THEN 1285 1286 med_diag%DETN%dgsave = .TRUE. 1286 1287 ELSE 1287 1288 med_diag%DETN%dgsave = .FALSE. 1288 1289 ENDIF 1289 IF iom_use("MDET") THEN1290 IF (iom_use("MDET")) THEN 1290 1291 med_diag%MDET%dgsave = .TRUE. 1291 1292 ELSE 1292 1293 med_diag%MDET%dgsave = .FALSE. 1293 1294 ENDIF 1294 IF iom_use("AEOLIAN") THEN1295 IF (iom_use("AEOLIAN")) THEN 1295 1296 med_diag%AEOLIAN%dgsave = .TRUE. 1296 1297 ELSE 1297 1298 med_diag%AEOLIAN%dgsave = .FALSE. 1298 1299 ENDIF 1299 IF iom_use("BENTHIC") THEN1300 IF (iom_use("BENTHIC")) THEN 1300 1301 med_diag%BENTHIC%dgsave = .TRUE. 1301 1302 ELSE 1302 1303 med_diag%BENTHIC%dgsave = .FALSE. 1303 1304 ENDIF 1304 IF iom_use("SCAVENGE") THEN1305 IF (iom_use("SCAVENGE")) THEN 1305 1306 med_diag%SCAVENGE%dgsave = .TRUE. 1306 1307 ELSE 1307 1308 med_diag%SCAVENGE%dgsave = .FALSE. 1308 1309 ENDIF 1309 IF iom_use("PN_JLIM") THEN1310 IF (iom_use("PN_JLIM")) THEN 1310 1311 med_diag%PN_JLIM%dgsave = .TRUE. 1311 1312 ELSE 1312 1313 med_diag%PN_JLIM%dgsave = .FALSE. 1313 1314 ENDIF 1314 IF iom_use("PN_NLIM") THEN1315 IF (iom_use("PN_NLIM")) THEN 1315 1316 med_diag%PN_NLIM%dgsave = .TRUE. 1316 1317 ELSE 1317 1318 med_diag%PN_NLIM%dgsave = .FALSE. 1318 1319 ENDIF 1319 IF iom_use("PN_FELIM") THEN1320 IF (iom_use("PN_FELIM")) THEN 1320 1321 med_diag%PN_FELIM%dgsave = .TRUE. 1321 1322 ELSE 1322 1323 med_diag%PN_FELIM%dgsave = .FALSE. 1323 1324 ENDIF 1324 IF iom_use("PD_JLIM") THEN1325 IF (iom_use("PD_JLIM")) THEN 1325 1326 med_diag%PD_JLIM%dgsave = .TRUE. 1326 1327 ELSE 1327 1328 med_diag%PD_JLIM%dgsave = .FALSE. 1328 1329 ENDIF 1329 IF iom_use("PD_NLIM") THEN1330 IF (iom_use("PD_NLIM")) THEN 1330 1331 med_diag%PD_NLIM%dgsave = .TRUE. 1331 1332 ELSE 1332 1333 med_diag%PD_NLIM%dgsave = .FALSE. 1333 1334 ENDIF 1334 IF iom_use("PD_FELIM") THEN1335 IF (iom_use("PD_FELIM")) THEN 1335 1336 med_diag%PD_FELIM%dgsave = .TRUE. 1336 1337 ELSE 1337 1338 med_diag%PD_FELIM%dgsave = .FALSE. 1338 1339 ENDIF 1339 IF iom_use("PD_SILIM") THEN1340 IF (iom_use("PD_SILIM")) THEN 1340 1341 med_diag%PD_SILIM%dgsave = .TRUE. 1341 1342 ELSE 1342 1343 med_diag%PD_SILIM%dgsave = .FALSE. 1343 1344 ENDIF 1344 IF iom_use("PDSILIM2") THEN1345 IF (iom_use("PDSILIM2")) THEN 1345 1346 med_diag%PDSILIM2%dgsave = .TRUE. 1346 1347 ELSE 1347 1348 med_diag%PDSILIM2%dgsave = .FALSE. 1348 1349 ENDIF 1349 IF iom_use("SDT__100") THEN1350 IF (iom_use("SDT__100")) THEN 1350 1351 med_diag%SDT__100%dgsave = .TRUE. 1351 1352 ELSE 1352 1353 med_diag%SDT__100%dgsave = .FALSE. 1353 1354 ENDIF 1354 IF iom_use("SDT__200") THEN1355 IF (iom_use("SDT__200")) THEN 1355 1356 med_diag%SDT__200%dgsave = .TRUE. 1356 1357 ELSE 1357 1358 med_diag%SDT__200%dgsave = .FALSE. 1358 1359 ENDIF 1359 IF iom_use("SDT__500") THEN1360 IF (iom_use("SDT__500")) THEN 1360 1361 med_diag%SDT__500%dgsave = .TRUE. 1361 1362 ELSE 1362 1363 med_diag%SDT__500%dgsave = .FALSE. 1363 1364 ENDIF 1364 IF iom_use("SDT_1000") THEN1365 IF (iom_use("SDT_1000")) THEN 1365 1366 med_diag%SDT_1000%dgsave = .TRUE. 1366 1367 ELSE 1367 1368 med_diag%SDT_1000%dgsave = .FALSE. 1368 1369 ENDIF 1369 IF iom_use("TOTREG_N") THEN1370 IF (iom_use("TOTREG_N")) THEN 1370 1371 med_diag%TOTREG_N%dgsave = .TRUE. 1371 1372 ELSE 1372 1373 med_diag%TOTREG_N%dgsave = .FALSE. 1373 1374 ENDIF 1374 IF iom_use("TOTRG_SI") THEN1375 IF (iom_use("TOTRG_SI")) THEN 1375 1376 med_diag%TOTRG_SI%dgsave = .TRUE. 1376 1377 ELSE 1377 1378 med_diag%TOTRG_SI%dgsave = .FALSE. 1378 1379 ENDIF 1379 IF iom_use("REG__100") THEN1380 IF (iom_use("REG__100")) THEN 1380 1381 med_diag%REG__100%dgsave = .TRUE. 1381 1382 ELSE 1382 1383 med_diag%REG__100%dgsave = .FALSE. 1383 1384 ENDIF 1384 IF iom_use("REG__200") THEN1385 IF (iom_use("REG__200")) THEN 1385 1386 med_diag%REG__200%dgsave = .TRUE. 1386 1387 ELSE 1387 1388 med_diag%REG__200%dgsave = .FALSE. 1388 1389 ENDIF 1389 IF iom_use("REG__500") THEN1390 IF (iom_use("REG__500")) THEN 1390 1391 med_diag%REG__500%dgsave = .TRUE. 1391 1392 ELSE 1392 1393 med_diag%REG__500%dgsave = .FALSE. 1393 1394 ENDIF 1394 IF iom_use("REG_1000") THEN1395 IF (iom_use("REG_1000")) THEN 1395 1396 med_diag%REG_1000%dgsave = .TRUE. 1396 1397 ELSE 1397 1398 med_diag%REG_1000%dgsave = .FALSE. 1398 1399 ENDIF 1399 IF iom_use("FASTN") THEN1400 IF (iom_use("FASTN")) THEN 1400 1401 med_diag%FASTN%dgsave = .TRUE. 1401 1402 ELSE 1402 1403 med_diag%FASTN%dgsave = .FALSE. 1403 1404 ENDIF 1404 IF iom_use("FASTSI") THEN1405 IF (iom_use("FASTSI")) THEN 1405 1406 med_diag%FASTSI%dgsave = .TRUE. 1406 1407 ELSE 1407 1408 med_diag%FASTSI%dgsave = .FALSE. 1408 1409 ENDIF 1409 IF iom_use("FASTFE") THEN1410 IF (iom_use("FASTFE")) THEN 1410 1411 med_diag%FASTFE%dgsave = .TRUE. 1411 1412 ELSE 1412 1413 med_diag%FASTFE%dgsave = .FALSE. 1413 1414 ENDIF 1414 IF iom_use("FASTC") THEN1415 IF (iom_use("FASTC")) THEN 1415 1416 med_diag%FASTC%dgsave = .TRUE. 1416 1417 ELSE 1417 1418 med_diag%FASTC%dgsave = .FALSE. 1418 1419 ENDIF 1419 IF iom_use("FASTCA") THEN1420 IF (iom_use("FASTCA")) THEN 1420 1421 med_diag%FASTCA%dgsave = .TRUE. 1421 1422 ELSE 1422 1423 med_diag%FASTCA%dgsave = .FALSE. 1423 1424 ENDIF 1424 IF iom_use("FDT__100") THEN1425 IF (iom_use("FDT__100")) THEN 1425 1426 med_diag%FDT__100%dgsave = .TRUE. 1426 1427 ELSE 1427 1428 med_diag%FDT__100%dgsave = .FALSE. 1428 1429 ENDIF 1429 IF iom_use("FDT__200") THEN1430 IF (iom_use("FDT__200")) THEN 1430 1431 med_diag%FDT__200%dgsave = .TRUE. 1431 1432 ELSE 1432 1433 med_diag%FDT__200%dgsave = .FALSE. 1433 1434 ENDIF 1434 IF iom_use("FDT__500") THEN1435 IF (iom_use("FDT__500")) THEN 1435 1436 med_diag%FDT__500%dgsave = .TRUE. 1436 1437 ELSE 1437 1438 med_diag%FDT__500%dgsave = .FALSE. 1438 1439 ENDIF 1439 IF iom_use("FDT_1000") THEN1440 IF (iom_use("FDT_1000")) THEN 1440 1441 med_diag%FDT_1000%dgsave = .TRUE. 1441 1442 ELSE 1442 1443 med_diag%FDT_1000%dgsave = .FALSE. 1443 1444 ENDIF 1444 IF iom_use("RG__100F") THEN1445 IF (iom_use("RG__100F")) THEN 1445 1446 med_diag%RG__100F%dgsave = .TRUE. 1446 1447 ELSE 1447 1448 med_diag%RG__100F%dgsave = .FALSE. 1448 1449 ENDIF 1449 IF iom_use("RG__200F") THEN1450 IF (iom_use("RG__200F")) THEN 1450 1451 med_diag%RG__200F%dgsave = .TRUE. 1451 1452 ELSE 1452 1453 med_diag%RG__200F%dgsave = .FALSE. 1453 1454 ENDIF 1454 IF iom_use("RG__500F") THEN1455 IF (iom_use("RG__500F")) THEN 1455 1456 med_diag%RG__500F%dgsave = .TRUE. 1456 1457 ELSE 1457 1458 med_diag%RG__500F%dgsave = .FALSE. 1458 1459 ENDIF 1459 IF iom_use("RG_1000F") THEN1460 IF (iom_use("RG_1000F")) THEN 1460 1461 med_diag%RG_1000F%dgsave = .TRUE. 1461 1462 ELSE 1462 1463 med_diag%RG_1000F%dgsave = .FALSE. 1463 1464 ENDIF 1464 IF iom_use("FDS__100") THEN1465 IF (iom_use("FDS__100")) THEN 1465 1466 med_diag%FDS__100%dgsave = .TRUE. 1466 1467 ELSE 1467 1468 med_diag%FDS__100%dgsave = .FALSE. 1468 1469 ENDIF 1469 IF iom_use("FDS__200") THEN1470 IF (iom_use("FDS__200")) THEN 1470 1471 med_diag%FDS__200%dgsave = .TRUE. 1471 1472 ELSE 1472 1473 med_diag%FDS__200%dgsave = .FALSE. 1473 1474 ENDIF 1474 IF iom_use("FDS__500") THEN1475 IF (iom_use("FDS__500")) THEN 1475 1476 med_diag%FDS__500%dgsave = .TRUE. 1476 1477 ELSE 1477 1478 med_diag%FDS__500%dgsave = .FALSE. 1478 1479 ENDIF 1479 IF iom_use("FDS_1000") THEN1480 IF (iom_use("FDS_1000")) THEN 1480 1481 med_diag%FDS_1000%dgsave = .TRUE. 1481 1482 ELSE 1482 1483 med_diag%FDS_1000%dgsave = .FALSE. 1483 1484 ENDIF 1484 IF iom_use("RGS_100F") THEN1485 IF (iom_use("RGS_100F")) THEN 1485 1486 med_diag%RGS_100F%dgsave = .TRUE. 1486 1487 ELSE 1487 1488 med_diag%RGS_100F%dgsave = .FALSE. 1488 1489 ENDIF 1489 IF iom_use("RGS_200F") THEN1490 IF (iom_use("RGS_200F")) THEN 1490 1491 med_diag%RGS_200F%dgsave = .TRUE. 1491 1492 ELSE 1492 1493 med_diag%RGS_200F%dgsave = .FALSE. 1493 1494 ENDIF 1494 IF iom_use("RGS_500F") THEN1495 IF (iom_use("RGS_500F")) THEN 1495 1496 med_diag%RGS_500F%dgsave = .TRUE. 1496 1497 ELSE 1497 1498 med_diag%RGS_500F%dgsave = .FALSE. 1498 1499 ENDIF 1499 IF iom_use("RGS1000F") THEN1500 IF (iom_use("RGS1000F")) THEN 1500 1501 med_diag%RGS1000F%dgsave = .TRUE. 1501 1502 ELSE 1502 1503 med_diag%RGS1000F%dgsave = .FALSE. 1503 1504 ENDIF 1504 IF iom_use("REMINN") THEN1505 IF (iom_use("REMINN")) THEN 1505 1506 med_diag%REMINN%dgsave = .TRUE. 1506 1507 ELSE 1507 1508 med_diag%REMINN%dgsave = .FALSE. 1508 1509 ENDIF 1509 IF iom_use("REMINSI") THEN1510 IF (iom_use("REMINSI")) THEN 1510 1511 med_diag%REMINSI%dgsave = .TRUE. 1511 1512 ELSE 1512 1513 med_diag%REMINSI%dgsave = .FALSE. 1513 1514 ENDIF 1514 IF iom_use("REMINFE") THEN1515 IF (iom_use("REMINFE")) THEN 1515 1516 med_diag%REMINFE%dgsave = .TRUE. 1516 1517 ELSE 1517 1518 med_diag%REMINFE%dgsave = .FALSE. 1518 1519 ENDIF 1519 IF iom_use("REMINC") THEN1520 IF (iom_use("REMINC")) THEN 1520 1521 med_diag%REMINC%dgsave = .TRUE. 1521 1522 ELSE 1522 1523 med_diag%REMINC%dgsave = .FALSE. 1523 1524 ENDIF 1524 IF iom_use("REMINCA") THEN1525 IF (iom_use("REMINCA")) THEN 1525 1526 med_diag%REMINCA%dgsave = .TRUE. 1526 1527 ELSE 1527 1528 med_diag%REMINCA%dgsave = .FALSE. 1528 1529 ENDIF 1529 IF iom_use("SEAFLRN") THEN1530 IF (iom_use("SEAFLRN")) THEN 1530 1531 med_diag%SEAFLRN%dgsave = .TRUE. 1531 1532 ELSE 1532 1533 med_diag%SEAFLRN%dgsave = .FALSE. 1533 1534 ENDIF 1534 IF iom_use("SEAFLRSI") THEN1535 IF (iom_use("SEAFLRSI")) THEN 1535 1536 med_diag%SEAFLRSI%dgsave = .TRUE. 1536 1537 ELSE 1537 1538 med_diag%SEAFLRSI%dgsave = .FALSE. 1538 1539 ENDIF 1539 IF iom_use("SEAFLRFE") THEN1540 IF (iom_use("SEAFLRFE")) THEN 1540 1541 med_diag%SEAFLRFE%dgsave = .TRUE. 1541 1542 ELSE 1542 1543 med_diag%SEAFLRFE%dgsave = .FALSE. 1543 1544 ENDIF 1544 IF iom_use("SEAFLRC") THEN1545 IF (iom_use("SEAFLRC")) THEN 1545 1546 med_diag%SEAFLRC%dgsave = .TRUE. 1546 1547 ELSE 1547 1548 med_diag%SEAFLRC%dgsave = .FALSE. 1548 1549 ENDIF 1549 IF iom_use("SEAFLRCA") THEN1550 IF (iom_use("SEAFLRCA")) THEN 1550 1551 med_diag%SEAFLRCA%dgsave = .TRUE. 1551 1552 ELSE 1552 1553 med_diag%SEAFLRCA%dgsave = .FALSE. 1553 1554 ENDIF 1554 IF iom_use("MED_QSR") THEN1555 IF (iom_use("MED_QSR")) THEN 1555 1556 med_diag%MED_QSR%dgsave = .TRUE. 1556 1557 ELSE 1557 1558 med_diag%MED_QSR%dgsave = .FALSE. 1558 1559 ENDIF 1559 IF iom_use("MED_XPAR") THEN1560 IF (iom_use("MED_XPAR")) THEN 1560 1561 med_diag%MED_XPAR%dgsave = .TRUE. 1561 1562 ELSE 1562 1563 med_diag%MED_XPAR%dgsave = .FALSE. 1563 1564 ENDIF 1564 IF iom_use("INTFLX_N") THEN1565 IF (iom_use("INTFLX_N")) THEN 1565 1566 med_diag%INTFLX_N%dgsave = .TRUE. 1566 1567 ELSE 1567 1568 med_diag%INTFLX_N%dgsave = .FALSE. 1568 1569 ENDIF 1569 IF iom_use("INTFLX_SI") THEN1570 IF (iom_use("INTFLX_SI")) THEN 1570 1571 med_diag%INTFLX_SI%dgsave = .TRUE. 1571 1572 ELSE 1572 1573 med_diag%INTFLX_SI%dgsave = .FALSE. 1573 1574 ENDIF 1574 IF iom_use("INTFLX_FE") THEN1575 IF (iom_use("INTFLX_FE")) THEN 1575 1576 med_diag%INTFLX_FE%dgsave = .TRUE. 1576 1577 ELSE 1577 1578 med_diag%INTFLX_FE%dgsave = .FALSE. 1578 1579 ENDIF 1579 IF iom_use("INT_PN") THEN1580 IF (iom_use("INT_PN")) THEN 1580 1581 med_diag%INT_PN%dgsave = .TRUE. 1581 1582 ELSE 1582 1583 med_diag%INT_PN%dgsave = .FALSE. 1583 1584 ENDIF 1584 IF iom_use("INT_PD") THEN1585 IF (iom_use("INT_PD")) THEN 1585 1586 med_diag%INT_PD%dgsave = .TRUE. 1586 1587 ELSE 1587 1588 med_diag%INT_PD%dgsave = .FALSE. 1588 1589 ENDIF 1589 IF iom_use("ML_PRN") THEN1590 IF (iom_use("ML_PRN")) THEN 1590 1591 med_diag%ML_PRN%dgsave = .TRUE. 1591 1592 ELSE 1592 1593 med_diag%ML_PRN%dgsave = .FALSE. 1593 1594 ENDIF 1594 IF iom_use("ML_PRD") THEN1595 IF (iom_use("ML_PRD")) THEN 1595 1596 med_diag%ML_PRD%dgsave = .TRUE. 1596 1597 ELSE 1597 1598 med_diag%ML_PRD%dgsave = .FALSE. 1598 1599 ENDIF 1599 IF iom_use("OCAL_CCD") THEN1600 IF (iom_use("OCAL_CCD")) THEN 1600 1601 med_diag%OCAL_CCD%dgsave = .TRUE. 1601 1602 ELSE 1602 1603 med_diag%OCAL_CCD%dgsave = .FALSE. 1603 1604 ENDIF 1604 IF iom_use("OCAL_LVL") THEN1605 IF (iom_use("OCAL_LVL")) THEN 1605 1606 med_diag%OCAL_LVL%dgsave = .TRUE. 1606 1607 ELSE 1607 1608 med_diag%OCAL_LVL%dgsave = .FALSE. 1608 1609 ENDIF 1609 IF iom_use("FE_0000") THEN1610 IF (iom_use("FE_0000")) THEN 1610 1611 med_diag%FE_0000%dgsave = .TRUE. 1611 1612 ELSE 1612 1613 med_diag%FE_0000%dgsave = .FALSE. 1613 1614 ENDIF 1614 IF iom_use("FE_0100") THEN1615 IF (iom_use("FE_0100")) THEN 1615 1616 med_diag%FE_0100%dgsave = .TRUE. 1616 1617 ELSE 1617 1618 med_diag%FE_0100%dgsave = .FALSE. 1618 1619 ENDIF 1619 IF iom_use("FE_0200") THEN1620 IF (iom_use("FE_0200")) THEN 1620 1621 med_diag%FE_0200%dgsave = .TRUE. 1621 1622 ELSE 1622 1623 med_diag%FE_0200%dgsave = .FALSE. 1623 1624 ENDIF 1624 IF iom_use("FE_0500") THEN1625 IF (iom_use("FE_0500")) THEN 1625 1626 med_diag%FE_0500%dgsave = .TRUE. 1626 1627 ELSE 1627 1628 med_diag%FE_0500%dgsave = .FALSE. 1628 1629 ENDIF 1629 IF iom_use("FE_1000") THEN1630 IF (iom_use("FE_1000")) THEN 1630 1631 med_diag%FE_1000%dgsave = .TRUE. 1631 1632 ELSE 1632 1633 med_diag%FE_1000%dgsave = .FALSE. 1633 1634 ENDIF 1634 IF iom_use("MED_XZE") THEN1635 IF (iom_use("MED_XZE")) THEN 1635 1636 med_diag%MED_XZE%dgsave = .TRUE. 1636 1637 ELSE 1637 1638 med_diag%MED_XZE%dgsave = .FALSE. 1638 1639 ENDIF 1639 IF iom_use("WIND") THEN1640 IF (iom_use("WIND")) THEN 1640 1641 med_diag%WIND%dgsave = .TRUE. 1641 1642 ELSE 1642 1643 med_diag%WIND%dgsave = .FALSE. 1643 1644 ENDIF 1644 IF iom_use("ATM_PCO2") THEN1645 IF (iom_use("ATM_PCO2")) THEN 1645 1646 med_diag%ATM_PCO2%dgsave = .TRUE. 1646 1647 ELSE 1647 1648 med_diag%ATM_PCO2%dgsave = .FALSE. 1648 1649 ENDIF 1649 IF iom_use("OCN_PH") THEN1650 IF (iom_use("OCN_PH")) THEN 1650 1651 med_diag%OCN_PH%dgsave = .TRUE. 1651 1652 ELSE 1652 1653 med_diag%OCN_PH%dgsave = .FALSE. 1653 1654 ENDIF 1654 IF iom_use("OCN_PCO2") THEN1655 IF (iom_use("OCN_PCO2")) THEN 1655 1656 med_diag%OCN_PCO2%dgsave = .TRUE. 1656 1657 ELSE 1657 1658 med_diag%OCN_PCO2%dgsave = .FALSE. 1658 1659 ENDIF 1659 IF iom_use("OCNH2CO3") THEN1660 IF (iom_use("OCNH2CO3")) THEN 1660 1661 med_diag%OCNH2CO3%dgsave = .TRUE. 1661 1662 ELSE 1662 1663 med_diag%OCNH2CO3%dgsave = .FALSE. 1663 1664 ENDIF 1664 IF iom_use("OCN_HCO3") THEN1665 IF (iom_use("OCN_HCO3")) THEN 1665 1666 med_diag%OCN_HCO3%dgsave = .TRUE. 1666 1667 ELSE 1667 1668 med_diag%OCN_HCO3%dgsave = .FALSE. 1668 1669 ENDIF 1669 IF iom_use("OCN_CO3") THEN1670 IF (iom_use("OCN_CO3")) THEN 1670 1671 med_diag%OCN_CO3%dgsave = .TRUE. 1671 1672 ELSE 1672 1673 med_diag%OCN_CO3%dgsave = .FALSE. 1673 1674 ENDIF 1674 IF iom_use("CO2FLUX") THEN1675 IF (iom_use("CO2FLUX")) THEN 1675 1676 med_diag%CO2FLUX%dgsave = .TRUE. 1676 1677 ELSE 1677 1678 med_diag%CO2FLUX%dgsave = .FALSE. 1678 1679 ENDIF 1679 IF iom_use("OM_CAL") THEN1680 IF (iom_use("OM_CAL")) THEN 1680 1681 med_diag%OM_CAL%dgsave = .TRUE. 1681 1682 ELSE 1682 1683 med_diag%OM_CAL%dgsave = .FALSE. 1683 1684 ENDIF 1684 IF iom_use("OM_ARG") THEN1685 IF (iom_use("OM_ARG")) THEN 1685 1686 med_diag%OM_ARG%dgsave = .TRUE. 1686 1687 ELSE 1687 1688 med_diag%OM_ARG%dgsave = .FALSE. 1688 1689 ENDIF 1689 IF iom_use("TCO2") THEN1690 IF (iom_use("TCO2")) THEN 1690 1691 med_diag%TCO2%dgsave = .TRUE. 1691 1692 ELSE 1692 1693 med_diag%TCO2%dgsave = .FALSE. 1693 1694 ENDIF 1694 IF iom_use("TALK") THEN1695 IF (iom_use("TALK")) THEN 1695 1696 med_diag%TALK%dgsave = .TRUE. 1696 1697 ELSE 1697 1698 med_diag%TALK%dgsave = .FALSE. 1698 1699 ENDIF 1699 IF iom_use("KW660") THEN1700 IF (iom_use("KW660")) THEN 1700 1701 med_diag%KW660%dgsave = .TRUE. 1701 1702 ELSE 1702 1703 med_diag%KW660%dgsave = .FALSE. 1703 1704 ENDIF 1704 IF iom_use("ATM_PP0") THEN1705 IF (iom_use("ATM_PP0")) THEN 1705 1706 med_diag%ATM_PP0%dgsave = .TRUE. 1706 1707 ELSE 1707 1708 med_diag%ATM_PP0%dgsave = .FALSE. 1708 1709 ENDIF 1709 IF iom_use("O2FLUX") THEN1710 IF (iom_use("O2FLUX")) THEN 1710 1711 med_diag%O2FLUX%dgsave = .TRUE. 1711 1712 ELSE 1712 1713 med_diag%O2FLUX%dgsave = .FALSE. 1713 1714 ENDIF 1714 IF iom_use("O2SAT") THEN1715 IF (iom_use("O2SAT")) THEN 1715 1716 med_diag%O2SAT%dgsave = .TRUE. 1716 1717 ELSE 1717 1718 med_diag%O2SAT%dgsave = .FALSE. 1718 1719 ENDIF 1719 IF iom_use("CAL_CCD") THEN1720 IF (iom_use("CAL_CCD")) THEN 1720 1721 med_diag%CAL_CCD%dgsave = .TRUE. 1721 1722 ELSE 1722 1723 med_diag%CAL_CCD%dgsave = .FALSE. 1723 1724 ENDIF 1724 IF iom_use("ARG_CCD") THEN1725 IF (iom_use("ARG_CCD")) THEN 1725 1726 med_diag%ARG_CCD%dgsave = .TRUE. 1726 1727 ELSE 1727 1728 med_diag%ARG_CCD%dgsave = .FALSE. 1728 1729 ENDIF 1729 IF iom_use("SFR_OCAL") THEN1730 IF (iom_use("SFR_OCAL")) THEN 1730 1731 med_diag%SFR_OCAL%dgsave = .TRUE. 1731 1732 ELSE 1732 1733 med_diag%SFR_OCAL%dgsave = .FALSE. 1733 1734 ENDIF 1734 IF iom_use("SFR_OARG") THEN1735 IF (iom_use("SFR_OARG")) THEN 1735 1736 med_diag%SFR_OARG%dgsave = .TRUE. 1736 1737 ELSE 1737 1738 med_diag%SFR_OARG%dgsave = .FALSE. 1738 1739 ENDIF 1739 IF iom_use("N_PROD") THEN1740 IF (iom_use("N_PROD")) THEN 1740 1741 med_diag%N_PROD%dgsave = .TRUE. 1741 1742 ELSE 1742 1743 med_diag%N_PROD%dgsave = .FALSE. 1743 1744 ENDIF 1744 IF iom_use("N_CONS") THEN1745 IF (iom_use("N_CONS")) THEN 1745 1746 med_diag%N_CONS%dgsave = .TRUE. 1746 1747 ELSE 1747 1748 med_diag%N_CONS%dgsave = .FALSE. 1748 1749 ENDIF 1749 IF iom_use("C_PROD") THEN1750 IF (iom_use("C_PROD")) THEN 1750 1751 med_diag%C_PROD%dgsave = .TRUE. 1751 1752 ELSE 1752 1753 med_diag%C_PROD%dgsave = .FALSE. 1753 1754 ENDIF 1754 IF iom_use("C_CONS") THEN1755 IF (iom_use("C_CONS")) THEN 1755 1756 med_diag%C_CONS%dgsave = .TRUE. 1756 1757 ELSE 1757 1758 med_diag%C_CONS%dgsave = .FALSE. 1758 1759 ENDIF 1759 IF iom_use("O2_PROD") THEN1760 IF (iom_use("O2_PROD")) THEN 1760 1761 med_diag%O2_PROD%dgsave = .TRUE. 1761 1762 ELSE 1762 1763 med_diag%O2_PROD%dgsave = .FALSE. 1763 1764 ENDIF 1764 IF iom_use("O2_CONS") THEN1765 IF (iom_use("O2_CONS")) THEN 1765 1766 med_diag%O2_CONS%dgsave = .TRUE. 1766 1767 ELSE 1767 1768 med_diag%O2_CONS%dgsave = .FALSE. 1768 1769 ENDIF 1769 IF iom_use("O2_ANOX") THEN1770 IF (iom_use("O2_ANOX")) THEN 1770 1771 med_diag%O2_ANOX%dgsave = .TRUE. 1771 1772 ELSE 1772 1773 med_diag%O2_ANOX%dgsave = .FALSE. 1773 1774 ENDIF 1774 IF iom_use("RR_0100") THEN1775 IF (iom_use("RR_0100")) THEN 1775 1776 med_diag%RR_0100%dgsave = .TRUE. 1776 1777 ELSE 1777 1778 med_diag%RR_0100%dgsave = .FALSE. 1778 1779 ENDIF 1779 IF iom_use("RR_0500") THEN1780 IF (iom_use("RR_0500")) THEN 1780 1781 med_diag%RR_0500%dgsave = .TRUE. 1781 1782 ELSE 1782 1783 med_diag%RR_0500%dgsave = .FALSE. 1783 1784 ENDIF 1784 IF iom_use("RR_1000") THEN1785 IF (iom_use("RR_1000")) THEN 1785 1786 med_diag%RR_1000%dgsave = .TRUE. 1786 1787 ELSE 1787 1788 med_diag%RR_1000%dgsave = .FALSE. 1788 1789 ENDIF 1789 IF iom_use("IBEN_N") THEN1790 IF (iom_use("IBEN_N")) THEN 1790 1791 med_diag%IBEN_N%dgsave = .TRUE. 1791 1792 ELSE 1792 1793 med_diag%IBEN_N%dgsave = .FALSE. 1793 1794 ENDIF 1794 IF iom_use("IBEN_FE") THEN1795 IF (iom_use("IBEN_FE")) THEN 1795 1796 med_diag%IBEN_FE%dgsave = .TRUE. 1796 1797 ELSE 1797 1798 med_diag%IBEN_FE%dgsave = .FALSE. 1798 1799 ENDIF 1799 IF iom_use("IBEN_C") THEN1800 IF (iom_use("IBEN_C")) THEN 1800 1801 med_diag%IBEN_C%dgsave = .TRUE. 1801 1802 ELSE 1802 1803 med_diag%IBEN_C%dgsave = .FALSE. 1803 1804 ENDIF 1804 IF iom_use("IBEN_SI") THEN1805 IF (iom_use("IBEN_SI")) THEN 1805 1806 med_diag%IBEN_SI%dgsave = .TRUE. 1806 1807 ELSE 1807 1808 med_diag%IBEN_SI%dgsave = .FALSE. 1808 1809 ENDIF 1809 IF iom_use("IBEN_CA") THEN1810 IF (iom_use("IBEN_CA")) THEN 1810 1811 med_diag%IBEN_CA%dgsave = .TRUE. 1811 1812 ELSE 1812 1813 med_diag%IBEN_CA%dgsave = .FALSE. 1813 1814 ENDIF 1814 IF iom_use("OBEN_N") THEN1815 IF (iom_use("OBEN_N")) THEN 1815 1816 med_diag%OBEN_N%dgsave = .TRUE. 1816 1817 ELSE 1817 1818 med_diag%OBEN_N%dgsave = .FALSE. 1818 1819 ENDIF 1819 IF iom_use("OBEN_FE") THEN1820 IF (iom_use("OBEN_FE")) THEN 1820 1821 med_diag%OBEN_FE%dgsave = .TRUE. 1821 1822 ELSE 1822 1823 med_diag%OBEN_FE%dgsave = .FALSE. 1823 1824 ENDIF 1824 IF iom_use("OBEN_C") THEN1825 IF (iom_use("OBEN_C")) THEN 1825 1826 med_diag%OBEN_C%dgsave = .TRUE. 1826 1827 ELSE 1827 1828 med_diag%OBEN_C%dgsave = .FALSE. 1828 1829 ENDIF 1829 IF iom_use("OBEN_SI") THEN1830 IF (iom_use("OBEN_SI")) THEN 1830 1831 med_diag%OBEN_SI%dgsave = .TRUE. 1831 1832 ELSE 1832 1833 med_diag%OBEN_SI%dgsave = .FALSE. 1833 1834 ENDIF 1834 IF iom_use("OBEN_CA") THEN1835 IF (iom_use("OBEN_CA")) THEN 1835 1836 med_diag%OBEN_CA%dgsave = .TRUE. 1836 1837 ELSE 1837 1838 med_diag%OBEN_CA%dgsave = .FALSE. 1838 1839 ENDIF 1839 IF iom_use("BEN_N") THEN1840 IF (iom_use("BEN_N")) THEN 1840 1841 med_diag%BEN_N%dgsave = .TRUE. 1841 1842 ELSE 1842 1843 med_diag%BEN_N%dgsave = .FALSE. 1843 1844 ENDIF 1844 IF iom_use("BEN_FE") THEN1845 IF (iom_use("BEN_FE")) THEN 1845 1846 med_diag%BEN_FE%dgsave = .TRUE. 1846 1847 ELSE 1847 1848 med_diag%BEN_FE%dgsave = .FALSE. 1848 1849 ENDIF 1849 IF iom_use("BEN_C") THEN1850 IF (iom_use("BEN_C")) THEN 1850 1851 med_diag%BEN_C%dgsave = .TRUE. 1851 1852 ELSE 1852 1853 med_diag%BEN_C%dgsave = .FALSE. 1853 1854 ENDIF 1854 IF iom_use("BEN_SI") THEN1855 IF (iom_use("BEN_SI")) THEN 1855 1856 med_diag%BEN_SI%dgsave = .TRUE. 1856 1857 ELSE 1857 1858 med_diag%BEN_SI%dgsave = .FALSE. 1858 1859 ENDIF 1859 IF iom_use("BEN_CA") THEN1860 IF (iom_use("BEN_CA")) THEN 1860 1861 med_diag%BEN_CA%dgsave = .TRUE. 1861 1862 ELSE 1862 1863 med_diag%BEN_CA%dgsave = .FALSE. 1863 1864 ENDIF 1864 IF iom_use("RUNOFF") THEN1865 IF (iom_use("RUNOFF")) THEN 1865 1866 med_diag%RUNOFF%dgsave = .TRUE. 1866 1867 ELSE 1867 1868 med_diag%RUNOFF%dgsave = .FALSE. 1868 1869 ENDIF 1869 IF iom_use("RIV_N") THEN1870 IF (iom_use("RIV_N")) THEN 1870 1871 med_diag%RIV_N%dgsave = .TRUE. 1871 1872 ELSE 1872 1873 med_diag%RIV_N%dgsave = .FALSE. 1873 1874 ENDIF 1874 IF iom_use("RIV_SI") THEN1875 IF (iom_use("RIV_SI")) THEN 1875 1876 med_diag%RIV_SI%dgsave = .TRUE. 1876 1877 ELSE 1877 1878 med_diag%RIV_SI%dgsave = .FALSE. 1878 1879 ENDIF 1879 IF iom_use("RIV_C") THEN1880 IF (iom_use("RIV_C")) THEN 1880 1881 med_diag%RIV_C%dgsave = .TRUE. 1881 1882 ELSE 1882 1883 med_diag%RIV_C%dgsave = .FALSE. 1883 1884 ENDIF 1884 IF iom_use("RIV_ALK") THEN1885 IF (iom_use("RIV_ALK")) THEN 1885 1886 med_diag%RIV_ALK%dgsave = .TRUE. 1886 1887 ELSE 1887 1888 med_diag%RIV_ALK%dgsave = .FALSE. 1888 1889 ENDIF 1889 IF iom_use("DETC") THEN1890 IF (iom_use("DETC")) THEN 1890 1891 med_diag%DETC%dgsave = .TRUE. 1891 1892 ELSE 1892 1893 med_diag%DETC%dgsave = .FALSE. 1893 1894 ENDIF 1894 IF iom_use("SDC__100") THEN1895 IF (iom_use("SDC__100")) THEN 1895 1896 med_diag%SDC__100%dgsave = .TRUE. 1896 1897 ELSE 1897 1898 med_diag%SDC__100%dgsave = .FALSE. 1898 1899 ENDIF 1899 IF iom_use("SDC__200") THEN1900 IF (iom_use("SDC__200")) THEN 1900 1901 med_diag%SDC__200%dgsave = .TRUE. 1901 1902 ELSE 1902 1903 med_diag%SDC__200%dgsave = .FALSE. 1903 1904 ENDIF 1904 IF iom_use("SDC__500") THEN1905 IF (iom_use("SDC__500")) THEN 1905 1906 med_diag%SDC__500%dgsave = .TRUE. 1906 1907 ELSE 1907 1908 med_diag%SDC__500%dgsave = .FALSE. 1908 1909 ENDIF 1909 IF iom_use("SDC_1000") THEN1910 IF (iom_use("SDC_1000")) THEN 1910 1911 med_diag%SDC_1000%dgsave = .TRUE. 1911 1912 ELSE 1912 1913 med_diag%SDC_1000%dgsave = .FALSE. 1913 1914 ENDIF 1914 IF iom_use("INVTC") THEN1915 IF (iom_use("INVTC")) THEN 1915 1916 med_diag%INVTC%dgsave = .TRUE. 1916 1917 ELSE 1917 1918 med_diag%INVTC%dgsave = .FALSE. 1918 1919 ENDIF 1919 IF iom_use("INVTALK") THEN1920 IF (iom_use("INVTALK")) THEN 1920 1921 med_diag%INVTALK%dgsave = .TRUE. 1921 1922 ELSE 1922 1923 med_diag%INVTALK%dgsave = .FALSE. 1923 1924 ENDIF 1924 IF iom_use("INVTO2") THEN1925 IF (iom_use("INVTO2")) THEN 1925 1926 med_diag%INVTO2%dgsave = .TRUE. 1926 1927 ELSE 1927 1928 med_diag%INVTO2%dgsave = .FALSE. 1928 1929 ENDIF 1929 IF iom_use("LYSO_CA") THEN1930 IF (iom_use("LYSO_CA")) THEN 1930 1931 med_diag%LYSO_CA%dgsave = .TRUE. 1931 1932 ELSE 1932 1933 med_diag%LYSO_CA%dgsave = .FALSE. 1933 1934 ENDIF 1934 IF iom_use("COM_RESP") THEN1935 IF (iom_use("COM_RESP")) THEN 1935 1936 med_diag%COM_RESP%dgsave = .TRUE. 1936 1937 ELSE 1937 1938 med_diag%COM_RESP%dgsave = .FALSE. 1938 1939 ENDIF 1939 IF iom_use("PN_LLOSS") THEN1940 IF (iom_use("PN_LLOSS")) THEN 1940 1941 med_diag%PN_LLOSS%dgsave = .TRUE. 1941 1942 ELSE 1942 1943 med_diag%PN_LLOSS%dgsave = .FALSE. 1943 1944 ENDIF 1944 IF iom_use("PD_LLOSS") THEN1945 IF (iom_use("PD_LLOSS")) THEN 1945 1946 med_diag%PD_LLOSS%dgsave = .TRUE. 1946 1947 ELSE 1947 1948 med_diag%PD_LLOSS%dgsave = .FALSE. 1948 1949 ENDIF 1949 IF iom_use("ZI_LLOSS") THEN1950 IF (iom_use("ZI_LLOSS")) THEN 1950 1951 med_diag%ZI_LLOSS%dgsave = .TRUE. 1951 1952 ELSE 1952 1953 med_diag%ZI_LLOSS%dgsave = .FALSE. 1953 1954 ENDIF 1954 IF iom_use("ZE_LLOSS") THEN1955 IF (iom_use("ZE_LLOSS")) THEN 1955 1956 med_diag%ZE_LLOSS%dgsave = .TRUE. 1956 1957 ELSE 1957 1958 med_diag%ZE_LLOSS%dgsave = .FALSE. 1958 1959 ENDIF 1959 IF iom_use("ZI_MES_N") THEN1960 IF (iom_use("ZI_MES_N")) THEN 1960 1961 med_diag%ZI_MES_N%dgsave = .TRUE. 1961 1962 ELSE 1962 1963 med_diag%ZI_MES_N%dgsave = .FALSE. 1963 1964 ENDIF 1964 IF iom_use("ZI_MES_D") THEN1965 IF (iom_use("ZI_MES_D")) THEN 1965 1966 med_diag%ZI_MES_D%dgsave = .TRUE. 1966 1967 ELSE 1967 1968 med_diag%ZI_MES_D%dgsave = .FALSE. 1968 1969 ENDIF 1969 IF iom_use("ZI_MES_C") THEN1970 IF (iom_use("ZI_MES_C")) THEN 1970 1971 med_diag%ZI_MES_C%dgsave = .TRUE. 1971 1972 ELSE 1972 1973 med_diag%ZI_MES_C%dgsave = .FALSE. 1973 1974 ENDIF 1974 IF iom_use("ZI_MESDC") THEN1975 IF (iom_use("ZI_MESDC")) THEN 1975 1976 med_diag%ZI_MESDC%dgsave = .TRUE. 1976 1977 ELSE 1977 1978 med_diag%ZI_MESDC%dgsave = .FALSE. 1978 1979 ENDIF 1979 IF iom_use("ZI_EXCR") THEN1980 IF (iom_use("ZI_EXCR")) THEN 1980 1981 med_diag%ZI_EXCR%dgsave = .TRUE. 1981 1982 ELSE 1982 1983 med_diag%ZI_EXCR%dgsave = .FALSE. 1983 1984 ENDIF 1984 IF iom_use("ZI_RESP") THEN1985 IF (iom_use("ZI_RESP")) THEN 1985 1986 med_diag%ZI_RESP%dgsave = .TRUE. 1986 1987 ELSE 1987 1988 med_diag%ZI_RESP%dgsave = .FALSE. 1988 1989 ENDIF 1989 IF iom_use("ZI_GROW") THEN1990 IF (iom_use("ZI_GROW")) THEN 1990 1991 med_diag%ZI_GROW%dgsave = .TRUE. 1991 1992 ELSE 1992 1993 med_diag%ZI_GROW%dgsave = .FALSE. 1993 1994 ENDIF 1994 IF iom_use("ZE_MES_N") THEN1995 IF (iom_use("ZE_MES_N")) THEN 1995 1996 med_diag%ZE_MES_N%dgsave = .TRUE. 1996 1997 ELSE 1997 1998 med_diag%ZE_MES_N%dgsave = .FALSE. 1998 1999 ENDIF 1999 IF iom_use("ZE_MES_D") THEN2000 IF (iom_use("ZE_MES_D")) THEN 2000 2001 med_diag%ZE_MES_D%dgsave = .TRUE. 2001 2002 ELSE 2002 2003 med_diag%ZE_MES_D%dgsave = .FALSE. 2003 2004 ENDIF 2004 IF iom_use("ZE_MES_C") THEN2005 IF (iom_use("ZE_MES_C")) THEN 2005 2006 med_diag%ZE_MES_C%dgsave = .TRUE. 2006 2007 ELSE 2007 2008 med_diag%ZE_MES_C%dgsave = .FALSE. 2008 2009 ENDIF 2009 IF iom_use("ZE_MESDC") THEN2010 IF (iom_use("ZE_MESDC")) THEN 2010 2011 med_diag%ZE_MESDC%dgsave = .TRUE. 2011 2012 ELSE 2012 2013 med_diag%ZE_MESDC%dgsave = .FALSE. 2013 2014 ENDIF 2014 IF iom_use("ZE_EXCR") THEN2015 IF (iom_use("ZE_EXCR")) THEN 2015 2016 med_diag%ZE_EXCR%dgsave = .TRUE. 2016 2017 ELSE 2017 2018 med_diag%ZE_EXCR%dgsave = .FALSE. 2018 2019 ENDIF 2019 IF iom_use("ZE_RESP") THEN2020 IF (iom_use("ZE_RESP")) THEN 2020 2021 med_diag%ZE_RESP%dgsave = .TRUE. 2021 2022 ELSE 2022 2023 med_diag%ZE_RESP%dgsave = .FALSE. 2023 2024 ENDIF 2024 IF iom_use("ZE_GROW") THEN2025 IF (iom_use("ZE_GROW")) THEN 2025 2026 med_diag%ZE_GROW%dgsave = .TRUE. 2026 2027 ELSE 2027 2028 med_diag%ZE_GROW%dgsave = .FALSE. 2028 2029 ENDIF 2029 IF iom_use("MDETC") THEN2030 IF (iom_use("MDETC")) THEN 2030 2031 med_diag%MDETC%dgsave = .TRUE. 2031 2032 ELSE 2032 2033 med_diag%MDETC%dgsave = .FALSE. 2033 2034 ENDIF 2034 IF iom_use("GMIDC") THEN2035 IF (iom_use("GMIDC")) THEN 2035 2036 med_diag%GMIDC%dgsave = .TRUE. 2036 2037 ELSE 2037 2038 med_diag%GMIDC%dgsave = .FALSE. 2038 2039 ENDIF 2039 IF iom_use("GMEDC") THEN2040 IF (iom_use("GMEDC")) THEN 2040 2041 med_diag%GMEDC%dgsave = .TRUE. 2041 2042 ELSE 2042 2043 med_diag%GMEDC%dgsave = .FALSE. 2043 2044 ENDIF 2044 IF iom_use("BASIN_01") THEN2045 IF (iom_use("BASIN_01")) THEN 2045 2046 med_diag%BASIN_01%dgsave = .TRUE. 2046 2047 ELSE 2047 2048 med_diag%BASIN_01%dgsave = .FALSE. 2048 2049 ENDIF 2049 IF iom_use("BASIN_02") THEN2050 IF (iom_use("BASIN_02")) THEN 2050 2051 med_diag%BASIN_02%dgsave = .TRUE. 2051 2052 ELSE 2052 2053 med_diag%BASIN_02%dgsave = .FALSE. 2053 2054 ENDIF 2054 IF iom_use("BASIN_03") THEN2055 IF (iom_use("BASIN_03")) THEN 2055 2056 med_diag%BASIN_03%dgsave = .TRUE. 2056 2057 ELSE 2057 2058 med_diag%BASIN_03%dgsave = .FALSE. 2058 2059 ENDIF 2059 IF iom_use("BASIN_04") THEN2060 IF (iom_use("BASIN_04")) THEN 2060 2061 med_diag%BASIN_04%dgsave = .TRUE. 2061 2062 ELSE 2062 2063 med_diag%BASIN_04%dgsave = .FALSE. 2063 2064 ENDIF 2064 IF iom_use("BASIN_05") THEN2065 IF (iom_use("BASIN_05")) THEN 2065 2066 med_diag%BASIN_05%dgsave = .TRUE. 2066 2067 ELSE 2067 2068 med_diag%BASIN_05%dgsave = .FALSE. 2068 2069 ENDIF 2069 IF iom_use("BASIN_06") THEN2070 IF (iom_use("BASIN_06")) THEN 2070 2071 med_diag%BASIN_06%dgsave = .TRUE. 2071 2072 ELSE 2072 2073 med_diag%BASIN_06%dgsave = .FALSE. 2073 2074 ENDIF 2074 IF iom_use("BASIN_07") THEN2075 IF (iom_use("BASIN_07")) THEN 2075 2076 med_diag%BASIN_07%dgsave = .TRUE. 2076 2077 ELSE 2077 2078 med_diag%BASIN_07%dgsave = .FALSE. 2078 2079 ENDIF 2079 IF iom_use("BASIN_08") THEN2080 IF (iom_use("BASIN_08")) THEN 2080 2081 med_diag%BASIN_08%dgsave = .TRUE. 2081 2082 ELSE 2082 2083 med_diag%BASIN_08%dgsave = .FALSE. 2083 2084 ENDIF 2084 IF iom_use("BASIN_09") THEN2085 IF (iom_use("BASIN_09")) THEN 2085 2086 med_diag%BASIN_09%dgsave = .TRUE. 2086 2087 ELSE 2087 2088 med_diag%BASIN_09%dgsave = .FALSE. 2088 2089 ENDIF 2089 IF iom_use("BASIN_10") THEN2090 IF (iom_use("BASIN_10")) THEN 2090 2091 med_diag%BASIN_10%dgsave = .TRUE. 2091 2092 ELSE 2092 2093 med_diag%BASIN_10%dgsave = .FALSE. 2093 2094 ENDIF 2094 IF iom_use("BASIN_11") THEN2095 IF (iom_use("BASIN_11")) THEN 2095 2096 med_diag%BASIN_11%dgsave = .TRUE. 2096 2097 ELSE 2097 2098 med_diag%BASIN_11%dgsave = .FALSE. 2098 2099 ENDIF 2099 IF iom_use("BASIN_12") THEN2100 IF (iom_use("BASIN_12")) THEN 2100 2101 med_diag%BASIN_12%dgsave = .TRUE. 2101 2102 ELSE 2102 2103 med_diag%BASIN_12%dgsave = .FALSE. 2103 2104 ENDIF 2104 IF iom_use("BASIN_13") THEN2105 IF (iom_use("BASIN_13")) THEN 2105 2106 med_diag%BASIN_13%dgsave = .TRUE. 2106 2107 ELSE 2107 2108 med_diag%BASIN_13%dgsave = .FALSE. 2108 2109 ENDIF 2109 IF iom_use("BASIN_14") THEN2110 IF (iom_use("BASIN_14")) THEN 2110 2111 med_diag%BASIN_14%dgsave = .TRUE. 2111 2112 ELSE 2112 2113 med_diag%BASIN_14%dgsave = .FALSE. 2113 2114 ENDIF 2114 IF iom_use("BASIN_15") THEN2115 IF (iom_use("BASIN_15")) THEN 2115 2116 med_diag%BASIN_15%dgsave = .TRUE. 2116 2117 ELSE 2117 2118 med_diag%BASIN_15%dgsave = .FALSE. 2118 2119 ENDIF 2119 IF iom_use("BASIN_16") THEN2120 IF (iom_use("BASIN_16")) THEN 2120 2121 med_diag%BASIN_16%dgsave = .TRUE. 2121 2122 ELSE 2122 2123 med_diag%BASIN_16%dgsave = .FALSE. 2123 2124 ENDIF 2124 IF iom_use("BASIN_17") THEN2125 IF (iom_use("BASIN_17")) THEN 2125 2126 med_diag%BASIN_17%dgsave = .TRUE. 2126 2127 ELSE 2127 2128 med_diag%BASIN_17%dgsave = .FALSE. 2128 2129 ENDIF 2129 IF iom_use("BASIN_18") THEN2130 IF (iom_use("BASIN_18")) THEN 2130 2131 med_diag%BASIN_18%dgsave = .TRUE. 2131 2132 ELSE 2132 2133 med_diag%BASIN_18%dgsave = .FALSE. 2133 2134 ENDIF 2134 IF iom_use("BASIN_19") THEN2135 IF (iom_use("BASIN_19")) THEN 2135 2136 med_diag%BASIN_19%dgsave = .TRUE. 2136 2137 ELSE 2137 2138 med_diag%BASIN_19%dgsave = .FALSE. 2138 2139 ENDIF 2139 IF iom_use("BASIN_20") THEN2140 IF (iom_use("BASIN_20")) THEN 2140 2141 med_diag%BASIN_20%dgsave = .TRUE. 2141 2142 ELSE 2142 2143 med_diag%BASIN_20%dgsave = .FALSE. 2143 2144 ENDIF 2144 IF iom_use("BASIN_21") THEN2145 IF (iom_use("BASIN_21")) THEN 2145 2146 med_diag%BASIN_21%dgsave = .TRUE. 2146 2147 ELSE 2147 2148 med_diag%BASIN_21%dgsave = .FALSE. 2148 2149 ENDIF 2149 IF iom_use("BASIN_22") THEN2150 IF (iom_use("BASIN_22")) THEN 2150 2151 med_diag%BASIN_22%dgsave = .TRUE. 2151 2152 ELSE 2152 2153 med_diag%BASIN_22%dgsave = .FALSE. 2153 2154 ENDIF 2154 IF iom_use("BASIN_23") THEN2155 IF (iom_use("BASIN_23")) THEN 2155 2156 med_diag%BASIN_23%dgsave = .TRUE. 2156 2157 ELSE 2157 2158 med_diag%BASIN_23%dgsave = .FALSE. 2158 2159 ENDIF 2159 IF iom_use("BASIN_24") THEN2160 IF (iom_use("BASIN_24")) THEN 2160 2161 med_diag%BASIN_24%dgsave = .TRUE. 2161 2162 ELSE 2162 2163 med_diag%BASIN_24%dgsave = .FALSE. 2163 2164 ENDIF 2164 IF iom_use("BASIN_25") THEN2165 IF (iom_use("BASIN_25")) THEN 2165 2166 med_diag%BASIN_25%dgsave = .TRUE. 2166 2167 ELSE 2167 2168 med_diag%BASIN_25%dgsave = .FALSE. 2168 2169 ENDIF 2169 IF iom_use("BASIN_26") THEN2170 IF (iom_use("BASIN_26")) THEN 2170 2171 med_diag%BASIN_26%dgsave = .TRUE. 2171 2172 ELSE 2172 2173 med_diag%BASIN_26%dgsave = .FALSE. 2173 2174 ENDIF 2174 IF iom_use("BASIN_27") THEN2175 IF (iom_use("BASIN_27")) THEN 2175 2176 med_diag%BASIN_27%dgsave = .TRUE. 2176 2177 ELSE 2177 2178 med_diag%BASIN_27%dgsave = .FALSE. 2178 2179 ENDIF 2179 IF iom_use("BASIN_28") THEN2180 IF (iom_use("BASIN_28")) THEN 2180 2181 med_diag%BASIN_28%dgsave = .TRUE. 2181 2182 ELSE 2182 2183 med_diag%BASIN_28%dgsave = .FALSE. 2183 2184 ENDIF 2184 IF iom_use("BASIN_29") THEN2185 IF (iom_use("BASIN_29")) THEN 2185 2186 med_diag%BASIN_29%dgsave = .TRUE. 2186 2187 ELSE 2187 2188 med_diag%BASIN_29%dgsave = .FALSE. 2188 2189 ENDIF 2189 IF iom_use("BASIN_30") THEN2190 IF (iom_use("BASIN_30")) THEN 2190 2191 med_diag%BASIN_30%dgsave = .TRUE. 2191 2192 ELSE 2192 2193 med_diag%BASIN_30%dgsave = .FALSE. 2193 2194 ENDIF 2194 IF iom_use("BASIN_31") THEN2195 IF (iom_use("BASIN_31")) THEN 2195 2196 med_diag%BASIN_31%dgsave = .TRUE. 2196 2197 ELSE 2197 2198 med_diag%BASIN_31%dgsave = .FALSE. 2198 2199 ENDIF 2199 IF iom_use("BASIN_32") THEN2200 IF (iom_use("BASIN_32")) THEN 2200 2201 med_diag%BASIN_32%dgsave = .TRUE. 2201 2202 ELSE 2202 2203 med_diag%BASIN_32%dgsave = .FALSE. 2203 2204 ENDIF 2204 IF iom_use("BASIN_33") THEN2205 IF (iom_use("BASIN_33")) THEN 2205 2206 med_diag%BASIN_33%dgsave = .TRUE. 2206 2207 ELSE 2207 2208 med_diag%BASIN_33%dgsave = .FALSE. 2208 2209 ENDIF 2209 IF iom_use("BASIN_34") THEN2210 IF (iom_use("BASIN_34")) THEN 2210 2211 med_diag%BASIN_34%dgsave = .TRUE. 2211 2212 ELSE 2212 2213 med_diag%BASIN_34%dgsave = .FALSE. 2213 2214 ENDIF 2214 IF iom_use("BASIN_35") THEN2215 IF (iom_use("BASIN_35")) THEN 2215 2216 med_diag%BASIN_35%dgsave = .TRUE. 2216 2217 ELSE 2217 2218 med_diag%BASIN_35%dgsave = .FALSE. 2218 2219 ENDIF 2219 IF iom_use("BASIN_36") THEN2220 IF (iom_use("BASIN_36")) THEN 2220 2221 med_diag%BASIN_36%dgsave = .TRUE. 2221 2222 ELSE 2222 2223 med_diag%BASIN_36%dgsave = .FALSE. 2223 2224 ENDIF 2224 IF iom_use("BASIN_37") THEN2225 IF (iom_use("BASIN_37")) THEN 2225 2226 med_diag%BASIN_37%dgsave = .TRUE. 2226 2227 ELSE 2227 2228 med_diag%BASIN_37%dgsave = .FALSE. 2228 2229 ENDIF 2229 IF iom_use("BASIN_38") THEN2230 IF (iom_use("BASIN_38")) THEN 2230 2231 med_diag%BASIN_38%dgsave = .TRUE. 2231 2232 ELSE 2232 2233 med_diag%BASIN_38%dgsave = .FALSE. 2233 2234 ENDIF 2234 IF iom_use("BASIN_39") THEN2235 IF (iom_use("BASIN_39")) THEN 2235 2236 med_diag%BASIN_39%dgsave = .TRUE. 2236 2237 ELSE 2237 2238 med_diag%BASIN_39%dgsave = .FALSE. 2238 2239 ENDIF 2239 IF iom_use("BASIN_40") THEN2240 IF (iom_use("BASIN_40")) THEN 2240 2241 med_diag%BASIN_40%dgsave = .TRUE. 2241 2242 ELSE 2242 2243 med_diag%BASIN_40%dgsave = .FALSE. 2243 2244 ENDIF 2244 IF iom_use("BASIN_41") THEN2245 IF (iom_use("BASIN_41")) THEN 2245 2246 med_diag%BASIN_41%dgsave = .TRUE. 2246 2247 ELSE 2247 2248 med_diag%BASIN_41%dgsave = .FALSE. 2248 2249 ENDIF 2249 IF iom_use("BASIN_42") THEN2250 IF (iom_use("BASIN_42")) THEN 2250 2251 med_diag%BASIN_42%dgsave = .TRUE. 2251 2252 ELSE 2252 2253 med_diag%BASIN_42%dgsave = .FALSE. 2253 2254 ENDIF 2254 IF iom_use("BASIN_43") THEN2255 IF (iom_use("BASIN_43")) THEN 2255 2256 med_diag%BASIN_43%dgsave = .TRUE. 2256 2257 ELSE 2257 2258 med_diag%BASIN_43%dgsave = .FALSE. 2258 2259 ENDIF 2259 IF iom_use("BASIN_44") THEN2260 IF (iom_use("BASIN_44")) THEN 2260 2261 med_diag%BASIN_44%dgsave = .TRUE. 2261 2262 ELSE 2262 2263 med_diag%BASIN_44%dgsave = .FALSE. 2263 2264 ENDIF 2264 IF iom_use("BASIN_45") THEN2265 IF (iom_use("BASIN_45")) THEN 2265 2266 med_diag%BASIN_45%dgsave = .TRUE. 2266 2267 ELSE 2267 2268 med_diag%BASIN_45%dgsave = .FALSE. 2268 2269 ENDIF 2269 IF iom_use("INT_ZMI") THEN2270 IF (iom_use("INT_ZMI")) THEN 2270 2271 med_diag%INT_ZMI%dgsave = .TRUE. 2271 2272 ELSE 2272 2273 med_diag%INT_ZMI%dgsave = .FALSE. 2273 2274 ENDIF 2274 IF iom_use("INT_ZME") THEN2275 IF (iom_use("INT_ZME")) THEN 2275 2276 med_diag%INT_ZME%dgsave = .TRUE. 2276 2277 ELSE 2277 2278 med_diag%INT_ZME%dgsave = .FALSE. 2278 2279 ENDIF 2279 IF iom_use("INT_DET") THEN2280 IF (iom_use("INT_DET")) THEN 2280 2281 med_diag%INT_DET%dgsave = .TRUE. 2281 2282 ELSE 2282 2283 med_diag%INT_DET%dgsave = .FALSE. 2283 2284 ENDIF 2284 IF iom_use("INT_DTC") THEN2285 IF (iom_use("INT_DTC")) THEN 2285 2286 med_diag%INT_DTC%dgsave = .TRUE. 2286 2287 ELSE 2287 2288 med_diag%INT_DTC%dgsave = .FALSE. 2288 2289 ENDIF 2289 IF iom_use("DMS_SURF") THEN2290 IF (iom_use("DMS_SURF")) THEN 2290 2291 med_diag%DMS_SURF%dgsave = .TRUE. 2291 2292 ELSE 2292 2293 med_diag%DMS_SURF%dgsave = .FALSE. 2293 2294 ENDIF 2294 IF iom_use("DMS_ANDR") THEN2295 IF (iom_use("DMS_ANDR")) THEN 2295 2296 med_diag%DMS_ANDR%dgsave = .TRUE. 2296 2297 ELSE 2297 2298 med_diag%DMS_ANDR%dgsave = .FALSE. 2298 2299 ENDIF 2299 IF iom_use("DMS_SIMO") THEN2300 IF (iom_use("DMS_SIMO")) THEN 2300 2301 med_diag%DMS_SIMO%dgsave = .TRUE. 2301 2302 ELSE 2302 2303 med_diag%DMS_SIMO%dgsave = .FALSE. 2303 2304 ENDIF 2304 IF iom_use("DMS_ARAN") THEN2305 IF (iom_use("DMS_ARAN")) THEN 2305 2306 med_diag%DMS_ARAN%dgsave = .TRUE. 2306 2307 ELSE 2307 2308 med_diag%DMS_ARAN%dgsave = .FALSE. 2308 2309 ENDIF 2309 IF iom_use("DMS_HALL") THEN2310 IF (iom_use("DMS_HALL")) THEN 2310 2311 med_diag%DMS_HALL%dgsave = .TRUE. 2311 2312 ELSE 2312 2313 med_diag%DMS_HALL%dgsave = .FALSE. 2313 2314 ENDIF 2314 IF iom_use("TPP3") THEN2315 IF (iom_use("TPP3")) THEN 2315 2316 med_diag%TPP3%dgsave = .TRUE. 2316 2317 ELSE 2317 2318 med_diag%TPP3%dgsave = .FALSE. 2318 2319 ENDIF 2319 IF iom_use("DETFLUX3") THEN2320 IF (iom_use("DETFLUX3")) THEN 2320 2321 med_diag%DETFLUX3%dgsave = .TRUE. 2321 2322 ELSE 2322 2323 med_diag%DETFLUX3%dgsave = .FALSE. 2323 2324 ENDIF 2324 IF iom_use("REMIN3N") THEN2325 IF (iom_use("REMIN3N")) THEN 2325 2326 med_diag%REMIN3N%dgsave = .TRUE. 2326 2327 ELSE 2327 2328 med_diag%REMIN3N%dgsave = .FALSE. 2328 2329 ENDIF 2329 IF iom_use("PH3") THEN2330 IF (iom_use("PH3")) THEN 2330 2331 med_diag%PH3%dgsave = .TRUE. 2331 2332 ELSE 2332 2333 med_diag%PH3%dgsave = .FALSE. 2333 2334 ENDIF 2334 IF iom_use("OM_CAL3") THEN2335 IF (iom_use("OM_CAL3")) THEN 2335 2336 med_diag%OM_CAL3%dgsave = .TRUE. 2336 2337 ELSE -
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcsed_medusa.F90
r5931 r5937 23 23 !! AXY (10/02/09) 24 24 USE iom 25 USE trc_nam_dia ! JPALM 13-11-2015 -- if iom_use for diag26 USE trc_nam_iom_medusa ! JPALM 13-11-2015 -- if iom_use for diag25 !! USE trc_nam_dia ! JPALM 13-11-2015 -- if iom_use for diag 26 !! USE trc_nam_iom_medusa ! JPALM 13-11-2015 -- if iom_use for diag 27 27 28 28 USE lbclnk … … 42 42 !! AXY (10/02/09) 43 43 LOGICAL, PUBLIC :: & 44 bdustfer = . TRUE.44 bdustfer = .FALSE. 45 45 REAL(wp), PUBLIC :: & 46 46 sedfeinput = 1.e-9_wp , & … … 185 185 ENDIF 186 186 187 .188 187 END DO 189 188 END DO -
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trc.F90
r5931 r5937 139 139 TPP3, DETFLUX3, REMIN3N, PH3, OM_CAL3 140 140 !! list of all MEDUSA diagnostics that could be called by iom_use 141 END TYPE DIAG_IOM 141 END TYPE DIAG_IOM 142 !! 143 TYPE(DIAG_IOM), PUBLIC :: med_diag ! define which diagnostics are asked in outputs 142 144 # endif 143 145 -
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r5931 r5937 434 434 !! ( (PISCES, CFC, MY_TRC ) 435 435 !!--------------------------------------------------------------------- 436 #if defined key_medusa && defined key_iomput437 TYPE(DIAG_IOM), PUBLIC :: med_diag ! define which diagnostics are asked in outputs438 #endif439 436 INTEGER :: ierr 440 437 #if defined key_trdmxl_trc || defined key_trdtrc
Note: See TracChangeset
for help on using the changeset viewer.