- Timestamp:
- 2019-11-22T15:29:17+01:00 (4 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Property svn:mergeinfo deleted
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/PISCES/P4Z/p4zbio.F90
r10227 r11949 45 45 CONTAINS 46 46 47 SUBROUTINE p4z_bio ( kt, knt )47 SUBROUTINE p4z_bio ( kt, knt, Kbb, Kmm, Krhs ) 48 48 !!--------------------------------------------------------------------- 49 49 !! *** ROUTINE p4z_bio *** … … 56 56 !!--------------------------------------------------------------------- 57 57 INTEGER, INTENT(in) :: kt, knt 58 INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! time level indices 58 59 ! 59 60 INTEGER :: ji, jj, jk, jn … … 72 73 DO ji = 1, jpi 73 74 !!gm : use nmln and test on jk ... less memory acces 74 IF( gdepw _n(ji,jj,jk+1) > hmld(ji,jj) ) xdiss(ji,jj,jk) = 0.0175 IF( gdepw(ji,jj,jk+1,Kmm) > hmld(ji,jj) ) xdiss(ji,jj,jk) = 0.01 75 76 END DO 76 77 END DO 77 78 END DO 78 79 79 CALL p4z_opt ( kt, knt ) ! Optic: PAR in the water column80 CALL p4z_sink ( kt, knt ) ! vertical flux of particulate organic matter81 CALL p4z_fechem ( kt, knt ) ! Iron chemistry/scavenging80 CALL p4z_opt ( kt, knt, Kbb, Kmm ) ! Optic: PAR in the water column 81 CALL p4z_sink ( kt, knt, Kbb, Kmm, Krhs ) ! vertical flux of particulate organic matter 82 CALL p4z_fechem ( kt, knt, Kbb, Kmm, Krhs ) ! Iron chemistry/scavenging 82 83 ! 83 84 IF( ln_p4z ) THEN 84 CALL p4z_lim ( kt, knt ) ! co-limitations by the various nutrients85 CALL p4z_prod ( kt, knt ) ! phytoplankton growth rate over the global ocean.86 ! ! (for each element : C, Si, Fe, Chl )87 CALL p4z_mort ( kt 88 ! ! zooplankton sources/sinks routines89 CALL p4z_micro( kt, knt )! microzooplankton90 CALL p4z_meso ( kt, knt )! mesozooplankton85 CALL p4z_lim ( kt, knt, Kbb, Kmm ) ! co-limitations by the various nutrients 86 CALL p4z_prod ( kt, knt, Kbb, Kmm, Krhs ) ! phytoplankton growth rate over the global ocean. 87 ! ! (for each element : C, Si, Fe, Chl ) 88 CALL p4z_mort ( kt, Kbb, Krhs ) ! phytoplankton mortality 89 ! ! zooplankton sources/sinks routines 90 CALL p4z_micro( kt, knt, Kbb, Krhs ) ! microzooplankton 91 CALL p4z_meso ( kt, knt, Kbb, Krhs ) ! mesozooplankton 91 92 ELSE 92 CALL p5z_lim ( kt, knt ) ! co-limitations by the various nutrients93 CALL p5z_prod ( kt, knt ) ! phytoplankton growth rate over the global ocean.94 ! ! (for each element : C, Si, Fe, Chl )95 CALL p5z_mort ( kt ) ! phytoplankton mortality96 ! ! zooplankton sources/sinks routines97 CALL p5z_micro( kt, knt ) ! microzooplankton98 CALL p5z_meso ( kt, knt ) ! mesozooplankton93 CALL p5z_lim ( kt, knt, Kbb, Kmm ) ! co-limitations by the various nutrients 94 CALL p5z_prod ( kt, knt, Kbb, Kmm, Krhs ) ! phytoplankton growth rate over the global ocean. 95 ! ! (for each element : C, Si, Fe, Chl ) 96 CALL p5z_mort ( kt, Kbb, Krhs ) ! phytoplankton mortality 97 ! ! zooplankton sources/sinks routines 98 CALL p5z_micro( kt, knt, Kbb, Krhs ) ! microzooplankton 99 CALL p5z_meso ( kt, knt, Kbb, Krhs ) ! mesozooplankton 99 100 ENDIF 100 101 ! 101 CALL p4z_agg ( kt, knt ) ! Aggregation of particles102 CALL p4z_rem ( kt, knt ) ! remineralization terms of organic matter+scavenging of Fe103 CALL p4z_poc ( kt, knt ) ! Remineralization of organic particles102 CALL p4z_agg ( kt, knt, Kbb, Krhs ) ! Aggregation of particles 103 CALL p4z_rem ( kt, knt, Kbb, Kmm, Krhs ) ! remineralization terms of organic matter+scavenging of Fe 104 CALL p4z_poc ( kt, knt, Kbb, Kmm, Krhs ) ! Remineralization of organic particles 104 105 ! 105 106 IF( ln_ligand ) & 106 & CALL p4z_ligand( kt, knt )107 & CALL p4z_ligand( kt, knt, Kbb, Krhs ) 107 108 ! ! 108 109 IF(ln_ctl) THEN ! print mean trends (used for debugging) 109 110 WRITE(charout, FMT="('bio ')") 110 111 CALL prt_ctl_trc_info(charout) 111 CALL prt_ctl_trc(tab4d=tr a, mask=tmask, clinfo=ctrcnm)112 CALL prt_ctl_trc(tab4d=tr(:,:,:,:,Krhs), mask=tmask, clinfo=ctrcnm) 112 113 ENDIF 113 114 !
Note: See TracChangeset
for help on using the changeset viewer.