Ignore:
Timestamp:
2019-06-11T16:10:28+02:00 (18 months ago)
Author:
frrh
Message:

Merge changes from Met Office GMED ticket 450 to reduce unnecessary
text output from NEMO.
This output, which is typically not switchable, is rarely of interest
in normal (non-debugging) runs and simply redunantley consumes extra
file space.
Further, the presence of this text output has been shown to
significantly degrade performance of models which are run during
Met Office HPC RAID (disk) checks.
The new code introduces switches which are configurable via the
changes made in the associated Met Office MOCI ticket 399.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90

    r8447 r11101  
    255255      READ  ( numnam_cfg, nambias, IOSTAT = ios, ERR = 902 ) 
    256256902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambias in configuration namelist', lwp ) 
    257       IF(lwm) WRITE ( numond, nambias ) 
     257      IF(lwm .AND. nprint > 2) WRITE ( numond, nambias ) 
    258258 
    259259 
     
    320320          
    321321         WRITE(numout,*) '     time step is    = ',rdt,'you choose to write pcbias at nn_bias_itwrt  = ',nn_bias_itwrt,'and end of iau is rday/rdt=',rday/rdt  
     322         IF(lflush) call flush(numout) 
    322323      ENDIF 
    323324      IF( .NOT. ln_bias ) RETURN 
     
    561562         ENDWHERE    
    562563      ENDIF  
    563  
     564       
     565      IF(lwp .AND. lflush) call flush(numout) 
    564566 
    565567   END SUBROUTINE bias_init 
     
    895897            ENDIF 
    896898      ENDIF 
    897  
     899      IF(lwp .AND. lflush) call flush(numout) 
    898900   END SUBROUTINE tra_bias 
    899901 
     
    971973            &          rhd_pc, gru_pc , grv_pc  ) 
    972974      ENDIF 
     975 
     976      IF(lwp .AND. lflush) call flush(numout) 
    973977 
    974978   END SUBROUTINE dyn_bias 
     
    10051009      ENDIF 
    10061010      ! 
     1011      IF(lwp .AND. lflush) call flush(numout) 
     1012 
    10071013   END SUBROUTINE bias_opn 
    10081014 
Note: See TracChangeset for help on using the changeset viewer.