Changeset 12377 for NEMO/trunk/src/TOP/PISCES/P4Z/p4zligand.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/TOP/PISCES/P4Z/p4zligand.F90
r12276 r12377 26 26 REAL(wp), PUBLIC :: prlgw !: Photochemical of weak ligand 27 27 28 !! * Substitutions 29 # include "do_loop_substitute.h90" 28 30 !!---------------------------------------------------------------------- 29 31 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 33 35 CONTAINS 34 36 35 SUBROUTINE p4z_ligand( kt, knt )37 SUBROUTINE p4z_ligand( kt, knt, Kbb, Krhs ) 36 38 !!--------------------------------------------------------------------- 37 39 !! *** ROUTINE p4z_ligand *** … … 39 41 !! ** Purpose : Compute remineralization/scavenging of organic ligands 40 42 !!--------------------------------------------------------------------- 41 INTEGER, INTENT(in) :: kt, knt ! ocean time step 43 INTEGER, INTENT(in) :: kt, knt ! ocean time step 44 INTEGER, INTENT(in) :: Kbb, Krhs ! time level indices 42 45 ! 43 46 INTEGER :: ji, jj, jk … … 49 52 IF( ln_timing ) CALL timing_start('p4z_ligand') 50 53 ! 51 DO jk = 1, jpkm1 52 DO jj = 1, jpj 53 DO ji = 1, jpi 54 ! 55 ! ------------------------------------------------------------------ 56 ! Remineralization of iron ligands 57 ! ------------------------------------------------------------------ 58 ! production from remineralisation of organic matter 59 zlgwp = orem(ji,jj,jk) * rlig 60 ! decay of weak ligand 61 ! This is based on the idea that as LGW is lower 62 ! there is a larger fraction of refractory OM 63 zlgwr = max( rlgs , rlgw * exp( -2 * (trb(ji,jj,jk,jplgw)*1e9) ) ) ! years 64 zlgwr = 1. / zlgwr * tgfunc(ji,jj,jk) * ( xstep / nyear_len(1) ) * blim(ji,jj,jk) * trb(ji,jj,jk,jplgw) 65 ! photochem loss of weak ligand 66 zlgwpr = prlgw * xstep * etot(ji,jj,jk) * trb(ji,jj,jk,jplgw) * (1. - fr_i(ji,jj)) 67 tra(ji,jj,jk,jplgw) = tra(ji,jj,jk,jplgw) + zlgwp - zlgwr - zlgwpr 68 zligrem(ji,jj,jk) = zlgwr 69 zligpr(ji,jj,jk) = zlgwpr 70 zligprod(ji,jj,jk) = zlgwp 71 ! 72 END DO 73 END DO 74 END DO 54 DO_3D_11_11( 1, jpkm1 ) 55 ! 56 ! ------------------------------------------------------------------ 57 ! Remineralization of iron ligands 58 ! ------------------------------------------------------------------ 59 ! production from remineralisation of organic matter 60 zlgwp = orem(ji,jj,jk) * rlig 61 ! decay of weak ligand 62 ! This is based on the idea that as LGW is lower 63 ! there is a larger fraction of refractory OM 64 zlgwr = max( rlgs , rlgw * exp( -2 * (tr(ji,jj,jk,jplgw,Kbb)*1e9) ) ) ! years 65 zlgwr = 1. / zlgwr * tgfunc(ji,jj,jk) * ( xstep / nyear_len(1) ) * blim(ji,jj,jk) * tr(ji,jj,jk,jplgw,Kbb) 66 ! photochem loss of weak ligand 67 zlgwpr = prlgw * xstep * etot(ji,jj,jk) * tr(ji,jj,jk,jplgw,Kbb) * (1. - fr_i(ji,jj)) 68 tr(ji,jj,jk,jplgw,Krhs) = tr(ji,jj,jk,jplgw,Krhs) + zlgwp - zlgwr - zlgwpr 69 zligrem(ji,jj,jk) = zlgwr 70 zligpr(ji,jj,jk) = zlgwpr 71 zligprod(ji,jj,jk) = zlgwp 72 ! 73 END_3D 75 74 ! 76 75 ! Output of some diagnostics variables … … 88 87 ENDIF 89 88 ! 90 IF( ln_ctl) THEN ! print mean trends (used for debugging)89 IF(sn_cfctl%l_prttrc) THEN ! print mean trends (used for debugging) 91 90 WRITE(charout, FMT="('ligand1')") 92 91 CALL prt_ctl_trc_info(charout) 93 CALL prt_ctl_trc(tab4d=tr a, mask=tmask, clinfo=ctrcnm)92 CALL prt_ctl_trc(tab4d=tr(:,:,:,:,Krhs), mask=tmask, clinfo=ctrcnm) 94 93 ENDIF 95 94 ! … … 119 118 WRITE(numout,*) '~~~~~~~~~~~~~~~' 120 119 ENDIF 121 122 REWIND( numnatp_ref )123 120 READ ( numnatp_ref, nampislig, IOSTAT = ios, ERR = 901) 124 121 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislig in reference namelist' ) 125 126 REWIND( numnatp_cfg )127 122 READ ( numnatp_cfg, nampislig, IOSTAT = ios, ERR = 902 ) 128 123 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nampislig in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.