Changeset 11510 for NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyice.F90

Timestamp:

2019-09-06T18:08:57+02:00 (5 years ago)

Author:

clem

Message:

add ponds for bdy

File:

• NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyice.F90 (modified) (1 diff)

NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/BDY/bdyice.F90

@@ -225 +225 @@
                   !
                CASE( 0 )   ! velocity is inward
-                  oa_i(ji,jj,jl) = rice_age(jbdy) * a_i(ji,jj,jl)   ! age
-                  a_ip(ji,jj,jl) = 0._wp                            ! pond concentration
-                  v_ip(ji,jj,jl) = 0._wp                            ! pond volume
+                  oa_i(ji,jj,jl) = rice_age(jbdy) * a_i(ji,jj,jl)     ! age
+                  IF( ln_pnd_CST .OR. ln_pnd_H12 ) THEN
+                     a_ip(ji,jj,jl) = rice_apnd(jbdy)                 ! pond concentration
+                     v_ip(ji,jj,jl) = rice_apnd(jbdy)*rice_hpnd(jbdy) ! pond volume
+                  ENDIF
                CASE( 1 )   ! velocity is outward
-                  oa_i(ji,jj,jl) = oa_i(ib,jb,jl) ! age
-                  a_ip(ji,jj,jl) = a_ip(ib,jb,jl) ! pond concentration
-                  v_ip(ji,jj,jl) = v_ip(ib,jb,jl) ! pond volume
+                  oa_i(ji,jj,jl) = oa_i(ib,jb,jl)                     ! age
+                  IF( ln_pnd_CST .OR. ln_pnd_H12 ) THEN
+                     a_ip(ji,jj,jl) = a_ip(ib,jb,jl)                  ! pond concentration
+                     v_ip(ji,jj,jl) = v_ip(ib,jb,jl)                  ! pond volume
+                  ENDIF
                END SELECT
                !