Ignore:
Timestamp:
2017-08-09T14:56:31+02:00 (3 years ago)
Author:
dford
Message:

Add logchl assimilation, with nitrogen balancing for HadOCC.

File:
1 edited

Legend:

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

    r8400 r8428  
    6161   USE asminc          ! assimilation increments      
    6262   USE asmbkg          ! writing out state trajectory 
     63   USE asmbal          ! writing out assimilation balancing increments 
    6364   USE diaptr          ! poleward transports           (dia_ptr_init routine) 
    6465   USE diadct          ! sections transports           (dia_dct_init routine) 
     
    160161                IF( ln_dyninc ) CALL dyn_asm_inc( nit000 - 1 )    ! Dynamics 
    161162                IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 )    ! SSH 
     163                IF( ln_logchlinc ) CALL logchl_asm_inc( nit000 - 1 ) 
    162164             ENDIF 
    163165          ENDIF 
     
    191193 
    192194      IF( lk_diaobs   )   CALL dia_obs_wri 
     195      ! 
     196      IF( ( lk_asminc ).AND.( ln_balwri ) ) CALL asm_bal_wri( nitend )  ! Output balancing increments 
    193197      ! 
    194198      IF( ln_icebergs )   CALL icb_end( nitend ) 
Note: See TracChangeset for help on using the changeset viewer.