- Timestamp:
- 2020-10-09T12:35:11+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate/NEMOGCM/NEMO/OPA_SRC/step.F90
r11277 r13576 96 96 CALL iom_init( cxios_context ) ! iom_put initialization 97 97 IF( ln_crs ) CALL iom_init( TRIM(cxios_context)//"_crs" ) ! initialize context for coarse grid 98 99 #if defined key_fabm 100 ! FABM can only finish initialising once IOM has 101 IF ( lk_fabm ) CALL nemo_fabm_start 102 #endif 103 104 ! First call to dia_* and asm_inc_init must wait for FABM to be initialised 105 ! (if running with FABM, but no harm moving the calls to here from nemo_init either way) 106 CALL dia_obs( nit000 - 1 ) ! Observation operator for restart 107 108 IF( lk_asminc ) THEN 109 #if defined key_shelf 110 CALL zdf_mxl_tref() ! Initialization of hmld_tref 111 #endif 112 CALL asm_inc_init ! Initialize assimilation increments 113 IF( ln_bkgwri ) CALL asm_bkg_wri( nit000 - 1 ) ! Output background fields 114 IF( ln_asmdin ) THEN ! Direct initialization 115 IF( ln_trainc ) CALL tra_asm_inc( nit000 - 1 ) ! Tracers 116 IF( ln_dyninc ) CALL dyn_asm_inc( nit000 - 1 ) ! Dynamics 117 IF( ln_sshinc ) CALL ssh_asm_inc( nit000 - 1 ) ! SSH 118 IF( lk_bgcinc ) CALL bgc_asm_inc( nit000 - 1 ) ! BGC 119 ENDIF 120 ENDIF 121 122 CALL dia_tmb_init ! TMB outputs 123 CALL dia_25h_init ! 25h mean outputs 124 CALL dia_diaopfoam_init ! FOAM operational output 98 125 ENDIF 99 126
Note: See TracChangeset
for help on using the changeset viewer.