Changeset 13695
- Timestamp:
- 2020-10-28T18:50:34+01:00 (3 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/CONFIG/SHARED/field_def_bgc.xml
r13677 r13695 546 546 <field id= "MIGRAZD3" long_name="Microzooplankton grazing on detritus" unit="mmol-C/m3/d" grid_ref="grid_T_3D" /> 547 547 <field id= "MEGRAZP3" long_name="Mesozooplankton grazing on phytoplankton" unit="mmol-C/m3/d" grid_ref="grid_T_3D" /> 548 <field id= "MEGRAZPN3" long_name="Mesozooplankton grazing on non-diatoms" unit="mmol-C/m3/d" grid_ref="grid_T_3D" /> 549 <field id= "MEGRAZPD3" long_name="Mesozooplankton grazing on diatoms" unit="mmol-C/m3/d" grid_ref="grid_T_3D" /> 548 550 <field id= "MEGRAZD3" long_name="Mesozooplankton grazing on detritus" unit="mmol-C/m3/d" grid_ref="grid_T_3D" /> 549 551 <field id= "MEGRAZZ3" long_name="Mesozooplankton grazing on microzoop" unit="mmol-C/m3/d" grid_ref="grid_T_3D" /> … … 2452 2454 <field field_ref= "MIGRAZD3" name="MIGRAZD3" /> 2453 2455 <field field_ref= "MEGRAZP3" name="MEGRAZP3" /> 2456 <field field_ref= "MEGRAZPN3" name="MEGRAZPN3" /> 2457 <field field_ref= "MEGRAZPD3" name="MEGRAZPD3" /> 2454 2458 <field field_ref= "MEGRAZD3" name="MEGRAZD3" /> 2455 2459 <field field_ref= "MEGRAZZ3" name="MEGRAZZ3" /> -
branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_med_diag_iomput.F90
r10302 r13695 657 657 (fgmepd(ji,jj) * xthetapd) 658 658 ENDIF 659 IF ( med_diag%MEGRAZPN3%dgsave ) THEN 660 megrazpn3(ji,jj,jk) = fgmepn(ji,jj) * xthetapn 661 ENDIF 662 IF ( med_diag%MEGRAZPD3%dgsave ) THEN 663 megrazpd3(ji,jj,jk) = fgmepd(ji,jj) * xthetapd 664 ENDIF 659 665 IF ( med_diag%MEGRAZD3%dgsave ) THEN 660 666 megrazd3(ji,jj,jk) = fgmedc(ji,jj) -
branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_fin.F90
r13677 r13695 888 888 DEALLOCATE( megrazp3 ) 889 889 ENDIF 890 IF( med_diag%MEGRAZPN3%dgsave ) THEN 891 CALL iom_put( "MEGRAZPN3" , megrazpn3 ) 892 DEALLOCATE( megrazpn3 ) 893 ENDIF 894 IF( med_diag%MEGRAZPD3%dgsave ) THEN 895 CALL iom_put( "MEGRAZPD3" , megrazpd3 ) 896 DEALLOCATE( megrazpd3 ) 897 ENDIF 890 898 IF( med_diag%MEGRAZD3%dgsave ) THEN 891 899 CALL iom_put( "MEGRAZD3" , megrazd3 ) -
branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90
r13316 r13695 815 815 megrazp3(:,:,: ) = 0.0 !! 816 816 ENDIF 817 IF( med_diag%MEGRAZPN3%dgsave ) THEN 818 ALLOCATE( megrazpn3(1:jpi, 1:jpj, 1:jpk) ) 819 megrazpn3(:,:,: ) = 0.0 !! 820 ENDIF 821 IF( med_diag%MEGRAZPD3%dgsave ) THEN 822 ALLOCATE( megrazpd3(1:jpi, 1:jpj, 1:jpk) ) 823 megrazpd3(:,:,: ) = 0.0 !! 824 ENDIF 817 825 IF( med_diag%MEGRAZD3%dgsave ) THEN 818 826 ALLOCATE( megrazd3(1:jpi, 1:jpj, 1:jpk) ) -
branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_mod.F90
r10302 r13695 261 261 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: fediss3,fescav3 262 262 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: migrazp3,migrazd3,megrazp3 263 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: megrazpn3,megrazpd3 263 264 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: megrazd3, megrazz3 264 265 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: o2sat3,pbsi3,pcal3,remoc3 -
branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/trcnam_medusa.F90
r13677 r13695 2345 2345 med_diag%MEGRAZP3%dgsave = .FALSE. 2346 2346 ENDIF 2347 IF (iom_use("MEGRAZPN3")) THEN 2348 med_diag%MEGRAZPN3%dgsave = .TRUE. 2349 ELSE 2350 med_diag%MEGRAZPN3%dgsave = .FALSE. 2351 ENDIF 2352 IF (iom_use("MEGRAZPD3")) THEN 2353 med_diag%MEGRAZPD3%dgsave = .TRUE. 2354 ELSE 2355 med_diag%MEGRAZPD3%dgsave = .FALSE. 2356 ENDIF 2347 2357 IF (iom_use("MEGRAZD3")) THEN 2348 2358 med_diag%MEGRAZD3%dgsave = .TRUE. -
branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/trc.F90
r13677 r13695 152 152 EXPC3, EXPN3, EXPCALC3, EXPSI3, & 153 153 FEDISS3, FESCAV3, & 154 MIGRAZP3, MIGRAZD3, MEGRAZP3, MEGRAZ D3, MEGRAZZ3,&154 MIGRAZP3, MIGRAZD3, MEGRAZP3, MEGRAZPN3, MEGRAZPD3, MEGRAZD3, MEGRAZZ3, & 155 155 O2SAT3, PBSI3, PCAL3, REMOC3, & 156 156 PNLIMJ3, PNLIMN3, PNLIMFE3, PDLIMJ3, PDLIMN3, PDLIMFE3, PDLIMSI3, &
Note: See TracChangeset
for help on using the changeset viewer.