Changeset 7093


Ignore:
Timestamp:
2016-10-25T17:06:04+02:00 (4 years ago)
Author:
isabella
Message:

writing outputs

File:
1 edited

Legend:

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

    r7092 r7093  
    940940         CALL iom_rstput( nn_bias_itwrt, nn_bias_itwrt, numbias_tot, 'sbias_p'   , sbias_p_out )          
    941941      ENDIF 
     942 
     943      IF ( ln_incpc ) THEN 
     944         CALL iom_rstput( nn_bias_itwrt, nn_bias_itwrt, numbias_tot, 'tbias_asm_stscale' , tbias_asm_stscale )    
     945         CALL iom_rstput( nn_bias_itwrt, nn_bias_itwrt, numbias_tot, 'sbias_asm_stscale' , tbias_asm_stscale )    
     946      ENDIF 
    942947       
    943948      IF( kt == nitend ) THEN 
Note: See TracChangeset for help on using the changeset viewer.