Changeset 13462 for branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/step.F90
- Timestamp:
- 2020-09-14T16:59:38+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/AMM15_v3_6_STABLE_package_collate_utils366_fabmv1/NEMOGCM/NEMO/OPA_SRC/step.F90
r13453 r13462 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 IF ( lk_fabm ) CALL nemo_fabm_start 99 CALL dia_obs( nit000 - 1 ) ! Observation operator for restart 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 100 108 IF( lk_asminc ) THEN 101 109 #if defined key_shelf … … 111 119 ENDIF 112 120 ENDIF 113 CALL dia_tmb_init ! TMB outputs 114 CALL dia_25h_init ! 25h mean outputs 115 CALL dia_diaopfoam_init ! FOAM operational output 121 122 CALL dia_tmb_init ! TMB outputs 123 CALL dia_25h_init ! 25h mean outputs 124 CALL dia_diaopfoam_init ! FOAM operational output 116 125 ENDIF 117 126
Note: See TracChangeset
for help on using the changeset viewer.