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/SBC/sbccpl.F90

    r12382 r12394  
    23482348            CASE( 'yes' )   
    23492349 
     2350               write(numout,*) 'sbccpl: lh_ip(42,26,1) = ',lh_ip(42,26,1) 
     2351 
    23502352               ! Calculate how much meltpond is exposed (not under a frozen lid) 
    23512353               lfrac_pnd(:,:,1:jpl) = 1.0 
     
    23592361               ztmp3(:,:,1:jpl) =  a_ip_frac(:,:,1:jpl) * lfrac_pnd(:,:,1:jpl) 
    23602362               ztmp4(:,:,1:jpl) =  h_ip(:,:,1:jpl) 
     2363 
     2364               write(numout,*) 'sbccpl: lfrac_pnd(42,26,1), a_ip_frac(42,26,1), ztmp3(42,26,1) = ',lfrac_pnd(42,26,1), a_ip_frac(42,26,1), ztmp3(42,26,1) 
    23612365            CASE( 'no' )   
    23622366               ztmp3(:,:,:) = 0.0   
Note: See TracChangeset for help on using the changeset viewer.