- Timestamp:
- 2019-12-12T11:52:50+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/OCE/step.F90
r12193 r12205 107 107 108 108 IF( kstp == nit000 ) THEN ! initialize IOM context (must be done after nemo_init for AGRIF+XIOS+OASIS) 109 CALL iom_init( cxios_context ) ! for model grid (including passible AGRIF zoom) 109 CALL iom_init( cxios_context, ld_closedef=.FALSE. ) ! for model grid (including passible AGRIF zoom) 110 IF( lk_diamlr ) CALL dia_mlr_iom_init ! with additional setup for multiple-linear-regression analysis 111 CALL iom_init_closedef 110 112 IF( ln_crs ) CALL iom_init( TRIM(cxios_context)//"_crs" ) ! for coarse grid 111 113 ENDIF … … 117 119 ! Update external forcing (tides, open boundaries, ice shelf interaction and surface boundary condition (including sea-ice) 118 120 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 119 IF( ln_tide ) CALL sbc_tide( kstp )! update tide potential121 IF( ln_tide ) CALL tide_update( kstp ) ! update tide potential 120 122 IF( ln_apr_dyn ) CALL sbc_apr ( kstp ) ! atmospheric pressure (NB: call before bdy_dta which needs ssh_ib) 121 123 IF( ln_bdy ) CALL bdy_dta ( kstp, Nnn, kt_offset = +1 ) ! update dynamic & tracer data at open boundaries … … 211 213 ! diagnostics and outputs 212 214 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 213 IF( ln_floats ) CALL flo_stp ( kstp, Nbb, Nnn )! drifting Floats214 IF( ln_diacfl ) CALL dia_cfl ( kstp, Nnn )! Courant number diagnostics215 CALL dia_hth ( kstp, Nnn )! Thermocline depth (20 degres isotherm depth)216 IF( ln_diadct ) CALL dia_dct ( kstp, Nnn )! Transports217 CALL dia_ar5 ( kstp, Nnn )! ar5 diag218 CALL dia_ptr ( kstp, Nnn )! Poleward adv/ldf TRansports diagnostics219 IF( ln_diaharm ) CALL dia_harm( kstp, Nnn ) ! Tidal harmonic analysis220 CALL dia_wri ( kstp, Nnn ) ! ocean model: outputs221 !222 IF( l n_crs ) CALL crs_fld ( kstp, Nnn ) ! ocean model: online field coarsening & output215 IF( ln_floats ) CALL flo_stp ( kstp, Nbb, Nnn ) ! drifting Floats 216 IF( ln_diacfl ) CALL dia_cfl ( kstp, Nnn ) ! Courant number diagnostics 217 CALL dia_hth ( kstp, Nnn ) ! Thermocline depth (20 degres isotherm depth) 218 IF( ln_diadct ) CALL dia_dct ( kstp, Nnn ) ! Transports 219 CALL dia_ar5 ( kstp, Nnn ) ! ar5 diag 220 CALL dia_ptr ( kstp, Nnn ) ! Poleward adv/ldf TRansports diagnostics 221 CALL dia_wri ( kstp, Nnn ) ! ocean model: outputs 222 IF( ln_crs ) CALL crs_fld ( kstp, Nnn ) ! ocean model: online field coarsening & output 223 IF( lk_diadetide ) CALL dia_detide( kstp ) ! Weights computation for daily detiding of model diagnostics 224 IF( lk_diamlr ) CALL dia_mlr ! Update time used in multiple-linear-regression analysis 223 225 224 226 #if defined key_top
Note: See TracChangeset
for help on using the changeset viewer.