- Timestamp:
- 2012-11-27T15:42:24+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3651 r3680 124 124 ! !-----------------------! 125 125 #if defined key_agrif 126 CALL Agrif_Declare_Var ! AGRIF: set the meshes 126 CALL Agrif_Declare_Var_dom ! AGRIF: set the meshes for DOM 127 CALL Agrif_Declare_Var ! " " " " " DYN/TRA 127 128 # if defined key_top 128 CALL Agrif_Declare_Var_Top ! AGRIF: set the meshes 129 CALL Agrif_Declare_Var_top ! " " " " " TOP 130 # endif 131 # if defined key_lim2 132 CALL Agrif_Declare_Var_lim2 ! " " " " " LIM 129 133 # endif 130 134 #endif … … 525 529 USE ldftra_oce, ONLY: ldftra_oce_alloc 526 530 USE trc_oce , ONLY: trc_oce_alloc 531 #if defined key_diadct 532 USE diadct , ONLY: diadct_alloc 533 #endif 527 534 ! 528 535 INTEGER :: ierr … … 538 545 ierr = ierr + lib_mpp_alloc (numout) ! mpp exchanges 539 546 ierr = ierr + trc_oce_alloc () ! shared TRC / TRA arrays 547 ! 548 #if defined key_diadct 549 ierr = ierr + diadct_alloc () ! 550 #endif 540 551 ! 541 552 IF( lk_mpp ) CALL mpp_sum( ierr )
Note: See TracChangeset
for help on using the changeset viewer.