Changeset 12849


Ignore:
Timestamp:
2020-05-01T17:33:09+02:00 (7 months ago)
Author:
dancopsey
Message:

Do not output iceberg and icesheet info when nn_print is zero.

Location:
NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE/ICB/icbclv.F90

    r12675 r12849  
    7373        ! nn_coupled_iceshelf_fluxes uninitialised unless lk_oasis=true 
    7474        IF( nn_coupled_iceshelf_fluxes .gt. 0 ) THEN 
    75           ll_write = ((MOD( kt, sn_cfctl%ptimincr ) == 0) .OR. ( kt == nitend )) .AND. lwp 
     75          ll_write = ((MOD( kt, sn_cfctl%ptimincr ) == 0) .OR. ( kt == nitend )) .AND. lwp .AND. ((nn_print>0)) 
    7676          ! Adjust total calving rates so that sum of iceberg calving and iceshelf melting in the northern 
    7777          ! and southern hemispheres equals rate of increase of mass of greenland and antarctic ice sheets 
  • NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE/SBC/sbccpl.F90

    r12689 r12849  
    11981198      !!---------------------------------------------------------------------- 
    11991199      ! 
    1200       ll_wrtstp  = ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) 
     1200      ll_wrtstp  = (( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend )) .AND. (nn_print>0) 
    12011201      ! 
    12021202      IF( ln_mixcpl )   zmsk(:,:) = 1. - xcplmask(:,:,0) 
  • NEMO/branches/UKMO/NEMO_4.0.1_icesheet_and_river_coupling/src/OCE/SBC/sbcisf.F90

    r12675 r12849  
    9999      !!--------------------------------------------------------------------- 
    100100      ! 
    101       ll_wrtstp  = ( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend ) 
     101      ll_wrtstp  = (( MOD( kt, sn_cfctl%ptimincr ) == 0 ) .OR. ( kt == nitend )) .AND. (nn_print>0) 
    102102      IF( MOD( kt-1, nn_fsbc) == 0 ) THEN    ! compute salt and heat flux 
    103103         ! 
Note: See TracChangeset for help on using the changeset viewer.