- Timestamp:
- 2020-06-03T16:30:02+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12973_AGRIF_CMEMS/src/OCE/nemogcm.F90
r12933 r13026 143 143 #if defined key_agrif 144 144 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 145 CALL Agrif_Declare_Var_dom ! AGRIF: set the meshes for DOM 146 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 145 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 147 146 # if defined key_top 148 147 CALL Agrif_Declare_Var_top ! " " " " " TOP 149 # endif150 # if defined key_si3151 CALL Agrif_Declare_Var_ice ! " " " " " Sea ice152 148 # endif 153 149 #endif … … 399 395 ! Initialise time level indices 400 396 Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 401 397 #if defined key_agrif 398 Kbb_a = Nbb; Kmm_a = Nnn; Krhs_a = Nrhs ! agrif_oce module copies of time level indices 399 #endif 402 400 ! !-------------------------------! 403 401 ! ! NEMO general initialization ! … … 414 412 IF( lk_c1d ) CALL c1d_init ! 1D column configuration 415 413 CALL wad_init ! Wetting and drying options 414 415 #if defined key_agrif 416 CALL Agrif_Declare_Var_ini ! " " " " " DOM 417 #endif 416 418 CALL dom_init( Nbb, Nnn, Naa, "OPA") ! Domain 419 420 421 417 422 IF( ln_crs ) CALL crs_init( Nnn ) ! coarsened grid: domain initialization 418 423 IF( sn_cfctl%l_prtctl ) & … … 435 440 ENDIF 436 441 ! 437 442 438 443 CALL istate_init( Nbb, Nnn, Naa ) ! ocean initial state (Dynamics and tracers) 439 444
Note: See TracChangeset
for help on using the changeset viewer.