Ignore:
Timestamp:
2020-10-28T18:50:34+01:00 (6 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_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 ) 
Note: See TracChangeset for help on using the changeset viewer.