Changeset 15137 for branches/UKMO/ReduceIcesheetLogs/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2021-07-23T12:10:54+02:00 (3 years ago)

Author:

pdavis

Message:

Added the changes to reduce the ice-sheet log output.

File:

• branches/UKMO/ReduceIcesheetLogs/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90 (modified) (2 diffs)

branches/UKMO/ReduceIcesheetLogs/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

@@ -1493 +1493 @@
             greenland_icesheet_timelapsed = 0.0_wp       
          ENDIF
-         IF(lwp .AND. ll_wrtstp) THEN
+         IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf ) THEN
             WRITE(numout,*) 'Greenland icesheet mass (kg) read in is ', zgreenland_icesheet_mass_in
             WRITE(numout,*) 'Greenland icesheet mass (kg) used is    ', greenland_icesheet_mass
@@ -1543 +1543 @@
             antarctica_icesheet_timelapsed = 0.0_wp       
          ENDIF
-         IF(lwp .AND. ll_wrtstp) THEN
+         IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf ) THEN
             WRITE(numout,*) 'Antarctica icesheet mass (kg) read in is ', zantarctica_icesheet_mass_in
             WRITE(numout,*) 'Antarctica icesheet mass (kg) used is    ', antarctica_icesheet_mass