Changeset 14005 for NEMO/trunk/src/ICE/icedyn_rdgrft.F90
- Timestamp:
- 2020-12-02T15:16:36+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/ICE/icedyn_rdgrft.F90
r13999 r14005 578 578 oirft2(ji) = oa_i_2d(ji,jl1) * afrft * hi_hrft 579 579 580 IF ( ln_pnd_LEV ) THEN580 IF ( ln_pnd_LEV .OR. ln_pnd_TOPO ) THEN 581 581 aprdg1 = a_ip_2d(ji,jl1) * afrdg 582 582 aprdg2(ji) = a_ip_2d(ji,jl1) * afrdg * hi_hrdg(ji,jl1) … … 615 615 sv_i_2d(ji,jl1) = sv_i_2d(ji,jl1) - sirdg1 - sirft(ji) 616 616 oa_i_2d(ji,jl1) = oa_i_2d(ji,jl1) - oirdg1 - oirft1 617 IF ( ln_pnd_LEV ) THEN617 IF ( ln_pnd_LEV .OR. ln_pnd_TOPO ) THEN 618 618 a_ip_2d(ji,jl1) = a_ip_2d(ji,jl1) - aprdg1 - aprft1 619 619 v_ip_2d(ji,jl1) = v_ip_2d(ji,jl1) - vprdg(ji) - vprft(ji) … … 712 712 v_s_2d (ji,jl2) = v_s_2d (ji,jl2) + ( vsrdg (ji) * rn_fsnwrdg * fvol(ji) + & 713 713 & vsrft (ji) * rn_fsnwrft * zswitch(ji) ) 714 IF ( ln_pnd_LEV ) THEN714 IF ( ln_pnd_LEV .OR. ln_pnd_TOPO ) THEN 715 715 v_ip_2d (ji,jl2) = v_ip_2d(ji,jl2) + ( vprdg (ji) * rn_fpndrdg * fvol (ji) & 716 716 & + vprft (ji) * rn_fpndrft * zswitch(ji) )
Note: See TracChangeset
for help on using the changeset viewer.