Ignore:
Timestamp:
2020-02-18T10:44:02+01:00 (14 months ago)
Author:
dancopsey
Message:

Fix compile and XIOS errors.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/BDY/bdyice.F90

    r11081 r12394  
    172172                  a_ip(ji,jj,  jl) = 0._wp                            ! pond concentration 
    173173                  v_ip(ji,jj,  jl) = 0._wp                            ! pond volume 
     174                  lh_ip(ji,jj, jl) = 0._wp                            ! pond lid thickness 
    174175                  t_su(ji,jj,  jl) = rn_ice_tem(jbdy)                 ! temperature surface 
    175176                  t_s (ji,jj,:,jl) = rn_ice_tem(jbdy)                 ! temperature snw 
     
    183184                  a_ip(ji,jj,  jl) = a_ip(ib,jb,  jl) ! pond concentration 
    184185                  v_ip(ji,jj,  jl) = v_ip(ib,jb,  jl) ! pond volume 
     186                  lh_ip(ji,jj, jl) = lh_ip(ib,jb, jl) ! pond lid thickness 
    185187                  t_su(ji,jj,  jl) = t_su(ib,jb,  jl) ! temperature surface 
    186188                  t_s (ji,jj,:,jl) = t_s (ib,jb,:,jl) ! temperature snw 
     
    222224               a_ip(ji,jj,  jl) = 0._wp 
    223225               v_ip(ji,jj,  jl) = 0._wp 
     226               lh_ip(ji,jj, jl) = 0._wp 
    224227               t_su(ji,jj,  jl) = rt0 
    225228               t_s (ji,jj,:,jl) = rt0 
     
    253256      CALL lbc_bdy_lnk( 'bdyice', a_ip(:,:,:)  , 'T', 1., jbdy ) 
    254257      CALL lbc_bdy_lnk( 'bdyice', v_ip(:,:,:)  , 'T', 1., jbdy ) 
     258      CALL lbc_bdy_lnk( 'bdyice', lh_ip(:,:,:) , 'T', 1., jbdy ) 
    255259      CALL lbc_bdy_lnk( 'bdyice', s_i (:,:,:)  , 'T', 1., jbdy ) 
    256260      CALL lbc_bdy_lnk( 'bdyice', t_su(:,:,:)  , 'T', 1., jbdy ) 
Note: See TracChangeset for help on using the changeset viewer.