- Timestamp:
- 2020-07-02T17:33:41+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/nemogcm.F90
r13176 r13229 145 145 #if defined key_agrif 146 146 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 147 CALL Agrif_Declare_Var_dom ! AGRIF: set the meshes for DOM 148 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 147 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 149 148 # if defined key_top 150 149 CALL Agrif_Declare_Var_top ! " " " " " TOP 151 # endif152 # if defined key_si3153 CALL Agrif_Declare_Var_ice ! " " " " " Sea ice154 150 # endif 155 151 #endif … … 402 398 ! Initialise time level indices 403 399 Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 404 400 #if defined key_agrif 401 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 402 #endif 405 403 ! !-------------------------------! 406 404 ! ! NEMO general initialization ! … … 417 415 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 418 416 CALL wad_init ! Wetting and drying options 417 418 #if defined key_agrif 419 CALL Agrif_Declare_Var_ini ! " " " " " DOM 420 #endif 419 421 CALL dom_init( Nbb, Nnn, Naa, "OPA") ! Domain 422 423 424 420 425 IF( ln_crs ) CALL crs_init( Nnn ) ! coarsened grid: domain initialization 421 426 IF( sn_cfctl%l_prtctl ) & … … 438 443 ENDIF 439 444 ! 440 445 441 446 CALL istate_init( Nbb, Nnn, Naa ) ! ocean initial state (Dynamics and tracers) 442 447
Note: See TracChangeset
for help on using the changeset viewer.