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

    r10302 r13097  
    4646                                   ln_foam_medusa,                         & 
    4747                                   pgrow_avg, ploss_avg, phyt_avg,         & 
     48                                   pgrow_avg_3d, ploss_avg_3d, phyt_avg_3d, & 
    4849                                   xkphd, xkphn, xkzme, xkzmi,             & 
    4950                                   xmetapd, xmetapn, xmetazme, xmetazmi,   & 
     
    229230                                     ((zphn(ji,jj) + zphd(ji,jj)) *       & 
    230231                                      fse3t(ji,jj,jk) * fq0) 
     232                  !! 
     233                  pgrow_avg_3d(ji,jj,jk) = (fprn(ji,jj) * zphn(ji,jj)) +  & 
     234                                           (fprd(ji,jj) * zphd(ji,jj)) 
     235                  ploss_avg_3d(ji,jj,jk) = fgmepd(ji,jj) + fdpd(ji,jj) +  & 
     236                                           fdpd2(ji,jj)                +  & 
     237                                           fgmepn(ji,jj) + fdpn(ji,jj) +  & 
     238                                           fdpn2(ji,jj)  + fgmipn(ji,jj) 
     239                  phyt_avg_3d(ji,jj,jk)  = zphn(ji,jj) + zphd(ji,jj) 
    231240               ENDIF 
    232241            ENDDO 
Note: See TracChangeset for help on using the changeset viewer.