Changeset 14987 for branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/step.F90

Timestamp:

2021-06-14T14:14:01+02:00 (3 years ago)

Author:

jroberts

Message:

Update to write pcbias files at the time-steps defined for restart writing, and updates to pc bias scheme detailed in ​https://code.metoffice.gov.uk/trac/utils/ticket/262

File:

• branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/step.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_starthour_obsoper/NEMOGCM/NEMO/OPA_SRC/step.F90

@@ -351 +351 @@
       IF( lk_vvl           )   CALL dom_vvl_sf_swp( kstp )  ! swap of vertical scale factors
       !
+
+      ! Moved bias _wrt to before rst_write as used restart parameters for nn_stocklist option that are changed by rst_wrt   
+      IF( lrst_bias )          CALL bias_wrt     ( kstp )
+
       IF( lrst_oce         )   CALL rst_write( kstp )       ! write output ocean restart file
       IF( ln_sto_eos       )   CALL sto_rst_write( kstp )   ! write restart file for stochastic parameters
@@ -383 +387 @@
       ENDIF
 
-
-      IF( lrst_bias )          CALL bias_wrt     ( kstp )
-
       !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
       ! Coupled mode