Ignore:
Timestamp:
2019-01-24T16:48:24+01:00 (19 months ago)
Author:
dford
Message:

Merge in functionality added to GO6 at r10149.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/AMM15_v3_6_STABLE_package_collate_BGC_DA/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r9181 r10574  
    6161   USE asminc          ! assimilation increments      
    6262   USE asmbkg          ! writing out state trajectory 
     63   USE asmbgc          ! biogeochemical assimilation increments 
    6364   USE diaptr          ! poleward transports           (dia_ptr_init routine) 
    6465   USE diadct          ! sections transports           (dia_dct_init routine) 
     
    162163                IF( ln_dyninc ) CALL dyn_asm_inc( nit000 - 1 )    ! Dynamics 
    163164                IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 )    ! SSH 
     165                IF( lk_bgcinc ) CALL bgc_asm_inc( nit000 - 1 )    ! BGC 
    164166             ENDIF 
    165167          ENDIF 
     
    181183 
    182184      IF( lk_diaobs   )   CALL dia_obs_wri 
     185      ! 
     186      IF( ( lk_asminc ).AND.( ln_balwri ) ) CALL asm_bgc_bal_wri( nitend )  ! Output balancing increments 
    183187      ! 
    184188      IF( ln_icebergs )   CALL icb_end( nitend ) 
Note: See TracChangeset for help on using the changeset viewer.