New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 7093 for branches/UKMO/dev_r5518_pcbias_ipc/NEMOGCM/NEMO/OPA_SRC/ASM/bias.F90 – NEMO

Ignore:
Timestamp:
2016-10-25T17:06:04+02:00 (7 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.