Changeset 7791 for branches/UKMO/dev_r5518_v3.6_asm_nemovar_community_maxchlinc/NEMOGCM/NEMO/OPA_SRC/ASM/asmlogchlbal_ersem.F90
- Timestamp:
- 2017-03-14T16:13:59+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_v3.6_asm_nemovar_community_maxchlinc/NEMOGCM/NEMO/OPA_SRC/ASM/asmlogchlbal_ersem.F90
r7731 r7791 30 30 31 31 SUBROUTINE asm_logchl_bal_ersem( ln_logchlpftinc, npfts, mld_choice_bgc, & 32 & logchl_bkginc, logchl_balinc )32 & rn_maxchlinc, logchl_bkginc, logchl_balinc ) 33 33 !!--------------------------------------------------------------------------- 34 34 !! *** ROUTINE asm_logchl_bal_ersem *** … … 49 49 INTEGER, INTENT(in ) :: npfts 50 50 INTEGER, INTENT(in ) :: mld_choice_bgc 51 REAL(wp), INTENT(in ) :: rn_maxchlinc 51 52 REAL(wp), INTENT(in ), DIMENSION(jpi,jpj,npfts) :: logchl_bkginc 52 53 REAL(wp), INTENT( out), DIMENSION(jpi,jpj,jpk,jptra) :: logchl_balinc … … 65 66 ! 2) Take 10^log10(analysis) to get analysis 66 67 ! 3) Subtract background from analysis to get chl incs 68 ! If rn_maxchlinc > 0 then cap total absolute chlorophyll increment at that value 67 69 ! 68 70 ! Only apply increments if all of Chl1-4 background values are > 0 … … 103 105 & trn(ji,jj,1,jp_fabm_m1+jp_fabm_chl4) 104 106 ENDIF 107 IF (rn_maxchlinc > 0.0) THEN 108 chl_inc = logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl1) + & 109 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl2) + & 110 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl3) + & 111 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl4) 112 IF ( ABS(chl_inc) > rn_maxchlinc ) THEN 113 chl_tot = ABS(chl_inc) / rn_maxchlinc 114 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl1) = logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl1) / chl_tot 115 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl2) = logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl2) / chl_tot 116 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl3) = logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl3) / chl_tot 117 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl4) = logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl4) / chl_tot 118 ENDIF 119 ENDIF 105 120 ENDIF 106 121 END DO … … 124 139 & trn(ji,jj,1,jp_fabm_m1+jp_fabm_chl3) + trn(ji,jj,1,jp_fabm_m1+jp_fabm_chl4) 125 140 chl_inc = 10**( LOG10( chl_tot ) + logchl_bkginc(ji,jj,1) ) - chl_tot 141 IF (rn_maxchlinc > 0.0) THEN 142 chl_inc = MAX( -1.0 * rn_maxchlinc, MIN( chl_inc, rn_maxchlinc ) ) 143 ENDIF 126 144 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl1) = chl_inc * trn(ji,jj,1,jp_fabm_m1+jp_fabm_chl1) / chl_tot 127 145 logchl_balinc(ji,jj,1,jp_fabm_m1+jp_fabm_chl2) = chl_inc * trn(ji,jj,1,jp_fabm_m1+jp_fabm_chl2) / chl_tot
Note: See TracChangeset
for help on using the changeset viewer.