- Timestamp:
- 2020-06-09T10:51:25+02:00 (4 years ago)
- Location:
- branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/CONFIG/SHARED/namelist_ref
r12555 r13070 1089 1089 sn_cfctl%l_oceout = .FALSE. ! that all areas report. 1090 1090 sn_cfctl%l_layout = .FALSE. ! 1091 sn_cfctl%l_sbcisf = .FALSE. ! 1091 1092 sn_cfctl%l_mppout = .FALSE. ! 1092 1093 sn_cfctl%l_mpptop = .FALSE. ! -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/ICB/icbclv.F90
r12556 r13070 69 69 ! nn_coupled_iceshelf_fluxes uninitialised unless lk_oasis=true 70 70 IF( nn_coupled_iceshelf_fluxes .gt. 0 ) THEN 71 ll_write = ((MOD( kt, sn_cfctl%ptimincr ) == 0) .OR. ( kt == nitend )) .AND. lwp 71 ll_write = ((MOD( kt, sn_cfctl%ptimincr ) == 0) .OR. ( kt == nitend )) .AND. lwp .AND. sn_cfctl%l_sbcisf 72 72 ! Adjust total calving rates so that sum of iceberg calving and iceshelf melting in the northern 73 73 ! and southern hemispheres equals rate of increase of mass of greenland and antarctic ice sheets -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r12555 r13070 109 109 LOGICAL :: l_trcstat = .FALSE. !: Produce/do not produce tracer.stat file (T/F) 110 110 LOGICAL :: l_oceout = .FALSE. !: Produce all ocean.outputs (T) or just one (F) 111 LOGICAL :: l_sbcisf = .FALSE. !: Print Ice sheet information to ocean.output 111 112 LOGICAL :: l_layout = .FALSE. !: Produce all layout.dat files (T) or just one (F) 112 113 LOGICAL :: l_mppout = .FALSE. !: Produce/do not produce mpp.output_XXXX files (T/F) -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r12555 r13070 1432 1432 greenland_icesheet_timelapsed = 0.0_wp 1433 1433 ENDIF 1434 IF(lwp .AND. ll_wrtstp ) THEN1434 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf ) THEN 1435 1435 WRITE(numout,*) 'Greenland icesheet mass (kg) read in is ', zgreenland_icesheet_mass_in 1436 1436 WRITE(numout,*) 'Greenland icesheet mass (kg) used is ', greenland_icesheet_mass … … 1472 1472 antarctica_icesheet_timelapsed = 0.0_wp 1473 1473 ENDIF 1474 IF(lwp .AND. ll_wrtstp ) THEN1474 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf ) THEN 1475 1475 WRITE(numout,*) 'Antarctica icesheet mass (kg) read in is ', zantarctica_icesheet_mass_in 1476 1476 WRITE(numout,*) 'Antarctica icesheet mass (kg) used is ', antarctica_icesheet_mass -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90
r12555 r13070 274 274 275 275 ! check 276 IF(lwp .AND. ll_wrtstp ) WRITE(numout, *) 'Greenland iceshelf melting climatology (kg/s) : ',zgreenland_fwfisf_sum276 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf) WRITE(numout, *) 'Greenland iceshelf melting climatology (kg/s) : ',zgreenland_fwfisf_sum 277 277 278 278 zgreenland_fwfisf_sum = glob_sum( fwfisf(:,:) * e1t(:,:) * e2t(:,:) * greenland_icesheet_mask(:,:) ) 279 279 280 IF(lwp .AND. ll_wrtstp ) WRITE(numout, *) 'Greenland iceshelf melting adjusted value (kg/s) : ',zgreenland_fwfisf_sum280 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf) WRITE(numout, *) 'Greenland iceshelf melting adjusted value (kg/s) : ',zgreenland_fwfisf_sum 281 281 282 282 zantarctica_fwfisf_sum = glob_sum( fwfisf(:,:) * e1t(:,:) * e2t(:,:) * antarctica_icesheet_mask(:,:) ) … … 288 288 289 289 ! check 290 IF(lwp .AND. ll_wrtstp ) WRITE(numout, *) 'Antarctica iceshelf melting climatology (kg/s) : ',zantarctica_fwfisf_sum290 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf) WRITE(numout, *) 'Antarctica iceshelf melting climatology (kg/s) : ',zantarctica_fwfisf_sum 291 291 292 292 zantarctica_fwfisf_sum = glob_sum( fwfisf(:,:) * e1t(:,:) * e2t(:,:) * antarctica_icesheet_mask(:,:) ) 293 293 294 IF(lwp .AND. ll_wrtstp ) WRITE(numout, *) 'Antarctica iceshelf melting adjusted value (kg/s) : ',zantarctica_fwfisf_sum294 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf) WRITE(numout, *) 'Antarctica iceshelf melting adjusted value (kg/s) : ',zantarctica_fwfisf_sum 295 295 296 296 ENDIF … … 323 323 324 324 ! check 325 IF(lwp .AND. ll_wrtstp ) WRITE(numout, *) 'Greenland iceshelf melting climatology (kg/s) : ',zgreenland_fwfisf_sum325 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf) WRITE(numout, *) 'Greenland iceshelf melting climatology (kg/s) : ',zgreenland_fwfisf_sum 326 326 327 327 zgreenland_fwfisf_sum = glob_sum( fwfisf(:,:) * e1t(:,:) * e2t(:,:) * greenland_icesheet_mask(:,:) ) 328 328 329 IF(lwp .AND. ll_wrtstp ) WRITE(numout, *) 'Greenland iceshelf melting adjusted value (kg/s) : ',zgreenland_fwfisf_sum329 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf) WRITE(numout, *) 'Greenland iceshelf melting adjusted value (kg/s) : ',zgreenland_fwfisf_sum 330 330 331 331 zantarctica_fwfisf_sum = glob_sum( fwfisf(:,:) * e1t(:,:) * e2t(:,:) * antarctica_icesheet_mask(:,:) ) … … 337 337 338 338 ! check 339 IF(lwp .AND. ll_wrtstp ) WRITE(numout, *) 'Antarctica iceshelf melting climatology (kg/s) : ',zantarctica_fwfisf_sum339 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf) WRITE(numout, *) 'Antarctica iceshelf melting climatology (kg/s) : ',zantarctica_fwfisf_sum 340 340 341 341 zantarctica_fwfisf_sum = glob_sum( fwfisf(:,:) * e1t(:,:) * e2t(:,:) * antarctica_icesheet_mask(:,:) ) 342 342 343 IF(lwp .AND. ll_wrtstp ) WRITE(numout, *) 'Antarctica iceshelf melting adjusted value (kg/s) : ',zantarctica_fwfisf_sum343 IF(lwp .AND. ll_wrtstp .AND. sn_cfctl%l_sbcisf) WRITE(numout, *) 'Antarctica iceshelf melting adjusted value (kg/s) : ',zantarctica_fwfisf_sum 344 344 345 345 ENDIF -
branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r12555 r13070 536 536 WRITE(numout,*) ' sn_cfctl%l_trcstat = ', sn_cfctl%l_trcstat 537 537 WRITE(numout,*) ' sn_cfctl%l_oceout = ', sn_cfctl%l_oceout 538 WRITE(numout,*) ' sn_cfctl%l_sbcisf = ', sn_cfctl%l_sbcisf 538 539 WRITE(numout,*) ' sn_cfctl%l_layout = ', sn_cfctl%l_layout 539 540 WRITE(numout,*) ' sn_cfctl%l_mppout = ', sn_cfctl%l_mppout … … 738 739 sn_cfctl%l_trcstat = setto 739 740 ENDIF 741 sn_cfctl%l_sbcisf = setto 740 742 sn_cfctl%l_oceout = setto 741 743 sn_cfctl%l_layout = setto
Note: See TracChangeset
for help on using the changeset viewer.