Changeset 12475 for NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/SBC/sbcmod.F90

Timestamp:

2020-02-27T12:27:50+01:00 (4 years ago)

Author:

dancopsey

Message:

• Add more print statements.
• Move away from using snow to ice diagnostics and use a new snow to pond one instead.

File:

• NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/SBC/sbcmod.F90 (modified) (3 diffs)

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

@@ -407 +407 @@
       !                                            !        forcing field computation         !
       !                                            ! ---------------------------------------- !
+
+      write(numout,*)'sbcmod 1: ssu_m(3,4), ub(3,4,1) = ', ssu_m(3,4), ' ', ub(3,4,1)
+
       !
       ll_sas = nn_components == jp_iam_sas               ! component flags
@@ -413 +416 @@
       IF( .NOT.ll_sas )   CALL sbc_ssm ( kt )            ! mean ocean sea surface variables (sst_m, sss_m, ssu_m, ssv_m)
       IF( ln_wave     )   CALL sbc_wave( kt )            ! surface waves
+
+      write(numout,*)'sbcmod 2: ssu_m(3,4), ub(3,4,1) = ', ssu_m(3,4), ' ', ub(3,4,1)
 
       !
@@ -436 +441 @@
       !                                            !==  Misc. Options  ==!
       !
+      write(numout,*)'sbcmod 3: ssu_m(3,4), ub(3,4,1) = ', ssu_m(3,4), ' ', ub(3,4,1)
+
       SELECT CASE( nn_ice )                                       ! Update heat and freshwater fluxes over sea-ice areas
       CASE(  1 )   ;         CALL sbc_ice_if   ( kt )             ! Ice-cover climatology ("Ice-if" model)