Changeset 8144
- Timestamp:
- 2017-06-06T16:54:43+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/CO6_KD490_amm7_oper_fabm_chlrelax/NEMOGCM/NEMO/TOP_SRC/TRP/trcsbcssr.F90
r8141 r8144 83 83 & ( sf_chldmp(1)%fnow(ji,jj,1) < 100.0 ) .AND. & 84 84 & ( zchl(ji,jj) > 0.0 ) ) THEN 85 WRITE(numout,'(A,3I,3F)') 'ssr, nproc, ji, jj, zchl, sf, ztra = ', nproc, ji, jj, zchl(ji,jj), sf_chldmp(1)%fnow(ji,jj,1), ztra(ji,jj)86 85 zpft = ( trb(ji,jj,1,jp_fabm_m1+jp_fabm_chl1) / zchl(ji,jj) ) * ztra(ji,jj) 87 86 tra(ji,jj,1,jp_fabm_m1+jp_fabm_chl1) = tra(ji,jj,1,jp_fabm_m1+jp_fabm_chl1) + zpft 88 WRITE(numout,'(A,3I,2F)') 'ssr, nproc, ji, jj, trb1, zpft1 = ', nproc, ji, jj, trb(ji,jj,1,jp_fabm_m1+jp_fabm_chl1), zpft89 87 IF( nn_chldmp == 2 ) THEN 90 88 DO jk = 2, jpkm1 … … 97 95 zpft = ( trb(ji,jj,1,jp_fabm_m1+jp_fabm_chl2) / zchl(ji,jj) ) * ztra(ji,jj) 98 96 tra(ji,jj,1,jp_fabm_m1+jp_fabm_chl2) = tra(ji,jj,1,jp_fabm_m1+jp_fabm_chl2) + zpft 99 WRITE(numout,'(A,3I,2F)') 'ssr, nproc, ji, jj, trb2, zpft2 = ', nproc, ji, jj, trb(ji,jj,1,jp_fabm_m1+jp_fabm_chl2), zpft100 97 IF( nn_chldmp == 2 ) THEN 101 98 DO jk = 2, jpkm1 … … 108 105 zpft = ( trb(ji,jj,1,jp_fabm_m1+jp_fabm_chl3) / zchl(ji,jj) ) * ztra(ji,jj) 109 106 tra(ji,jj,1,jp_fabm_m1+jp_fabm_chl3) = tra(ji,jj,1,jp_fabm_m1+jp_fabm_chl3) + zpft 110 WRITE(numout,'(A,3I,2F)') 'ssr, nproc, ji, jj, trb3, zpft3 = ', nproc, ji, jj, trb(ji,jj,1,jp_fabm_m1+jp_fabm_chl3), zpft111 107 IF( nn_chldmp == 2 ) THEN 112 108 DO jk = 2, jpkm1 … … 119 115 zpft = ( trb(ji,jj,1,jp_fabm_m1+jp_fabm_chl4) / zchl(ji,jj) ) * ztra(ji,jj) 120 116 tra(ji,jj,1,jp_fabm_m1+jp_fabm_chl4) = tra(ji,jj,1,jp_fabm_m1+jp_fabm_chl4) + zpft 121 WRITE(numout,'(A,3I,2F)') 'ssr, nproc, ji, jj, trb4, zpft4 = ', nproc, ji, jj, trb(ji,jj,1,jp_fabm_m1+jp_fabm_chl4), zpft122 117 IF( nn_chldmp == 2 ) THEN 123 118 DO jk = 2, jpkm1
Note: See TracChangeset
for help on using the changeset viewer.