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/plankton.F90

    r9292 r11990  
    5252# if defined key_foam_medusa 
    5353                                   pgrow_avg, ploss_avg, phyt_avg,         & 
     54                                   pgrow_avg_3d, ploss_avg_3d, phyt_avg_3d, & 
    5455# endif 
    5556                                   xkphd, xkphn, xkzme, xkzmi,             & 
     
    242243                                  ((zphn(ji,jj) + zphd(ji,jj)) *       & 
    243244                                   fse3t(ji,jj,jk) * fq0) 
     245               !! 
     246               pgrow_avg_3d(ji,jj,jk) = (fprn(ji,jj) * zphn(ji,jj)) +  & 
     247                                        (fprd(ji,jj) * zphd(ji,jj)) 
     248               ploss_avg_3d(ji,jj,jk) = fgmepd(ji,jj) + fdpd(ji,jj) +  & 
     249                                        fdpd2(ji,jj)                +  & 
     250                                        fgmepn(ji,jj) + fdpn(ji,jj) +  & 
     251                                        fdpn2(ji,jj)  + fgmipn(ji,jj) 
     252               phyt_avg_3d(ji,jj,jk)  = zphn(ji,jj) + zphd(ji,jj) 
    244253            ENDIF 
    245254         ENDDO 
Note: See TracChangeset for help on using the changeset viewer.