Changeset 13070 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

Timestamp:

2020-06-09T10:51:25+02:00 (4 years ago)

Author:

timgraham

Message:

Added control over printing of iceshelf mass information

File:

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

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

@@ -1432 +1432 @@
             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
@@ -1472 +1472 @@
             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