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

NEMO/branches/UKMO/NEMO_4.0_add_pond_lids_prints/src/OCE/step.F90

@@ -93 +93 @@
       !
       IF( ln_timing )   CALL timing_start('stp')
+      write(numout,*)'stp 1: ub(3,4,1) = ', ub(3,4,1)
       !
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
@@ -110 +111 @@
       ! Update external forcing (tides, open boundaries, and surface boundary condition (including sea-ice)
       !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
+      write(numout,*)'stp 2: ub(3,4,1) = ', ub(3,4,1)
       IF( ln_tide    )   CALL sbc_tide( kstp )                   ! update tide potential
+      write(numout,*)'stp 3: ub(3,4,1) = ', ub(3,4,1)
       IF( ln_apr_dyn )   CALL sbc_apr ( kstp )                   ! atmospheric pressure (NB: call before bdy_dta which needs ssh_ib) 
+      write(numout,*)'stp 4: ub(3,4,1) = ', ub(3,4,1)
       IF( ln_bdy     )   CALL bdy_dta ( kstp, time_offset=+1 )   ! update dynamic & tracer data at open boundaries
+
+      write(numout,*)'stp 5: ub(3,4,1) = ', ub(3,4,1)
+
                          CALL sbc     ( kstp )                   ! Sea Boundary Condition (including sea-ice)