Ignore:
Timestamp:
2019-11-27T16:43:05+01:00 (8 months ago)
Author:
dford
Message:

Get the nitrogen balancing working with 3D chlorophyll increments.

File:
1 edited

Legend:

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

    r9292 r11990  
    3636      USE par_oce,           ONLY: jpi, jpj, jpk 
    3737# if defined key_foam_medusa 
    38       USE sms_medusa,        ONLY: jdms, pgrow_avg, ploss_avg, phyt_avg, mld_max 
     38      USE sms_medusa,        ONLY: jdms, pgrow_avg, ploss_avg, phyt_avg, mld_max, & 
     39         &                         pgrow_avg_3d, ploss_avg_3d, phyt_avg_3d 
    3940# else 
    4041      USE sms_medusa,        ONLY: jdms 
     
    201202      ploss_avg(:,:) = 0.0 
    202203      phyt_avg(:,:)  = 0.0 
     204      pgrow_avg_3d(:,:,:) = 0.0 
     205      ploss_avg_3d(:,:,:) = 0.0 
     206      phyt_avg_3d(:,:,:)  = 0.0 
    203207      IF( kt == nittrc000 ) THEN 
    204208         mld_max(:,:) = 0.0 
Note: See TracChangeset for help on using the changeset viewer.