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 15359 – NEMO

Changeset 15359


Ignore:
Timestamp:
2021-10-13T11:49:46+02:00 (10 months ago)
Author:
jenniewaters
Message:

Include code for the pcbias

Location:
NEMO/branches/UKMO/NEMO_4.0.4_FOAM_pcbias/src/OCE
Files:
2 added
3 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_FOAM_pcbias/src/OCE/nemogcm.F90

    r14075 r15359  
    497497      !                                      ! Assimilation increments 
    498498      IF( lk_asminc    )   CALL asm_inc_init    ! Initialize assimilation increments 
     499                           CALL    bias_init    ! Pressure correction bias 
    499500      ! 
    500501      IF(lwp) WRITE(numout,cform_aaa)           ! Flag AAAAAAA 
  • NEMO/branches/UKMO/NEMO_4.0.4_FOAM_pcbias/src/OCE/step.F90

    r14075 r15359  
    105105      IF( ln_crs         )   CALL iom_setkt( kstp - nit000 + 1, TRIM(cxios_context)//"_crs" )   ! tell IOM we are at time step kstp 
    106106 
     107      IF( ln_bias )          CALL bias_opn( kstp ) 
     108 
    107109      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    108110      ! Update external forcing (tides, open boundaries, and surface boundary condition (including sea-ice) 
     
    230232      IF( ln_trabbl  )   CALL tra_bbl       ( kstp )  ! advective (and/or diffusive) bottom boundary layer scheme 
    231233      IF( ln_tradmp  )   CALL tra_dmp       ( kstp )  ! internal damping trends 
     234      IF( ln_bias    )   CALL tra_bias      ( kstp )  ! tracer bias 
    232235      IF( ln_bdy     )   CALL bdy_tra_dmp   ( kstp )  ! bdy damping trends 
    233236#if defined key_agrif 
     
    262265!!jc2: dynnxt must be the latest call. e3t_b are indeed updated in that routine 
    263266                         CALL tra_nxt       ( kstp )  ! finalize (bcs) tracer fields at next time step and swap 
     267      IF( ln_bias    )   CALL dyn_bias      ( kstp ) 
    264268                         CALL dyn_nxt       ( kstp )  ! finalize (bcs) velocities at next time step and swap (always called after tra_nxt) 
    265269                         CALL ssh_swp       ( kstp )  ! swap of sea surface height 
     
    297301 
    298302      IF( ln_diaobs  )   CALL dia_obs      ( kstp )      ! obs-minus-model (assimilation) diagnostics (call after dynamics update) 
     303      IF( lrst_bias )    CALL bias_wrt     ( kstp )      ! write bias fields 
    299304 
    300305      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
  • NEMO/branches/UKMO/NEMO_4.0.4_FOAM_pcbias/src/OCE/step_oce.F90

    r14075 r15359  
    8888 
    8989   USE asminc          ! assimilation increments      (tra_asm_inc routine) 
    90    !                                                   (dyn_asm_inc routine) 
     90                       !                              (dyn_asm_inc routine) 
     91   USE biaspar         ! bias param 
     92   USE bias            ! bias routines                    (tra_bias routine 
     93                       !                                  (dyn_bias routine) 
    9194   USE asmbkg 
    9295   USE stpctl          ! time stepping control            (stp_ctl routine) 
Note: See TracChangeset for help on using the changeset viewer.