New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 10362 for NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90 – NEMO

Ignore:
Timestamp:
2018-11-30T16:38:17+01:00 (5 years ago)
Author:
aumont
Message:

Various bug fixes and improvements

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90

    r10227 r10362  
    109109      ierr = ierr +  p4z_flx_alloc() 
    110110      ierr = ierr +  p4z_sed_alloc() 
    111       ierr = ierr +  p4z_rem_alloc() 
     111      ierr = ierr +  p4z_lim_alloc() 
    112112      IF( ln_p4z ) THEN 
    113          ierr = ierr +  p4z_lim_alloc() 
    114113         ierr = ierr +  p4z_prod_alloc() 
    115114      ELSE 
     
    117116         ierr = ierr +  p5z_prod_alloc() 
    118117      ENDIF 
     118      ierr = ierr +  p4z_rem_alloc() 
    119119      ! 
    120120      IF( lk_mpp    )   CALL mpp_sum( ierr ) 
     
    165165        IF( cltra == 'PICN'     )   jpnpi = jn      !: Picophytoplankton N biomass 
    166166        IF( cltra == 'PICP'     )   jpppi = jn      !: Picophytoplankton P biomass 
     167        IF( cltra == 'PCHL'     )   jppch = jn      !: Diatoms Chlorophyll Concentration 
    167168        IF( cltra == 'PFe'      )   jppfe = jn      !: Picophytoplankton Fe biomass 
    168169        IF( cltra == 'LGW'      )   jplgw = jn      !: Weak ligands 
     
    238239         xksi(:,:)    = 2.e-6 
    239240         xksimax(:,:) = xksi(:,:) 
     241         IF( ln_p5z ) THEN 
     242            sized(:,:,:) = 1.0 
     243            sizen(:,:,:) = 1.0 
     244            sized(:,:,:) = 1.0 
     245         ENDIF 
    240246      END IF 
    241247 
Note: See TracChangeset for help on using the changeset viewer.