Changeset 12394 for NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/SBC/sbccpl.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/SBC/sbccpl.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/SBC/sbccpl.F90

@@ -2348 +2348 @@
             CASE( 'yes' )  
 
+               write(numout,*) 'sbccpl: lh_ip(42,26,1) = ',lh_ip(42,26,1)
+
                ! Calculate how much meltpond is exposed (not under a frozen lid)
                lfrac_pnd(:,:,1:jpl) = 1.0
@@ -2359 +2361 @@
                ztmp3(:,:,1:jpl) =  a_ip_frac(:,:,1:jpl) * lfrac_pnd(:,:,1:jpl)
                ztmp4(:,:,1:jpl) =  h_ip(:,:,1:jpl)
+
+               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)
             CASE( 'no' )  
                ztmp3(:,:,:) = 0.0