/[MITgcm]/MITgcm_contrib/bling/pkg/bling_production.F
ViewVC logotype

Diff of /MITgcm_contrib/bling/pkg/bling_production.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by mmazloff, Wed May 4 23:22:25 2016 UTC revision 1.4 by mmazloff, Sun May 15 00:30:35 2016 UTC
# Line 312  c  phytoplankton photoadaptation to loca Line 312  c  phytoplankton photoadaptation to loca
312  c ---------------------------------------------------------------------  c ---------------------------------------------------------------------
313  c  Nutrient uptake and partitioning between organic pools  c  Nutrient uptake and partitioning between organic pools
314    
 C!! needed??  
 C$TAF STORE P_sm = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_lg = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_diaz = comlev1, key = ikey_dynamics, kind=isbyte  
   
315        DO k=1,Nr        DO k=1,Nr
316         DO j=jmin,jmax         DO j=jmin,jmax
317          DO i=imin,imax            DO i=imin,imax  
# Line 431  c  Carbon-specific photosynthesis rate Line 426  c  Carbon-specific photosynthesis rate
426         ENDDO         ENDDO
427        ENDDO        ENDDO
428    
   
 C$TAF STORE P_sm = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_lg = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_diaz = comlev1, key = ikey_dynamics, kind=isbyte  
 Cxx needed?  
   
429  c  Instantaneous nutrient concentration in phyto biomass  c  Instantaneous nutrient concentration in phyto biomass
430  c  Separate loop so adjoint stuff above can be outside loop  c  Separate loop so adjoint stuff above can be outside loop
431  c  (fix for recomputations)  c  (fix for recomputations)
432    CMM(
433    CADJ STORE P_sm = comlev1, key = ikey_dynamics, kind=isbyte
434    CADJ STORE P_lg = comlev1, key = ikey_dynamics, kind=isbyte
435    CADJ STORE P_diaz = comlev1, key = ikey_dynamics, kind=isbyte
436    CMM)
437        DO k=1,Nr        DO k=1,Nr
438         DO j=jmin,jmax         DO j=jmin,jmax
439          DO i=imin,imax          DO i=imin,imax
# Line 470  c          expkT = exp(kappa_eppley * th Line 463  c          expkT = exp(kappa_eppley * th
463         ENDDO         ENDDO
464        ENDDO        ENDDO
465    
 C$TAF STORE P_sm = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_lg = comlev1, key = ikey_dynamics, kind=isbyte  
 C$TAF STORE P_diaz = comlev1, key = ikey_dynamics, kind=isbyte  
 cxx needed?  
   
   
466        DO k=1,Nr        DO k=1,Nr
467         DO j=jmin,jmax         DO j=jmin,jmax
468          DO i=imin,imax          DO i=imin,imax
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22