# Changes between Initial Version and Version 1 of Ticket #2434

Ignore:
Timestamp:
2020-06-09T09:14:26+02:00 (5 months ago)
Comment:

I agree. I addition, the following line should be deleted.

```   qns_tot(:,:) = qns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1)
```

Unmodified
Removed
Modified
• ## Ticket #2434 – Description

 initial {{{#!f CASE( 'oce and ice' ) ! the total flux is computed from ocean and ice fluxes zqns_tot(:,:) = ziceld(:,:) * frcv(jpr_qnsoce)%z3(:,:,1) IF ( TRIM(sn_rcv_qns%clcat) == 'yes' ) THEN DO jl=1,jpl zqns_tot(:,: ) = zqns_tot(:,:) + a_i(:,:,jl) * frcv(jpr_qnsice)%z3(:,:,jl) zqns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,jl) ENDDO ELSE qns_tot(:,:) = qns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) DO jl = 1, jpl zqns_tot(:,: ) = zqns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) zqns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,1) END DO ENDIF zqns_tot(:,:) = ziceld(:,:) * frcv(jpr_qnsoce)%z3(:,:,1) IF ( TRIM(sn_rcv_qns%clcat) == 'yes' ) THEN DO jl=1,jpl zqns_tot(:,: ) = zqns_tot(:,:) + a_i(:,:,jl) * frcv(jpr_qnsice)%z3(:,:,jl) zqns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,jl) END DO ELSE qns_tot(:,:) = qns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) DO jl = 1, jpl zqns_tot(:,: ) = zqns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) zqns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,1) END DO ENDIF }}} {{{#!f ELSE qns_tot(:,:) = qns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) zqns_tot(:,: ) = zqns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) DO jl = 1, jpl zqns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,1) END DO qns_tot(:,:) = qns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) zqns_tot(:,: ) = zqns_tot(:,:) + picefr(:,:) * frcv(jpr_qnsice)%z3(:,:,1) DO jl = 1, jpl zqns_ice(:,:,jl) = frcv(jpr_qnsice)%z3(:,:,1) END DO ENDIF }}}