Changeset 13695 for branches


Ignore:
Timestamp:
2020-10-28T18:50:34+01:00 (4 months ago)
Author:
dford
Message:

Add 3D PFT-specific grazing diagnostics

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  
    546546       <field id= "MIGRAZD3"   long_name="Microzooplankton grazing on detritus"      unit="mmol-C/m3/d"    grid_ref="grid_T_3D"  /> 
    547547       <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"  /> 
    548550       <field id= "MEGRAZD3"   long_name="Mesozooplankton grazing on detritus"       unit="mmol-C/m3/d"    grid_ref="grid_T_3D"  /> 
    549551       <field id= "MEGRAZZ3"   long_name="Mesozooplankton grazing on microzoop"      unit="mmol-C/m3/d"    grid_ref="grid_T_3D"  /> 
     
    24522454      <field field_ref= "MIGRAZD3"   name="MIGRAZD3"   /> 
    24532455      <field field_ref= "MEGRAZP3"   name="MEGRAZP3"   /> 
     2456      <field field_ref= "MEGRAZPN3"  name="MEGRAZPN3"  /> 
     2457      <field field_ref= "MEGRAZPD3"  name="MEGRAZPD3"  /> 
    24542458      <field field_ref= "MEGRAZD3"   name="MEGRAZD3"   /> 
    24552459      <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  
    657657                                       (fgmepd(ji,jj) * xthetapd) 
    658658               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 
    659665          IF ( med_diag%MEGRAZD3%dgsave ) THEN 
    660666                  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  
    888888             DEALLOCATE( megrazp3 ) 
    889889          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            
    890898          IF( med_diag%MEGRAZD3%dgsave ) THEN 
    891899             CALL iom_put( "MEGRAZD3"  , megrazd3 ) 
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r13316 r13695  
    815815            megrazp3(:,:,: )  = 0.0 !!  
    816816         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 
    817825         IF( med_diag%MEGRAZD3%dgsave   ) THEN 
    818826            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  
    261261   REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: fediss3,fescav3 
    262262   REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: migrazp3,migrazd3,megrazp3 
     263   REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: megrazpn3,megrazpd3 
    263264   REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: megrazd3, megrazz3 
    264265   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  
    23452345          med_diag%MEGRAZP3%dgsave = .FALSE. 
    23462346      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 
    23472357      IF  (iom_use("MEGRAZD3")) THEN  
    23482358          med_diag%MEGRAZD3%dgsave = .TRUE. 
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_biophys/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r13677 r13695  
    152152                  EXPC3, EXPN3, EXPCALC3, EXPSI3,                                                    & 
    153153                  FEDISS3, FESCAV3,                                                                  & 
    154                   MIGRAZP3, MIGRAZD3, MEGRAZP3, MEGRAZD3, MEGRAZZ3,                                  & 
     154                  MIGRAZP3, MIGRAZD3, MEGRAZP3, MEGRAZPN3, MEGRAZPD3, MEGRAZD3, MEGRAZZ3,            & 
    155155                  O2SAT3, PBSI3, PCAL3, REMOC3,                                                      & 
    156156                  PNLIMJ3, PNLIMN3, PNLIMFE3, PDLIMJ3, PDLIMN3, PDLIMFE3, PDLIMSI3,                  & 
Note: See TracChangeset for help on using the changeset viewer.