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

Add 3D PFT-specific grazing diagnostics

File:
1 edited

Legend:

Unmodified
Added
Removed
  • 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) ) 
Note: See TracChangeset for help on using the changeset viewer.