- Timestamp:
- 2016-11-22T12:19:58+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_CMCC_2016/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r6152 r7299 52 52 #endif 53 53 USE tideini ! tidal components initialization (tide_ini routine) 54 USE bdy_oce, ONLY: ln_bdy 54 55 USE bdyini ! open boundary cond. setting (bdy_init routine) 55 USE bdydta ! open boundary cond. setting (bdy_dta_init routine)56 USE bdytides ! open boundary cond. setting (bdytide_init routine)57 USE sbctide, ONLY : lk_tide58 56 USE istate ! initial state setting (istate_init routine) 59 57 USE ldfdyn ! lateral viscosity setting (ldfdyn_init routine) … … 433 431 ! ! external forcing 434 432 !!gm to be added : creation and call of sbc_apr_init 435 IF( lk_tide )CALL tide_init ! tidal harmonics433 CALL tide_init ! tidal harmonics 436 434 CALL sbc_init ! surface boundary conditions (including sea-ice) 437 !!gm ==>> bdy_init should call bdy_dta_init and bdytide_init NOT in nemogcm !!! 438 IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation 439 IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays 440 IF( lk_bdy .AND. lk_tide ) & 441 & CALL bdytide_init ! Open boundaries initialisation of tidal harmonic forcing 442 435 CALL bdy_init ! Open boundaries initialisation 443 436 ! ! Ocean physics 444 437 ! ! Vertical physics … … 659 652 USE diadct , ONLY: diadct_alloc 660 653 #endif 661 #if defined key_bdy662 654 USE bdy_oce , ONLY: bdy_oce_alloc 663 #endif664 655 ! 665 656 INTEGER :: ierr … … 676 667 ierr = ierr + diadct_alloc () ! 677 668 #endif 678 #if defined key_bdy679 669 ierr = ierr + bdy_oce_alloc () ! bdy masks (incl. initialization) 680 #endif681 670 ! 682 671 IF( lk_mpp ) CALL mpp_sum( ierr )
Note: See TracChangeset
for help on using the changeset viewer.