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 8003 for branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90 – NEMO

Ignore:
Timestamp:
2017-05-09T12:14:45+02:00 (7 years ago)
Author:
aumont
Message:

modification in the code to remove unnecessary parts such as kriest and non iomput options

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/CNRS/dev_r6270_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r7180 r8003  
    142142         trn(:,:,:,jppon) = bioma0 
    143143         trn(:,:,:,jppop) = bioma0 
    144 #  if ! defined key_kriest 
    145144         trn(:,:,:,jpgoc) = bioma0 
    146145         trn(:,:,:,jpgon) = bioma0 
    147146         trn(:,:,:,jpgop) = bioma0 
    148147         trn(:,:,:,jpbfe) = bioma0 * 5.e-6 
    149 #  else 
    150          trn(:,:,:,jpnum) = bioma0 / ( 6. * xkr_massp ) 
    151 #  endif 
    152148         trn(:,:,:,jpsil) = silic1 
    153149         trn(:,:,:,jpdsi) = bioma0 * 0.15 
     
    293289         trn(:,:,:,jppo4) = po4 / po4r 
    294290         trn(:,:,:,jppoc) = bioma0 
    295 #  if ! defined key_kriest 
    296291         trn(:,:,:,jpgoc) = bioma0 
    297292         trn(:,:,:,jpbfe) = bioma0 * 5.e-6 
    298 #  else 
    299          trn(:,:,:,jpnum) = bioma0 / ( 6. * xkr_massp ) 
    300 #  endif 
    301293         trn(:,:,:,jpsil) = silic1 
    302294         trn(:,:,:,jpdsi) = bioma0 * 0.15 
Note: See TracChangeset for help on using the changeset viewer.