Ignore:
Timestamp:
2020-06-11T19:32:37+02:00 (5 months ago)
Author:
dford
Message:

Allow nitrogen balancing for both 2D and 3D chlorophyll increments.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_FOAMv14_phytobal3d/NEMOGCM/NEMO/TOP_SRC/MEDUSA/bio_medusa_init.F90

    r10302 r13097  
    3535      USE bio_medusa_mod 
    3636      USE par_oce,           ONLY: jpi, jpj, jpk 
    37       USE sms_medusa,        ONLY: jdms, pgrow_avg, ploss_avg, phyt_avg, mld_max 
     37      USE sms_medusa,        ONLY: jdms, pgrow_avg, ploss_avg, phyt_avg, mld_max, & 
     38         &                         pgrow_avg_3d, ploss_avg_3d, phyt_avg_3d 
    3839      USE trc,               ONLY: ln_diatrc, med_diag, nittrc000  
    3940      USE in_out_manager,    ONLY: lwp, numout 
     
    199200      ploss_avg(:,:) = 0.0 
    200201      phyt_avg(:,:)  = 0.0 
     202      pgrow_avg_3d(:,:,:) = 0.0 
     203      ploss_avg_3d(:,:,:) = 0.0 
     204      phyt_avg_3d(:,:,:)  = 0.0 
    201205      IF( kt == nittrc000 ) THEN 
    202206         mld_max(:,:) = 0.0 
Note: See TracChangeset for help on using the changeset viewer.