Changeset 10362 for NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90
- Timestamp:
- 2018-11-30T16:38:17+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/PISCES/trcini_pisces.F90
r10227 r10362 109 109 ierr = ierr + p4z_flx_alloc() 110 110 ierr = ierr + p4z_sed_alloc() 111 ierr = ierr + p4z_ rem_alloc()111 ierr = ierr + p4z_lim_alloc() 112 112 IF( ln_p4z ) THEN 113 ierr = ierr + p4z_lim_alloc()114 113 ierr = ierr + p4z_prod_alloc() 115 114 ELSE … … 117 116 ierr = ierr + p5z_prod_alloc() 118 117 ENDIF 118 ierr = ierr + p4z_rem_alloc() 119 119 ! 120 120 IF( lk_mpp ) CALL mpp_sum( ierr ) … … 165 165 IF( cltra == 'PICN' ) jpnpi = jn !: Picophytoplankton N biomass 166 166 IF( cltra == 'PICP' ) jpppi = jn !: Picophytoplankton P biomass 167 IF( cltra == 'PCHL' ) jppch = jn !: Diatoms Chlorophyll Concentration 167 168 IF( cltra == 'PFe' ) jppfe = jn !: Picophytoplankton Fe biomass 168 169 IF( cltra == 'LGW' ) jplgw = jn !: Weak ligands … … 238 239 xksi(:,:) = 2.e-6 239 240 xksimax(:,:) = xksi(:,:) 241 IF( ln_p5z ) THEN 242 sized(:,:,:) = 1.0 243 sizen(:,:,:) = 1.0 244 sized(:,:,:) = 1.0 245 ENDIF 240 246 END IF 241 247
Note: See TracChangeset
for help on using the changeset viewer.