Ignore:
Timestamp:
10/05/16 14:25:40 (8 years ago)
Author:
vancop
Message:

Ludivine source files

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2016/dev_v3.20_2016_gravity_drainage/SOURCES/source_3.20/ice_bio_ini.f

    r4 r20  
    6262 
    6363      IF ( c_bio_model .EQ. 'KRILL' ) THEN 
    64          ntra_bio = 21 
     64         ntra_bio = 23 
    6565      ENDIF 
    6666! 
    … …  
    117117      jn_arg = 12 ! 17 
    118118      jn_cal = 13 ! 21 
     119      jn_aon = 14 
     120      jn_eon = 15 
     121      jn_aop = 16 
     122      jn_eop = 17 
    119123 
    120124      ! Assign Tracer names 
    … …  
    132136      biotr_i_nam(jn_oxy) = 'Oxy'//zblank 
    133137      biotr_i_nam(jn_nit) = 'Nit'//zblank 
     138      biotr_i_nam(jn_aon) = 'AoN'//zblank 
     139      biotr_i_nam(jn_eon) = 'eoN'//zblank 
     140      biotr_i_nam(jn_aop) = 'AoP'//zblank 
     141      biotr_i_nam(jn_eop) = 'eoP'//zblank 
    134142 
    135143! 
    … …  
    167175      READ(numtra,*) 
    168176 
    169       DO jn_read = 1, 13 
     177      DO jn_read = 1, 17 
    170178 
    171179         READ(numtra,*)  c_read_name(jn_read), zchar, i_dummy1, zdummy2, 
    … …  
    248256      flag_adsorb(jn) = .false. 
    249257      flag_diff(jn)   = .false. 
    250       nn_remp(jn)     = 1 
     258      nn_remp(jn)     = 2 
    251259      biotr_i_typ(jn) = 'prc'//zblank 
    252260      biotr_i_uni(jn) = 'mmol_m3'//zblank 
    … …  
    259267      flag_adsorb(jn) = .false. 
    260268      flag_diff(jn)   = .false. 
    261       nn_remp(jn)     = 1 
     269      nn_remp(jn)     = 2 
     270      biotr_i_typ(jn) = 'prc'//zblank 
     271      biotr_i_uni(jn) = 'mmol_m3'//zblank 
     272 
     273      !-------------------------------------- 
     274      ! AoN : Ice algae organic N 
     275      !-------------------------------------- 
     276      jn = jn_aon 
     277      flag_active(jn) = .true. 
     278      flag_adsorb(jn) = .false. 
     279      flag_diff(jn)   = .false. 
     280      nn_remp(jn)     = 2 
     281      biotr_i_typ(jn) = 'prc'//zblank 
     282      biotr_i_uni(jn) = 'mmol_m3'//zblank 
     283 
     284      !-------------------------------------- 
     285      ! eoN : Detritus organic N 
     286      !-------------------------------------- 
     287      jn = jn_eon 
     288      flag_active(jn) = .true. 
     289      flag_adsorb(jn) = .false. 
     290      flag_diff(jn)   = .false. 
     291      nn_remp(jn)     = 2 
     292      biotr_i_typ(jn) = 'prc'//zblank 
     293      biotr_i_uni(jn) = 'mmol_m3'//zblank 
     294 
     295      !-------------------------------------- 
     296      ! AoP : Ice algae organic P 
     297      !-------------------------------------- 
     298      jn = jn_aop 
     299      flag_active(jn) = .true. 
     300      flag_adsorb(jn) = .false. 
     301      flag_diff(jn)   = .false. 
     302      nn_remp(jn)     = 2 
     303      biotr_i_typ(jn) = 'prc'//zblank 
     304      biotr_i_uni(jn) = 'mmol_m3'//zblank 
     305 
     306      !-------------------------------------- 
     307      ! eoP : Detritus organic P 
     308      !-------------------------------------- 
     309      jn = jn_eop 
     310      flag_active(jn) = .true. 
     311      flag_adsorb(jn) = .false. 
     312      flag_diff(jn)   = .false. 
     313      nn_remp(jn)     = 2 
    262314      biotr_i_typ(jn) = 'prc'//zblank 
    263315      biotr_i_uni(jn) = 'mmol_m3'//zblank 
Note: See TracChangeset for help on using the changeset viewer.