Changeset 12394 for NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/BDY/bdyice.F90

Timestamp:

2020-02-18T10:44:02+01:00 (4 years ago)

Author:

dancopsey

Message:

Fix compile and XIOS errors.

File:

• NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/BDY/bdyice.F90 (modified) (4 diffs)

NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/BDY/bdyice.F90

@@ -172 +172 @@
                   a_ip(ji,jj,  jl) = 0._wp                            ! pond concentration
                   v_ip(ji,jj,  jl) = 0._wp                            ! pond volume
+                  lh_ip(ji,jj, jl) = 0._wp                            ! pond lid thickness
                   t_su(ji,jj,  jl) = rn_ice_tem(jbdy)                 ! temperature surface
                   t_s (ji,jj,:,jl) = rn_ice_tem(jbdy)                 ! temperature snw
@@ -183 +184 @@
                   a_ip(ji,jj,  jl) = a_ip(ib,jb,  jl) ! pond concentration
                   v_ip(ji,jj,  jl) = v_ip(ib,jb,  jl) ! pond volume
+                  lh_ip(ji,jj, jl) = lh_ip(ib,jb, jl) ! pond lid thickness
                   t_su(ji,jj,  jl) = t_su(ib,jb,  jl) ! temperature surface
                   t_s (ji,jj,:,jl) = t_s (ib,jb,:,jl) ! temperature snw
@@ -222 +224 @@
                a_ip(ji,jj,  jl) = 0._wp
                v_ip(ji,jj,  jl) = 0._wp
+               lh_ip(ji,jj, jl) = 0._wp
                t_su(ji,jj,  jl) = rt0
                t_s (ji,jj,:,jl) = rt0
@@ -253 +256 @@
       CALL lbc_bdy_lnk( 'bdyice', a_ip(:,:,:)  , 'T', 1., jbdy )
       CALL lbc_bdy_lnk( 'bdyice', v_ip(:,:,:)  , 'T', 1., jbdy )
+      CALL lbc_bdy_lnk( 'bdyice', lh_ip(:,:,:) , 'T', 1., jbdy )
       CALL lbc_bdy_lnk( 'bdyice', s_i (:,:,:)  , 'T', 1., jbdy )
       CALL lbc_bdy_lnk( 'bdyice', t_su(:,:,:)  , 'T', 1., jbdy )