Changeset 6983 for branches/UKMO/dev_r5518_v3.4_asm_nemovar_community_bgc_ersem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2016-10-04T16:26:51+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_v3.4_asm_nemovar_community_bgc_ersem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r6661 r6983 61 61 USE asminc ! assimilation increments 62 62 USE asmbkg ! writing out state trajectory 63 USE asmbal ! writing out assimilation balancing increments 63 64 USE diaptr ! poleward transports (dia_ptr_init routine) 64 65 USE diadct ! sections transports (dia_dct_init routine) … … 158 159 IF( ln_dyninc ) CALL dyn_asm_inc( nit000 - 1 ) ! Dynamics 159 160 IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 ) ! SSH 161 IF( ln_logchltotinc .OR. ln_logchlpftinc ) CALL logchl_asm_inc( nit000 - 1 ) 160 162 ENDIF 161 163 ENDIF … … 177 179 178 180 IF( lk_diaobs ) CALL dia_obs_wri 181 ! 182 IF( ( lk_asminc ).AND.( ln_balwri ) ) CALL asm_bal_wri( nitend ) ! Output balancing increments 179 183 ! 180 184 IF( ln_icebergs ) CALL icb_end( nitend )
Note: See TracChangeset
for help on using the changeset viewer.